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01.00.00 INTRODUCTION. 


THE BASIC DISKETTE B/N 1635001, TESTS ATTACHMENT(S) AND DEVICE(S) IN SERIAL MODE. 
THAI IS, ONE ie AND ONLY ONE §1) ATTACHMENT OR DEVICE IS TESTED AT A TINE. THE 
SYSTEM TEST DISK TLE P/M. 1635003, WILL TEST FROM A HAXIMUM OF THREE {3 UP TO A 
MAXIMUM OF FIFTEE if 5) ATTACHMENTS AND/OR DEVICES AT ONCE. THE INSTALLED 
STORAGE SIZE IS SED FOR THE NUMBER OF ATTACHMENTS/DEVICES THAT CAN BE RUN. 
THIS IS A WORST CASE TEST OF THE PROCESSING UNIT AND ATTACHMENTS AND DEVICES 
UNDER A CUSTOMER TYPE APPLICATION. THIS TEST IS NOT A FIELD REPLACEMENT UNIT 
TEST. If IS AN ERROR INDICATION TEST. THE PROBLEM FINDING MUST BE DONE BY THE 
E, USING ECP ERROR MESSAGES AS AN ATID. 

02.00.00 DIAGNOSTIC FLOW: 
- POWER UP ALL FILE(S) AND DEVICE(S). 
MICRO DIAGNOSTICS WILL TEST THE BASIC PROCESSING UNIT. 
- PRESS THE RESET KEY. 
THE MICRO CODE WILL RESET THE SYSTEH AND DO A BASIC CHANNEL TEST. 
- INSERT THE SYSTEM TEST DISKETTE. 
- PRESS [THE LOAD KEY. 
A THIRD MICRO DIAGNOSTIC ROUTINE WILL START. 
AT [HE END aE RHE MICRO ROUTINE, IPL WILL START AT CYLINDER 0, HEAD 0,RECOR 
AND 6 OF DATA WILL BE READ INTO STORAGE. A HARDWARE BRANCH’ TO STORAGE 


25 TES 
LOCATION 0600 STARTS THE STORAGE PARITY TESTS. 


ME HE EAC Be A Se Ee ie aE A fe Bh aie fe ah Oe fe aye ae Me afc ate he af fe fe he af ake Ok ape af ae she he ae She ye Oh ae a afc he af she 2h She x afc ae aft afc ah she ake he ae afc he afc 24 afc afe ale afc afe afc ake afc afc afc aie af she ake afc ae af of aie oe akc 
4 


Sy 4 
ie ie 
¥ NOTE: WHEN YOU IPL THE SYSTEM TEST DISKETTE WITHOUT THE SYSTEM * 
ae FIRST BEING INITIALIZED, PARITY ERROR 5) WILL OCCUR % 
i BECAUSE THE SYSTEM DOES NOT GENERATE ITY IW STORAGE % 
xt ae FOR THE FIRST poets IN tare CASE THESE ERRORS AUST Ht 
i E IGNORED BECAUSE THEY ARE NOT CORRECT INDICATION OF * 
% THE CONDITION OF THE MACHINE. " 
* RUN HAP 2000 USING THE BASIC DISKETTE, OR SOME OTHER METHOD. % 
. THIS WILL INITIALIZE THE STORAGE. : 
ie ie 
ME AK OE ie Ne af she ae aie He ie ae ae Be af che af Be ae ee Ne ai aie ae Ie ae afc ax aye afc she ake he she aie she ae she a af the afc afc ake ofc ke afc ae afc fe afc fe she afc fe ake ae afc ade ahs afc she she she afe aoe af af she afc ofc afe age fe age afe fs ofc aft abe aie afc aie 

AT THE END OF THE STORAGE PARITY TESTS, THE EXERCISER CONTROL PROGRAKH (ECP) Is 

LOADED AND CONTROL IS PASSED TO IT. 

IF PARITY ERRORS ARE FOUND, SEE SECTION 02.01.00. 

IF DEVICE TYPE ‘E4* IS TO BE TESTED, USE THE DISKETTE PART NUMBER 6826590 TO SET 

UP THE DEVICE FOR TESTING. 

IF THE ASSIGNED ALTERNATE CONSOLE DEVICE TYPE IS #45! (FEATURE 4978), SEE THE 

NOTE BELOW. 

IF NO PARITY ERRORS ARE FOUND, ECP aa PROMPT "RDY ENTER* (HALT CODE 3400). 

TESTING OF THE I/0 DEVICES caAh STAR 
HE HE HE A Me afc ae oh fe si abe ae she she ae kc aie afe ake ak afc aye afc she ale ae she afc afc ae sie afe afc afc aie ae she ae sie ae ah afc afc ae aie afc she oe afc afe aye ae afc she afc af ah af ae aie she she sic she aie afc 272 she afc she fe fe He BH Hc she se ae afc ae ah akc aye 3c 

ue 

x : ke 
* NOTES THE 4978 IS A RPQ DEVICE, BUT BECAUSE IT IS A SUPPORTED * 
x ALTERNATE CONSOLE, IT IS TESTED BY THE BASIC AND SYSTEH * 
% TEST DISKETTE. THE 4978 DISPLAY HAS A NUMBER OF * 
* KEYBOARDS, SO ANY KEY MAY GENERATE ANY CODE ae MUS * 
He KNOW WHAT ce ARE ASSOCIATED WITH THE FUNC TION (3) % 
%* AND Seat eau } USED IN THE ALTERNATE CONSOLE ROOTI * 
* THIS HALT COD S 3417 WHICH IS THE SAME AS 3817 UNDER. DCP. * 
: SEE MAP 0013, HALT 3817. : 
K x 
Me Sie aie 2h aie aie ac afc aie ae ae Ae ai aie afc ake a ae afc fe ah ae age afc af afc afc af afk aie ake ae afc ake 2 afc afc ae akc hc afc afe afc af afc afc age af ake fe afc afc ake 2 afc ae ake she age age Mie afc he he af ake afc ah afc ae akc fe afc BK Whe ah 3h ak ah af akc she 3c 3c 
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02.01.00 STORAGE PARITY TEST 02.02.00 STORAGE PARITY TESTS HALT CODES 
THE STORAGE PARITY TESTS REFERENCED IN SECTION 02.00.00 (THIS MAP) ARE A SET OF 34A1 (NO Bee nee 
THREE PROGRAMS (PID 34A1, 34A2, 34A3) WHICH TEST FOR ERRORS AS FOLLOWS: PID 34A1 IS IN STORAGE AND RUNNING (THIS SHOULD ONLY APPEAR IN THE LEDS FOR 
A SHORT PERIOD OF TIME) 
A) INNER STORAGE PARITY. TESTED BY 34A1 AND ata 2) 
B) INNER STORAGE PARITY FOUND WHEN THE TRANSLATOR IS ENABLED. (TESTED BY 34A3) 34A2 (NO MESSAGE b 
C) OUTER STORAGE PARITY. TESTED BY 3443) PID 34A2 IS IN STORAGE AND RUNNING (THIS SHOULD ONLY APPEAR IN THE LEDS FOR 
D) INNER STORAGE PARITY FOUND AFTER A 60 SECOND DELAY. TESTED BY 3843) A SHORT PERIOD OF TIME) 
E) INNER STORAGE PARITY FOUND WHEN THE TRANSLATOR IS ENABLED AFTER 0 SECOND 
DELAY. (TESTED BY 34A3 34A3 (NO MESSAGE) 
F) OUTER STORAGE PARITY FOUND AFTER A 60 SECOND DELAY. (TESTED BY 34A3) PID 34A3 IS IN STORAGE AND RUNNING. THIS IS THE PROGRAM THAT DOES A 
RUNNING COUNT FOR 60 SECONDS. 
THE TESTING IS PERFORMED IN THE FOLLOWING SEQUENCE: Si nee Raeen DAE BERGE 
WHEN rou al Ph PROGRAM 34A1 IS LOADED IN STORAGE. 34A1 WILL TEST THE FIRST 16K PARITY ERROR(S) WERE FO ub WHEN TESTING INNER STORAGE. THESE ERRORS WILL 
BYTES SfORAGE. IF AN ERROR IS FOUND, HALT CODE 342E WILL BE DISPLAYED IN BE INDICATED BY THE FOLLOWING 342A HA its bs 
THE TEDS. SEE AS ECTION 02.02.00). IF NO ERROR(S) ARE FOUND, 34A2 IS LOADED (PROGRAMMERS CONSOLE USE '6' TO CONTING XECUTION) 
FROM THE DISKETTE AND CONTROL IS PASSED TO IT. 34A2 WILL TEST THE REMAINING 
INNER STORAGE (RECORDING ALL ERRORS, IF ANY), THEN WILL LOAD IN 34A3 AND PASS 3425 INNER STORAGE BARTTY ERROR S) WITH TRANSLATOR ENABLED 
CONTROL TO IT. PID 34A3 WILL FIRS’ TEST TO’SEE IF A TRANSLATOR IS INSTALLED PARITY ERROR sa FOUND WHEN TESTING INNER STORAGE WITH THE TRANSLATOR 
IF NOT IT WILL DELAY 60 SECONDS THEN AGAIN TEST ALL INNER STORAGE (SEE NOTE ENABLED. THES ERRORS WILL BE INDICATED BY THE FOLLOWING 342k HALT (S). 
BELOW) - IF A TRANSLATOR IS INSTALLED THE TESTS ARE PERFORMED IN THE FOLLOWING (PROGRAMMERS CONSOLE USE "6 TO CONTINUE EXECUTION) 
a laa 3426 OUTER STORAGE PARITY ERROR(S 
1) ENABLE THE TRANSLATOR PARITY ERROR(S) WERE Conk b WHEN TESTING OUTER STORAGE. THESE ERRORS WILL 
2) TEST INNER STORAGE BE INDICATED BY THE POLLOWLNG 342A HAL rs s 
3) TEST OUTER STORAGE (PROGRAMMERS CONSOLE USE '6* TO CONTINUE EXECUTION) 
4} DISABLE THE TRANSLATOR 
5) DELAY 60 SECONDS (SEE NOTE BELOW) 3427 INNER STORAGE PARITY pounb.k AFTER DELAY 
6) TEST INNER STORAG PARITY ERROR (S). WERE FOUND WHEN TESTING INNER STORAGE AFTER A 60 SECOND 
7) ENABLE THE TRANSLAT DELAY. HE RRORS BE INDICATED BY THE FOLLOWING 342A HALT (S). 
8) TEST INNER STORAGE (PROGRAMMERS CONSOLE use '6" TO CONTINUE EXECUTION) 
9) TEST OUTER STORAGE 
10) DISABLE THE TRANSLATOR nae OPARITY ERROR (SY WE RR EdaND MUHEN TEST NG OUTER STORAGE AFTER A 60 SECOND 
CON 
AFTER IT IS ENDED 34A3 WILL LOAD IN ECP AND TURN CONTROL OVER TO IT. DELAY. THESE ERRORS W WILL BE INDICATED BY THE FOLLOWING 342A HALT (8) « 
(PROGRAMMERS CONSOLE USE "6* TO CONTINUE EXECUTION) 
AFTER ECP IS LOADED AND HAS ASSIGNED AN ALTERNATE CONSOLE, BUT BEFORE THE 'RDY 
ENTER' MESSAGE (HALT 3400) ALL PARITY ERRORS FOUND WILL BE PRESENTED TO THE 3429 INNER STORAGE PARITY BERGE LS) TRANSLATOR ENABLED AFTER DELAY 
OPERATOR AS PER THE HALT CODES DESCRIBED IN SECTION 02.02.00 (THIS MAP). PARITY a WERE FOUN HEN TESTING INNER STORAGE WITH THE TRANSLATOR 
ENABLED | _AETER Ae SECOND DELAY. THESE ERRORS WILL BE INDICATED BY THE 
FO RO Ik kk ak kc i ak a RC RC ok 2 ek 2 oe i afc fe ak 2 a ake ke Re fC ic 2 ac ae i a a oe a fe afc oe a ae fe fe 2 2 afc fe a iC ae fe ic ae ak 2k akc oie akc 9k 2c ae kc 2K fe (PROGRAMMERS CONSOLE ask "6* TO CONTINUE EXECUTION) 
x * 
xx ; * 342A XXXXXX --> LOCATED IN THE 16K BLOCK NUMBER X*YYYY® 
4 NOTE: WHILE IN THE 60 SECOND DELAY THE LEDS WILL INDICATE (IN * A PARITY ERROR WAS _ FOU 5 Gere enneee CONSOLE USE ‘'6' TO CONTINUE 
* HEXADECIMAL) THE TIME OF THE DELAY IN SECONDS. IF THIS * Bee Couns REGISTER 1 AND HILL CONTAIN ADDRESS XXXXXX WHILE REGISTER 3 
* SECTION OF THE TEST IS NOT DESIRED, THE OPERATOR CAN PRESS x WILL CONTAIN THE 16K BLOCK NUMBER YYYY.) 
x THE RESET KEY FOLLOWED BY THE START KEY. WHEN THIS IS DONE * 
* ALL PARITY ERRORS ARE IGNORED BY THE SYSTEM. THE SYSTEM WILL % 3428 (NO MESSAGE 
: bic Meise lviapiillasipseltagasiiedh sett liigedleote QPERAORS RESPOND “WTR” ATT1 (Yes) TGP THREE gkGon gs) REE HOES 1esoRED" 
g e 
ik NOTE: WHEN YOU IPL THE SYSTEM TEST DISKETTE WITHOUT THE SYSTEM * RESPOND WITH Me THIS mESSAGE WILL ONLY BE ISSUED WHEN THERE IS nO 
* FIRST BEING INITIALIZED, PARITY ERROR(S) WILL OCCUR * ALTERNATE HONS OL ND THE PROGRAMMERS CONSOLE IS THE ONLY METHOD OF 
* BECAUSE THE SYSTEM DOES NOT GENERATE PARITY IN STORAGE * INPUT/OUTPUT. 
* (EXCEPT FOR THE FIRST 16K) - IN vats CASE THESE ERRORS MUST * 
x BE IGNORED BECAUSE THEY A E NOT CORRECT INDICATION OF * 342E (NO pe Ss nce) 
* THE CONDITION OF THE MACHT % AN ERROR WAS FOUND IN THE FIRST 16K OF STORAGE WHILE EXECUTING PID 34A1. 
* RUN MAP 2000 USING THE eet: DISKETTE, OR SOME OTHER METHOD. * PRESS INTERRUPT TO OBTAIN THE ADDRESS IN THE LEDS, THEN PRESS THE INTERRUPT 
: THIS WILL INITIALIZE THE STORAGE. . KEY TO CONTINUE RUNNING. 
* NOTE: ON THE BASIC DISKETTE, THE STORAGE SIZE IS PASSED TO DCP. ON THE * 
* SYSTEM TEST DISKETTE, THE STORAGE SIZE PASSED TO ECP DOES NOT % 
« CONTAIN THE STORAGE COUNT OF OUTER STORAGE, BUT THE sine TITY OF * 
* OUTER STORAGE THE TRANSLATOR CARD IS JUMPERED FOR. * 
m IF THE TRANSLATOR CARD IS JUMPERED FOR 48K (3 -_16K S) X* 
* AND THE MACHINE ONLY HAS 32K OF OUTER STORAGE (2 -' 16K BLOC S) » * 
* WHEN YOU IPL THE SYSTEM TEST DISKETTE, IT WILL SHOW * 
: BLOCKS FOUND WITH A PARITY ERROR IN THE THIRD 16K BLOCK. : 
* NOTE: IF IN INDICATING AN ERROR THE STORAGE SIZE PASSED TO THE * 
: OPERATOR IS NOT CORRECT, THE ADDRESS TRANSLATOR IS SUSPECT. : 
2K Ae hee 2K fe a ake fe fe ae ae fe ok afc ake ic ae ic ae ate ae af aie ate fe afc aie akc fe ik af afc aie 2c akc afc aie af ae aie afc ae ac ae oe ai aie ate aie ak 2c af afc a oie aie aie aie afc aie ae afc fe afc afc he a ie afc a ac a i aie af 2 Ok ie aK Se oe 2 
21SEP79 PN 1635262 21SEP79 PN 1635262 
EC375482 PEC755448 EC375482 PEC755448 


MAP 0015-3 MAP 0015-4 


DISKETTE 1635003 SERVICE GUIDE 
PAPER ONLY MAP 
PAGE 5 OF 11 


03.00.00 EXERCISER CONTROL PROGRAM (ECP) COMMANDS: 
0 REPLY TO QUESTION WITH A ‘NO! 
1 REPLY TO QUESTION WITH A ‘YES* 
2 IGNORE ERROR LIMIT WHILE RUNNING SYSTEM TEST 
3 RESEI ERROR LIMIT TO FIVE (5) ERRORS 
6 CONTINUE AT NEXT SEQUENTIAL INSTRUCTION. 
7 STOP SYSTEM TEST. 
STOP ALL SYSTEM TEST AND COME TO A NORMAL TERMINATION. 
DUMP EXECUTION AND ERROR NUMBER WHILE TESTING 
TERMINATE THE PROGRAM AND/OR DEVICE ADDRESS. 


© 


NOTE: WHILE THE SYSTEM TEST SUPERVISOR IS IN STORAGE THIS COMMAND MUST BE 
FOLLOWED BY A DEVICE ADDRESS. THE PROGRAM TESTING THIS ADDRESS 


BE TERMINATED. 
B START PROGRAM. 


USE ‘'B* FOR LOAD AND 
SUPERVISOR TO LOAD AND 
TE 


NOTES WHILE THE SYSTEM TEST SUPERVISOR IS 
FOLLOWED BY A DEVICE ADDRESS. THE PROGR 
Teoneea BE LOADED INTO STORAGE AND STAR 


XECUTE 


DUMP STORAGE TO ALTERNATE CONSOLE. 
RESPOND TO PROGRAM WITH SUITABLE INFORMATION 


21SEP79 
EC375482 


MAP 0015-5 


WILL THEN 


coed FOR EXAMPLE *B 3410" WILL CAUSE THE SYSTEH TEST 


IN STORAGE THIS COMHAND MUST BE 
AM NEEDED FOR TESTING THIS ADDRESS 
T TESTING THE INDICATED DEVICE 
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04.00.00 COMMON HALT LIST: 
04.01.00 EXERCISER CONTROL PROGRAM (ECP) HALTS 
3400 RDY ENTER 

ECP WILL TAKE ANY VALID COMMAND. 


MAP 0015-6 


3401 (NO MESSAGE) 
BAD CONDITION CODE RECEIVED FROM ALTERNATE CONSOLE. USE THE PROGRAMMER 
CONSOLE TO GIVE A CONTINUE (3) 6 (tye (tLe SEE SECTION 05.01.00 ECP WILL 
ASSIGN AS THE ALTERNATE COfSOLE H PROGRAMMER CONSOLE AND CONTINUE THE 
PROGRAM. 
3402 PCK ROUTINE=XXXX CHECKPOINT=XXXX PSW=XXXX IAR=XXXX 
0260 IAR AKR RE EG1 REG2 RECA REG4& 
0270 REG5 REG6 REG? PSW SAR 0000 000 0000 
PROGRAM CHECK HAS OCCURRED --> GO TO MAP 3871 ENTRY POINT A, OR IF OPERATING 
UNDER FRIEND SELECT THE LOOP ON PCK OPTION. 
NOTE: _IF THE PROGRAMMER CONSOLE IS THE ACTIVE CONSOLE, PRESS *STOP*, SELECT 
LEVEL 3, THEN: RO WILL CONTAIN THE PROGRAH ID R1 WILL CONTAIN THE 
CHECKPOLNT, R2 WILL CONTAIN THE PROGRAM STATUS WORD AT THE TIME OF THE PCK 
INTERRUPT, AND R3 WILL CONTAIN THE ADDRES THE INSTRUCTION FOLLOWING THE 
FAILURE. THE INFORMATION IN THE LEVEL STATUS BLOCK SB) CAN BE FOUND AT 
HEXADECIMNAL STORAGE LOCATION ‘0260 IN THE ABOVE OR ° 
IF THE ROUTINE = 3400, THE PCK OCCURRED WHILE LOADING A PROGRAM. 
3403 MCK ROUTINE=XXXX CHECKPOINT=XXXX PSW=XXXX ITAR=XXXX 
0260 IAR AKR LSR REGO REG1 REG2 REG3 REG4& 
0270 REGS REG6 REG7 PSW SAR 0000 0000 0000 
MACHINE CHECK HAS OCCURRED --> GO TO MAP 3871 ENTRY POINT A, OR IF OPERATING 
UNDER FRIEND SELECT THE LOOP ON HCK OPTION. 
NOTE: (IF THE PROGRAMMER CONSOLE IS THE ACTIVE CONSOLE, PRESS "STOP!, SELECT 
LEVEL 3, THEN: RO WILL CONTAIN THE PROGRAM ID R1 WILL CONFAIN THE 
CHECKPOINT, R2 WILL CONTAIN THE PROGRAM STATUS JW f THE TIME OF THE MCK 
INTERRUPT R3 WILL CONTAIN THE IAR AT THE TIME OF THE INTERRUPT. THE 
INFORMATION IN THE LEVEL STATUS BLOCK ftS5) CAN BE FOUND AT HEXADECISAL 
STORAGE LOCATION ‘0260 IN THE ABOVE ORDER. 
3404 POWER THERMAL WARNING 
0260 IAR AKR LSR REGO REG! REG 2 REG3 REG4 
0270 REGS REG6 REG7 PSW SAR 000 0000 0000 
POWER/THERMAL CHECK IF NO BATTERY BACKUP THE SYSTEM WILL POWER DOWN BEFORE 
THE MESSAGE CAN BE DISPLAYED ON AN ALTERNATE CONSOLE.) GO TO MAP 1470, ENTRY 
POINT A, OR IF OPERATING UNDER FRIEND SELECT THE LOOP ON POWER THERMAL WARNING 
OPTION (IF THE THERMAL WARNING IS A WRONG INDICATION OF THE PROBLEM). 
NOTE: Arp THE PROGRAMMER CONSOLE IS THE ACTIVE CONSOLE, PRESS *STOP*. THE 
INFORMATION IN THE LEVEL STATUS BLOCK {iS 5) CAN BE FOOND AT HEXADECIHAL 
STORAGE LOCATION *0260* IN THE ABOVE ORDER. 
3405 PT 
THE PROGRAM HAS BEEN TERMINATED. ECP WILL TAKE ANY VALID COMMAND/OPTION. 
WHEN THE PROGRAMMER CONSOLE IS THE ACTIVE CONSOLE THIS HALT WILL BE DISPLAYED 
TO INDICATE CORRECT TERMINATION OF A PROGRAH. 
3406 REQUEST NOT VALID 


ECP RECEIVED A WRONG COMMAND. 


3407 ALTERNATE CONSOLE OFF 


THE ALTERNATE CONSOLE gh CONSOLE ASSIGNED BY THE CONFIGURATION PROGRAM) IS 


BEING TESTED. ANY MES 


3408 ALTERNATE CONSOLE ON 


E TING OF THE ALTERNATE CONSOLE IS COMPLETE. 


TES 
THE ALTERNATE CONSOLE. 


MESSAGES ARE BEING 


21SEP79 . 
EC375482 


AGES WILL BE DISPLAYED ON THE PROGRAMMER CONSOLE. 


DISPLAYED ON 
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3409 


340A 


340B 


340C 


340D 


3410 


3413 


3414 


3415 


341D 
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NOT EXPECTED INTERRUPT ISB=XXXX 


ECP HAS BEEN INTERRUPTED BY A DEVICE THAT SHOULD NOT BE ACTIVE. THE RIGHT 
MOST BYTE OF THE ISB IS THE ADDRESS OF THE INTERRUPTING DEVICE. IF THE 
PROGRAMMER CONSOLE IS THE ACTIVE CONSOLE RO (LEVEL = 3) WILL CONTAIN THE ISB. 


st 
THE PROGRAM HAS STARTED. 


DISKETTE ERROR 


AN OLO ERROR OCCURRED WHILE ADDRESSING THE CE LOAD DEVICE. ATTEMPT THE ECP 

COMMAND AGAIN. IF THE PROBLEM REMAINS, IPL THE BASIC DIAGNOSTIC DISKETTE 

THEN, GO TO THE 4964 ENTRY MAP. AFTER THIS IF NO FAILURE VERIFY THE DISKETTE. 
PNF 

NO ‘ee ENTRY FOR THE REQUESTED PROGRAH. 


IF TH PROGRAMMER CONSOLE IS THE ACTIVE CONSOLE R3 WILL CONTAIN A POINTER TO 
THE REQUESTED PROGRAM NAME IN STORAGE. 
XXXXX LOADED 
REQUESTED PROGRAM HAS BEEN LOADED. XXXXX LOADED AT = YYYY). THIS MESSAGE 
WILL BE DISPLAYED IF THE PROGRAM JUST LOADED CAN BE LOADED AT ANY LOCATION IN 
STORAGE. THE *AT* ADDRESS (YYYY) IS THE START ADDRESS OF THE LOADED PROGRAM. 
NO REPLY EXPECTED 


THE CONSOLE DATA WAS RECEIVED AND ECP WAS NOT EXPECTING "REPLY DATA. 


(NO MESSAGE) 


A COMMAND SEQUENCE HAS BEEN ENTERED FROM THE PROGRAMMER CONSOLE. IF CORRECT 
PRESS CONSOLE INTERRUPT. ECP WILL EXECUTE THE COMMAND. TO CHANGE (CONSOLE 
DELETE), CHANGE THE BUFFER CONTENTS AND PRESS CONSOLE INTERRUPT. ECP WILL 
DISPLAY 3414, START THE COMMAND SEQUENCE AGAIN. 


ENTER 

bap BAERS OR REPLY SEQUENCE HAS BEEN STARTED AND MORE DATA IS NEEDED. INSERT 
NOTE: THIS HALT Is ALSO DISPLAYED AFTER A PROGRAMMER CONSOLE DELETE. (SEE 
SECTION 05.01.00 

(NO MESSAGE) 
ECP HAS RECEIVED A WRONG SEQUENCE OF *SVC' REQUESTS FROM THE I/O PROGRAM. 
YOU CANNOT CONTINUE FROM THIS HALT. GO TO MAP 0070, ENTRY POINT A. 

(NO MESSAGE) 
ECP HAS RECEIVED A COMMAND TO DUMP STORAGE AND IS NOW DUMPING TO THE ALTERNATE 
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05.00.00 OPERATING THE SYSTEM: 


IF THE ONLY CE COMMUNICATION DEVICE IS THE PROGRAMMER CONSOLE SEE ~ PROGRAMMER 
CONSOLE OPERATION, SECTION 05.01.00, FOR MESSAGE DECODE AND COHMAND ENTRY. 


mr A KEYBOARD CONSOLE IS BEING USED, ANSWER(S) WILL HAVE TO BE ENTERED THROUGH 


HE PROGRAMMER CONSOLE IF: 
1) THE DISKETTE HAS NEVER BEEN CONFIGURED, OR 
2) THE KEYBOARD CONSOLE HAS BEEN ASSIGNED A NEW ADDRESS, OR 
3) THE KEYBOARD CONSOLE IS KNOWN TO BE FAILING. 
WHEN THE CONFIGURATION IS CORRECT AND A KEYBOARD CONSOLE HAS BEEN ASSIGNED te 
WAGER ees THROUGH THE CONSOLE KEYBOARD EXCEPT WHILE THE CONSOLE DEVICE 
WHILE TESTING THE ASSIGNED KEYBOARD CONSOLE ECP WILL COMMUNICATE THROUGH THE 
PROGRAMMER CONSOLE SEE SECTION 05.01.00. 
KEYBOARD COMMUNICATION [IS AS ea ie AT ANY ‘ENTERS PROMPT, KEY THE ECP 
COMMAND/OPTION CHARACTER, FOLLOWED BY A ‘SPACE, FOLLOWED BY DATA’ (IF NEEDED) AND 
END THE INPUT WITH RETURN/ENTER/TRANSMITT, 
NOTE THE SPACE IS NOT NECESSARY IF NO DATA FOLLOWS. 
FOR EXAMPLE ‘7 RETURN" WILL SET THE STOP SYSTEM TEST BIT. 
°F XXXX XXXX RETURN' WILL ANSWER A PROGRAM'S REQUEST FOR 4 BYTES OF 
HEXA DECIMAL INFORMATION cfitay PROGRAM MAY REQUEST UP TO 32 BYTES EBCDIC, 64 
BYTES HEXADECIMAL OR 
"1 RETURN! WILL ANSWER me ROUTINE QUESTION ‘YES'. 
'O RETURN! WILL ANSWER A ROUTINE QUESTION ‘NO*, 
NOTE: £F THE MAINTENANCE LOAD DEVICE IS USED TO IPL THE SYSTEM TEST DISKETTE, YOU 
MUS@® VERIFY THAT THE CUSTOMER PROGRAM WILL LOAD AND EXECUTE AFTER REMOVING THE 
MAINTENANCE LOAD DEVICE. 
21SEP79 PN1635262 
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05.01.00 PROGRAMMER CONSOLE OPERATION: 


THE SEQUENCE FOR COMMAND/REPLY/OPTION ENTRY THROUGH THE PROGRAMMER CONSOLE WILL 
CHANGE WITH THE COMMAND. 


THESE COMMANDS ARE GROUPED INTO FOUR SECTIONS AS FOLLOWS: 


(1) SINGLE CHARACTER eer k eee t A ee ASSOCIATED DATA). 
COMMAND(S) 2',*3! ARE ENTERE BY PRESSING FOUR KEY'S AS 


FOLLOWS: 
(B) =DATA BUFFER KEY, (I)=CONSOLE INTERRUPT KEY. 
COHMAND KEY SEQUENCE DESCRIPTION 
2 (B),2, (I), (1) IGNORE ERROR LIMIT. 


| | ee ont Cae CORMLEE INTERRUPT CAUSES ECP TO 


MA 

CP WILL "ON CONDITION' TAKE THE '2? 
MMAND. IF YOU WANT TO CHANGE: 

ECT THE DATA BUFFER By CHANGE THE VALUE 
THE RIGHTMOST HEXADECIMAL CHARACTER 
T S) 12 THROUGH 15) AND PRESS 
ERRUPT (I). THIS WILL TRANSHET A 
ELETE'. START THE COMMAND SEQUENCE AGAIN. 
tT THE COMMAND CHARACTER (2) 
(S) 12-15 OF THE DATA BUFFER. 
ECT THE DATA BUFFER FOR 
/OPTION ENTRY. 


Af} RESET ERROR LIMIT OPTION. 
g 
go 
¢ 





hie ot 


ee ae 
eH 
| 


COMO -F.0ON 0h 


i 

CO 

By «3 

76 CONTINUE 

vf STOP SYSTEM TEST. 
DUMP SYSTEM TEST INFORMATION. 


NOTE: COMMAND 8 IS NOT RECOGNIZED WITHOUT AN ALTERNATE CONSOLE . 


ous 


HA 


IN 
IN 
L 
MA 
I 
I 
I 
Re 


CO ~JOV 


(2) COMMAND(S) NEEDING A PROGRAM NAME OR DEVICE ADDRESS. 
COMMAND (S) *9" AND 'B' CAUSE ECP TO LOAD OR TERMINATE A PROGRAM, THEREFORE 
THE FOUR DIGIT PROGRAM ID OR TWO DIGIT DEVICE ADDRESS MUST BE SOPPLIED WiITf 
THE COMMAND CHARACTER. 
(B)=DATA BUFFER KEY, (I)=CONSOLE INTERRUPT KEY. 
COMMAND KEY SEQUENCE DESCRIPTION 
B (B) By (I) ¢ (B) Xe %eXeX, (I), (Z) LOAD & GO PROGRAM YZXX 
a OR DEVICE ADDRESS YZ 


[ t 4 ~| SECOND CONSECUTIVE INTERRUPT, 
| ECP WILL EXECUTE THE COMMAND. 
_| ECP HAS ‘ON CONDITION' TAKEN 
THE COMMAND. FOR ‘DELETE? 
SEE COMMAND '2! ABOVE. 
_| PROGRAM/DEVICE ADDRES 
YZ=DEVICE ADDRESS XX=00 
SELECT DATA BUFFER FOR ENTRY. 
___.JCAUSES ECP TO READ THE COMMAND. 
BECAUSE COMMAND="9-B-F* ECP NEEDS DATA. 
[INSERT COMMAND 'B' INTO DATA BUFFER. 
_{WILL SELECT THE DATA BUFFER FOR COMMAND ENTRY. 


9 B) o9e (I) » (B) e Ye ZeX_Xy (I), (I TERMINATE DEVICE ADDRESS 
( de « ( ee | de g“ae"e r ( )o ( ) YZ FROM SYSTEM TEST. 
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(3) COMMAND(S) NEEDING A VARIABLE AMOUNT OF DATA. 


COMMAND *D* DUMP STORAGE NEEDS TWO WORDS OF DATA --> A FROM ADDRESS 
FOLLOWED BY THE TO ADDRESS. 


THE "D* COMMAND CAN BE ENTERED AS FOLLOWS: 
(3 ALTERNATE CONSOLE -> 'D FFFFTTTT* OR 'D FFFF TTTT 
2) PROGRAMMERS CONSOLE <-> (B),D, (I), (B) eFoFeFeFe (1) eo (B) oTeTeTeT,e (I) » (1) 


COMMAND *F* CAN NEED FROM ONE TO FIFTEEN "WORDS! OF REPLY DATA 
THIS COMMAND IS ENTERED AS FOLLOWS: 


(B) =DATA BUFFER KEY, (I) =CONSOLE INTERRUPT KEY,< >=OPTIONAL ENTRY. 
COMMAND ‘F*, REPLY TO PROGRAM. 


ALL UTILITY AND CONTROL PROGRAMS MAY REQUEST ‘REPLY DATA (DEVICE ADDRESS, 
TEST DATA, AND SO ON.) THIS IS DONE BY THE ‘F* COMMAND. 


0 eZ (HY (0) Ee Ea Ee Ke (1) C10) oF eX oX/Xy (I) -> (I) 
| INSERT 6 = FIFTEEN 


“~~{ (BECAUSE THE 
epee MORE WORDS OF 
REPL ATA. 
___{FIRST WORD OF REPLY DATA. IF ONLY TWO 
CHARACTERS WERE REQUESTED INSERT XX00.) 
NUMBER ENTRY. PROGRAM CAN REQUEST UP TO 
FIFTEEN WORDS OF REPLY DATA (ENTRY = ‘FF*). 


(4) COMMAND(S) USED TO ANSWER A QUESTION. 


COMMAND *1" WILL ANSWER A QUESTION ‘'YES*. 
COMMAND "Of WILL ANSWER A QUESTION ‘*NO!, 


1 B),1,(I),(I ANSWER QUESTION YES. 

0 B) 9,{1I), (I ANSWER QUESTION NO. 
THE CONSOLE/PROCESSING UNIT HARDWARE INTERFACE IS SUCH THAT YOU MAY FIND IT 
DIFFICULT TO CAUSE AN INTERRUPT FROM THE PROGRAMMER CONSOLE WHEN PROGRAMS 
ARE EXECUTING. PRESS THE INTERRUPT KEY SLOWLY --- WHEN THE INTERRUPT IS 
TAKEN THE AUDIBLE DEVICE WILL SOUND. 
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05.02.00 HALT AND DATA CODES: 


HALT CODES HAVE BEEN ASSOCIATED WITH A DEVICE WHERE POSSIBLE. (SEE MAP 0012) 
A REFERENCE FOR PROGRAM HALTS FOLLOWS: 
HALT CODES PROGRAM AND REFERENCE 


3400-341F ECP SEE SECTION 04.01.00 MAP 0015 
3420-342F SYSTEM IPL PARITY CHECK SEE SECTION 02.02.00 MAP 0015 
3430-343F SYSTEM TEST SEE SECTION 02.01.00 MAP 0016 
3460-34 7F SYSTEM TEST UTILITY SEE SECTION eta at ee MAP 0016 
3480-34DF FRIEND TEST SEE SECTION 02.02.00 MAP 0017 
REPLY WITH "1", "0", "6", OR DATA AS NEEDED. 
IF YOU ARE USING THE C.E. MAINTENANCE CONSOLE: 
VERIFY THE MACHINE AFTER REMOVING THE CONSOLE: 
SET THE MODE SWITCH TO ‘'DIAG'‘., 
OBSERVE THE IPL INDICATOR AS YOU IPL THE DIAGNOSTIC DISKETTE. 
THE IPL INDICATOR SHOULD FLASH ‘ON' THEN ‘OFF* AND THE RUN INDICATOR SHOULD 
REMAIN ‘ON'. IF THE IPL INDICATOR DOES NOT FLASH, OR THE ‘RUN!’ INDICATOR DOES 
NOT REMAIN 'ON', A FAILURE HAS OCCURRED. CHECK THE SEATING OF THE CARD(S) AND/OR 
CABLE(S) WHICH AAY HAVE BEEN LOOSENED AS THE RESULT OF REMOVING THE MAINTENANCE 
CONSOLE. 
Suee owen MODE SWITCH TO ITS ORIGINAL PLACE BEFORE RETURNING THE SYSTEM TO THE 


GC ak oR ak a ik 
kkKKK CAUTION *#* 4k 
a tt de i fc a a ak a ke kc oo 


If IS RECOMMENDED THAT THE C.E. MAINTENANCE CONSOLE NEVER BE LEFT INSTALLED 
WHILE THE CUSTOMER PROGRAM IS EXECUTING. THIS IS BECAUSE A CONSOLE INTERRUPT 
IS A CLASS _INTERRUPT'* WHICH STARTS HARDWARE ACTION TO STORE THE LEVEL 
CONTROL BLOCK AND BRANCH fo AN INTERRUPT ROUTINE. IF THE CUSTOMER PROGRAM 
DOES NOT INITIALIZE STORAGE IN PREPARATION FOR A CONSOLE INTERRUPT, THE 
RESULTS ARE NOT PREDICTABLE. 
06.00.00 SYSTEM TEST 
START UP AND EXECUTION ~--~- SEE MAP 0016 
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ate oe ah fe fe ae he 2 fee fe ae 2h fe afc ac af 2c afc ae ae akc ake ae fe af ake ah kc ah afc afc afc ae afc age afe afc fc afc fe afc afc 24 he fe ae af afc fc ie afc aie 2h fe sik ake she afc fe afc af fe ee afc ae aie ac af afc ake ae ate ae afc ake ac afc aie 3k 3h 3k akc 
Me oc ae aie fe ate fe a ok he ae ae afc fc ake fe ae fe 2 afc ake fe 2h fe ate 2 ate aye a afc ae ate ah ae she ah af ah afc afc afc 3 3 ake fe a ae af afc ae afc afc af ae a aie ate fe ax ate ac ae af afc 3c ok ae aie ake afe aft afc afc afc Oe ic ae afc 2 aie fe akc fe 


ak ak kK 
2 2 afc 
ae 1 a kK 
%* CCCCCCCC AAAAAAAA UU UU TITTTTTITT IITIIIIIIII OOOOOO00oo NN NN ** 
** CCCCCCCCCC AAAAAAAAAA UU U0 TITTTTITTT IIIIIIIIII OQOOOOO00OO NNN NN *% 
**k CC CC AA AA UU Ud TT II oo OO NNNN NN ** 
xx CC AA AA UU UU TT II 0O OO NN NW NN ** 
*¥*x CC AAAAAAAAAA UU UU TT II 00 OO NN NN NN ** 
**x CC AAAAAAAAAA UU UU TT II 00 OO NN NN NN ** 
*x* CC AA AA ug TT II oo OO NN NNNN ** 
** CC CC AA AA UU TT If 00 OO NN NNN ** 
** CCCCCCCCCC AA AA UUUUUUUUUU TT ITITIIIIII OOOOOCC0COO NN NN ** 
raps CCCCCCCC AA AA UUUUUUUU TT IIIIIIIIII OOOOO00C00O NN N viet 
#e 3hc ac ak 
a ok 2k 
* 4 3 2 
x*k A) --- RECORD, FOR FUTURE REFERENCE, ALL AUTO SYSTEM TEST DEVICE ADDRESS * 
ae aK AND THEIR RESPECTIVE DEVICE TYPES IN THE TABLE SUPPLIED ON THE * % 
% FOLLOWING PAGE. a 
i 3 ac oe 
ak 3 ae 
*x* By) --- AT FIRST INSTALLATION THE SYSTEM TEST DISKETTE SHOULD BE CONFIGURED % 
a ok BY THE DCP OA adalat | DISKETTE. USE PROGRAM ID U38FO <CONFIGURATION ** 
ie PROGRAM> OPTION - D - TO COPY THE CONFIGURATION TABLE) ne 
x 2k 
**k CC) --- WHEN AN ENTRY IN THE CONFIGURATION TABLE HAS BEEN IN ANY ea Sapa” % 
 % . OR A NEW ONE ADDED. UTILITY U34F8 MUST BE EXECUTED TO ADD ai 3 
* ENTRY TO THE SYSTEM TEST AUTO TEST RUN. THIS IS COMPLETED BY preset aE 
ne DELETING THEN ADDING EITHER THE CHANGED OR ADDED ENTRY. ca 
K ak 
**x DPD) --- IF THE SYSTEM TEST IS TO BE EXECUTED AFTER RUNNING FRIEND THE SYSTEMS * & 
ee MUST AGAIN BE IPL*ED. IF THIS IS NOT DONE A PROGRAM CHECK WILL OCCUR. = 
2k afc 3 3c 
**k EE) «-- WHILE SYSTEM TEST IS RUNNING THE PROGRAMMER CONSOLE WILL BE USED AS a He 
a 3 AN INDICATOR TO THE OPERATOR THAT THE SYSTEM IS IN OPERATION. IF THE 3K 3 
ek LEDS ARE NOT INDICATING ACTION THE SYSTEM IS STOPPED AND WAITING FOR aie 3k 
% % ACTION BY THE OPERATOR OR, IF THE FLOATING POINT TEST IS ACTIVE, MAY 3c ak 
ie BE IN A PROCESSING UNIT LOOP. THE LEDS SHOULD CONTAIN OFOF OR FOFO. os 
a ak ae 
xx FF) --- WHEN A DEVICE ADDRESS IS REQUESTED, AND IF THE DEVICE ADDRESS IS te 3K 
%* CHAINED TO ANOTHER a THE ONLY ACCEPTABLE ADDRESS IS THE BASE 3K 
% ADDRESS OF THAT GROUP. WHEN THE BASE ADDRESS IS INDICATED ALL a a 
vip ADDRESSES OF THE CHAINED GROUP ARE SELECTED. pil 
ae akc ae 
**x G) --- THE FLOATING POINT FEATURE (DEVICE TYPE ot IS NOT ASSOCIATED WITH ake tk 
ik ANY DEVICE ADDRESS. BUT A DEVICE ADDRESS MUST BE ASSIGNED TO THE a she 
% oe FLOATING POINT FEATURE (THROUGH THE CONFIGURATION TABLE) SINCE THE a He 
7% 3k SYSTEM TEST SUPERVISOR (ID eee HAS SPECIFIED ALL INPUT AND OUTPUT 3 3 
%K tk ITO BE RELATIVE TO GIVEN DEVICE ADDRESSES. THIS DEVICE ADDRESS MUST ae 
* BE A DEVICE ADDRESS NOT ALREADY USED (IN ANY WAY) BY THE SYSTEH. He 
* a WHEN THIS IS DONE (THROUGH THE USE OF THE UTILITY PROGRAM ae akc 
* ele} THE MODULE USED TO TEST THE FLOATING POINT FEATURE CAN THEN a 
ee BE REFERENCED BY ITS OWN IDENTIFIABLE DEVICE ADDRESS. vt 
a 2 a 2K 
** H) -~- WHEN A PROGRAMMERS CONSOLE IS THE ONLY CONSOLE er THREE (3) 2k 2c 
LEVEL THREE (3 WILL CONTAIN INFORMATION NEEDED B THE US * 
* ey IS --- GISTER THREE LEVEL THREE IS ALWAYS THe INDICATED * % 
* & NFORMATION REGISTER)  & 
1 3 a 2 
a x a afc 
** IT) --- SYSTEM TEST See TEST SPECIFICATIONS: 
a 2k 1) FLOATING NT ~~ MUST BE ASSIGNED A DEVICE ADDRESS (SEE G ABOVE) .** 
* 2) TWO CHANNEL. SWITCH -- THE aa a on MUST BE IN MANUAL MODE. mw 
3) 4966 -- MUST HAVE ae 1 23 DISKETTES INSTALLED. % 
 & 4) 4974 -- SHOULD NEVER RUN ah A sok ER USING MULTIPART PAPER. * 
5) 4982 -- MUST HAVE A FEATURE CARD PLUGGED INTO ITS BASE ADDRESS. * 
aA 6) 5250 -- WILL ONLY TEST TWO WORK STATION ADDRESS (ONE OF EACH TYPE). * 
a 1 2 2 
2k 2 i 
xe wc 2% 


24e afc he ae 2 afc 2c af ac ae ade ae ake ae 2K af afc a ac aie cafe aie ade ate ake fe ake ae age afc ae ape ake ate ake ae ake age ake ate ae afc a a ae ae afc fe a ake af ae afc fe i ae ae afc af akc fe a ae he aie ic a ake ate 3c afc a af ac 2c ee afc afk akc ak ak 2k 
He ae he ae ake fe ae 2 ake fe ake ake ac fe afc af fe 2h afc ofeach afc af ae ake age af afc af 2k ofc aie afe afe afc ale af afc ae ae afc afc afc afc ae afc fe ae ae afe afc ate ac ae ae afc afc ae cafe ofc ade ae ae ae akc afc he ake af ae afc ac fe 2 24 ac 2K a 2c afk ofc 
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AUTO SYSTEM TEST HISTORY TABLE 


DATE 
JF LIST HERE DEVICE ADDRESS AND ASSOCIATED DEVICE TYPE ----> ADDR / 
CHG / TYPE 
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01.00.00 INTRODUCTION. 


POSE OF THIS MAP IS TO AID THE C.E. IN DETERMINING A PROBLEM ON THE 


THE PUR 
SYSTEM THAT THE BASIC DIAGNOSTIC DISKETTE FAILED TO SENSE. THE TWO MAIN AREAS 
THIS MAP IS RELATIVE TO ARE: 
A) INTERMITTENT PROBLEMS NOT FOUND BY THE BASIC DEVICE MAPS 
B ONE DEVICE AFFECTING ANOTHER DEVICE THROUGH THE CHANNEL AND NOT FOUND BY 
THE BASIC DEVICE MAPS 
IT IS ASSUMED THAT ON ENTERING THIS MAP EITHER REASON {a 98 IS VALID. IN 
STARTING SYSTEM TEST USE ALL SUITABLE DEVICE Pea FOR (e E SUSPECT SYSTEM 
AND IF AN ERROR IS ay pe Keau TEL THE ERROR AND UITABLE ACTION. IF THE 
ERROR IS CAUSED FOR S ABOVE THEN THE INDICATED ERROR MAY OR MAY NOT BE 
THE VALID ERROR AND PRORE APRRO OCATING WILL BE NEEDED. 
ZT IS _ FROM THIS POINT THAT MUST FREELANCE FOR IT IS NOT POSSIBLE TO 
DESCRIBE THROUGH EXACT PROGEDURE(S) EITHER THE EXACT CAUSE OR REASON(S) FOR THE 
ERROR. ERROR LOCATION IS THEREFOR EFT TO THE C.E. USING: 
1) SYSTEM TEST ISOLATING METHOD 
Horan re PROGRAMS ae aro OUT OF STORAGE) 
2) FRIEND wae THE NOTE oe 
ATTEMPT TO DUPLICATE. THE RROR INDICATED BY THE CUSTOMER) 
REFERENCE MAP 0017) 
3) PROBLEM ae ane b07G PROCEDURE 
ae hor Us MAP 0 oy 
DO NOT USE THIS REFERENCE UNLESS SYSTEM TEST OR FRIEND INDICATES AN ERROR) 
WHEN THE CE DOES FIND AN ERROR THE SUSPECT UNIT SHOULD BE EXCHANGED AND THE 
REPAIR VERIFIED. FIRST USING THE BASIC DEVICE TEST THEN USING THE TEST, IN 
SYSTEM TEST, WHERE THE ERROR WAS FOUND IN THE FIRST PLACE. 


2H He He Hee He ee af 2 ae af ie ake he a ake fe 2 af fe a ae ak ake ah ae ik akc ae ake ake af ake af a a af 2k a ae ic ac oc 2c akc a ae af ac ae ae a afc af 24 a 2c a fe fc af 2 ake ke afc ae ae af ae ake ake ac afc ae af afc ae 3 


* 
* 
k 
* 
xk 
* 


*« 
* 
te 
NOTE: IF SYSTEM TEST IS TO BE EXECUTED AFTER FRIEND, YOU MUST * 
IPL THE SYSTEM AGAIN, OR A PROGRAM CHECK WILL OCCOR. : 

* 

* 


2fe He A fe ae He Ac ce ie oe 2c ae a oe fc 2c of 2k 2 fe cafe fe fe of 2c abe fe ake afc aie ie ake afe ate afc ade 2c fe afc ae ae ake ae afc ate ae af ae afc akc ae ate ake 2 ac ake afc a ake afc afc a af akc afe ate akc akc ake akc afc af afc afc afc af afc afc ae 
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02.00.00 SYSTEM TEST START UP AND EXECUTION 


ra 
a 
x 
* 
5 
* 
aK 
ste 
a 
x 
fe 
* 
* 
xk 
ac 
i 
ra 
ak 
x 
x 


AT FIRST INSTALLATION: 

- COPY THE CONFIGURATION TABLE FROM THE BASIC TO THE SYSTEM TEST DISKETTE. 

~ IPL THE SYSTEM TEST DISKETTE. 

BEE noe Oa AUTO SYSTEM TEST BY EXECUTING PROGRAM NAME 34F8 BEFORE CONTINUING. 
N 


(SEE SECTI .00 

WHEN THE AUTO TEST TABLE HAS BEEN INITIALIZED: 

- START PROGRAM 3410. 

WHEN 3410 HAS BEEN STARTED IT WILL AUTOMATICALLY READ IN THE TEST (S) AND START 
THEM. THE ONLY VALID COMMAND(S) THAT WILL BE PERMITTED AFTER THIS ARE: 


(A) ANSWER A QUESTION NO 
0 --- THIS COMMAND WILL ANSWER ANY QUESTION WITH A "NO": <(B),0,(I),(I)> 


(B) ANSWER ee eet es YES 
1 THIS COMMAND WILL ANSWER ANY QUESTION WITH A "YES*: <(B),1, (I), (1I)> 


(C) STOP ERROR COUNTING 
2 -*-' THIS COMMAND WILL STOP ALL ERROR COUNTING. (NO ERROR LIMIT OF 5) 
<(B) 2, (1), (I) > 


(D) CONTINUE ERROR COUNTING 
3 +*- THIS COMMAND WILL START AGAIN THE ERROR LIMIT OF 5 
<(B) 636 (1) (1) > 


(E) CONTINUE Se CRan 
6 ~-- THIS COMMAND, USED WITH THE PROGRAMMER CONSOLE, WILL LET THE 
OPERATOR COLLECT ALL DATA THEN CONTINUE WHERE INTERRUPTED 
¢ 


(F) TERMINATE 5 (SEOR) SYSTEM TEST 
7 THES | 0 OBBAND GILL TERMINATE ALL ACTIVE DEVICE ADDRESSES AND SYSTEM TEST. 
g 


(G) DISPLAY EXECUTION AND ERROR recone i 
8 --- THIS WILL DISPLAY THE EXECUTION AND ERROR peacer OF THE SYSTEM 
(COMMAND NOT VALID WITHOUT AN ALTERNATE CONSOLE) 


(H) TERMINATE DEVICE ADDRESS 
9 DA -- WHERE DA IS ANY DEVICE NOW ACTIVE 
< (B) 9, (I) (B) »De-A,X,X, (1), (I) > 


(I) START DEVICE ADDRESS 
B DA ~~ WHERE DA IS ANY DEVICE 
AND ATTACHED TO. A vente S 
< (B) 6B, (I) « (B) -D,A,X,X, (I 
Cc 


(J) DUMP STORAGE TO THE ALTERNATE CON 
D XXXX YYYY - WHERE XXXX =_FROM A 
(COMMAND NOT LID WITHOUT A 

OR WHEN TH TERNATE CONSOLE I 


LL NOT WORK UNTIL A PRECEDING COMMAND HAS BEEN FULLY 
HE o (TE COMMAND WILL NOT START A PROGRAM UNTIL THE IPL 
ae tea | COMMAND. 
"WHILE HE FOLLOWING IS BEING EXECUTED: 
ION I5 DISPLAYED TO THE OPERATOR AND WAS NOT ANSWERED 
NG LOADED TO START EXECUTION 
et INFO ON IS BEING DISPLAYED TO THE OPERATOR BY A CONSOLE 
DEVICE ADDRESS IS BEING TERMINATED. 


ADD 
YST 
)e( 
S 
D 


TO ADDRESS 
LE 


X 
VA 
AL 
WI 

oon 


et Op] 


Be aie ae ake he fe afc aie afc afc 2h aie afe af af ae ale afe afe ae afc ae ax dhe ah ahe ae ah ah he fx he ah afe afc aie ahe aie afk six afc aye afc fe afe fe Bk ie af Die ofe ae afe he AKC fe he OIE ae she ME she ae aie af a4 3K ae Fe aie aie she aie ah ae aye he ae ax ae ac 2 2K 
NOTES WHILE THE SYSTEM TEST IS RUNNING THE PROGRAMMER CONSOLE LEDS WILL * 

BE USED AS AN INDICATOR TO THE OPERATOR THAT THE SYSTEM IS IN * 

OPERATION. IF THE LEDS ARE NOT INDICATING ACTION AND ONE OF THE * 

ABOVE 4 HALT{S) ARE NOT ACTIVE THE SYSTEM COULD BE IN AN ERROR * 

CONDITION doar HUNG IN A FLOATING POINT LOOP). TO DETERMINE IF THIS * 

IS THE CONDITION, WAIT FOR DS TO SHOW "TEST IS RUNNING’, TH * 

LEDS WILL CONTAIN X*FOFO?® OR X*OFOF* AND WILL CHANGE IN 15 SECONDS. : 

NOTE: WHEN A DEVICE ADDRESS IS pene te! ae THROUGH A *B* OR ‘'9# * 

Ore GD 4b. IF THE DEVICE ADDRESS IS C sl NOTHER ADDRESS (SEE * 

AP 0010 SECTION nae ccon THEN THE ONLY. ACCEPTABLE ADDRESS IS THE % 

BASE ADDRESS OF THAT GROUP. WHEN THE BASE ADDRESS IS INDICATED, * 

ALL ADDRESSES OF THE CHAINED GROUP ARE SELECTED. . 

NOTE: WHEN AN ENTRY IN THE CONFIGURATION TABLE HAS BEEN CHANGED OR A NEW * 

ONE ADDED, UTILITY U34F8 MUST BE EXECUTED TO ADD THIS NEW ENTRY TO THE* 

EM TEST AUTO RUN. THIS IS DONE BY FIRST DELETING THEN ADDING THE * 

CHANGED/ADDED ENTRY. * 

ME AE A He ae HCC HC fe HE HE eae he She ae he he he af 2H fe fe fe afc ae HE ie ie OK Oe She ie ae aie afc Sfx ae afc ah ake af she aie ae af ae aie ae 2c ae fe af ofc oe afc a 4c a She afc of fe ahe afc fe he fe ale afc he afc afc ae af afc af afc afc af ah ofc ae 
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00 SYSTEM TEST HALT CODES. (-~-) = PROGRAMMER CONSOLE DATA 


Me ae fe ae 2 he ae 2h af aye fc fe ofeach aye fe afc ah ae ai 3 3K he ah afc akc aye ate ale she af he ake afc ac ote ae ale ae fe she she aie fe he ik ik he ae ake ake he afk ix afc fe age afc aft fe ae af ah aie aie he ae fe fe afc afc fe ae afc aie aye af fe afc aye afc afc ake 


HER RHHRE 


2} 


* 
# 
>>>>>>>> NOTE <<<<<ccc<¢ ae 

R3 -> SHOULD BE INTERPRETED AS werr- REGISTER THREE IS POINTING AT. 3 
@*x? AFTER THE HALT CODE INDICATES THAT WHEN THE MESSAGE IS DECODED ie 
THE PROGRAH IS STARTED WITH A RESUME (6) COMMAND. : 
* 

*% 


Mi te Me he fe afe ae ae ee he cafe ae afc af he afk fc ake afc afc ae a ake se afc afc aft af ae she she he aie she afc fe afc fe aye afc a 2c he aie afc ie oe fe ae aK fe fe ae fe 2h he she Oe ae fe She he as Se 3H 2 aie ae ale ahs ie he ofc ae fe 3h ae aie aie aie oe 


3430 


3431 


3432* 


3433* 


Z434* 


3435 


3436 


3437 


3438* 


3439* 


343A* 


343B* 


343C* 


343D* 


WAIT 

THE OPERATOR IS REQUESTED TO WAIT UNTIL THE PRECEDING OPERATION IS COMPLETE 
NOT VALID REQUEST 

THE OPERATOR ENTERED ILLEGAL DATA OR NO DATA 
XX NOT FOUND 


ADDRESS) XX IS NOT UNDER TEST AT PRESENT. (R3  -> HEXADECIMAL DEVICE 


XX TERM 
DEVICE ADDRESS XX HAS TERMINATED (R3 -> HEXADECIMAL DEVICE ADDRESS) 
PNF 


E PROGRAM TO TES 
SKETTE. (R3 -> HEX 


NO PROGRAH ACTION 


THE LAST DEVICE OPERATING UNDER SYSTEM TEST HAS TERMINATED, 
BUT S¥STEM TEST IS STILL ACTIVE 


PNF 


uguF4) ~ TEST TABLE CAN NOT BE FOUND ON THE DISKETTE. (PROGRAM ID EQUAL 


NO STORAGE 
THERE IS NOT ENOUGH STORAGE TO START ANOTHER PROGRAH. 
ALL THE DEVICE CONFIGURATION DATA I8'TO SMALL. 
XX ACTIVE ~ NOT VALID REQUEST 
DEVICE ADDRESS XX IS ALREADY ACTIVE. (R3 -> HEXADECIMNAL DEVICE ADDRESS) 
XX ST 
DEVICE ADDRESS XX HAS STARTED. (R3 -> HEXADECIMAL DEVICE ADDRESS) 
XX MUST TERA 


DEVICE ADDRESS XX (IPL DEVICE) MUST TERM BEFORE STARTING ANOTHER DEVICE (R3 ~-> 
HEXADECIMAL DEVICE ADDRESS) 


XX - NOT VALID DEVICE TYPE 


DEVICE ADDRESS XX IS NOT COMPATIBLE WITH SYSTEM TEST. (R3 +> HEXADECIAAL 
DEVICE ADDRESS) 


TH T THE Meta; DEVICE ADDRESS CAN NOT BE FOUND ON THE 
DI ADECIMAL DEVICE ADDRESS) 


* KK BRROR* KH *X 

AN ERROR OCCURRED WHILE TESTING. te? -> THE ERROR es a AS ARE DESCRIBED 
IN SECTION 04.00.00 THIS MAP. THE F ELD {5} ARE Nena N SEQUENCE FROM THE 
FLAG FEELD THROUGH THE ERROR NUMBER FIEL N HEXA 

THE DEVICE TYPE AND DEVICE ADDRESS CAN BE FOUND IN EBCDIC AT THE ADDRESS THAT 
IS OBTAINED WHEN ZEROING OUT THE LAST TWO DIGITS OF R3. THAT IS IF R3 IS 
pecan TO 3262 THEN THE DEVICE TYPE AND ADDRESS CAN BE _ OBTAINED STARTING Af 
OC.) 3200, HEXADECIMAL ROUTINE AT 320A, AND HEXADECIMNAL CHECKPOINT AT 


XX ERROR LIMIT 
DEVICE ADDRESS XX HAS REACHED ITS ERROR LIMIT. (R3 -> EBCDIC DEVICE ADDRESS) 
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03.00.00 SYSTEM TEST UTILITY ~ PROGRAM NAME 34F8 


ADD (A Al A2 A3 Al---=--) 


THIS COMMAND WILL ADD TO THE TABLE (IF VALID) ALL GIVEN DEVICE ADDRESSES 
<(B) ¢ 1,F, (1) » (B) sApX,VeYy (L), (1) > YY=DEVICE ADDRESS 


LIST (B) 


THIS COMMAND WILL LIST ALL ACTIVE DEVICE ADDRESSES 
<(B),1,F, (1) - (B) -ByeX,X,X, (I), (I) > 


KEEP (C) 
THIS COMMAND WILL KEEP THE UPDATED TABLE ON THE DISKETTE FOR USE 
BY THE 3410 PROGRAM (IF NOT GIVEN, ALL UPDATING IS LOST) 
<(B) tee (I) ¢ (B) eC pXoXeXe (1), (1)> 
DELETE (D A1 A2 A3 Au----- ) 


THIS COMMAND WILL DELETE ALL ACTIVE DEVICE ADDRESSES GIVEN 
<(B) ,1/F, (I) » (B) eDeXeYeY, (1), (1) > YY=DEVICE ADDRESS 


END (E) 


THIS COMMAND WILL TERMINATE PROG 8 
—<(B) 16 Fy (I), (3) Ey I), (1)> 
INITIALIZE (F) 


THIS COMMAND WILL INITIALIZE THE TABLE AND 
SET THE MAXIMUM QUANTITY OF ACTIVE PROGRAMS. 
<(B), WF, (1) ¢ (B) os FeX/XeX, (1), (1) > 


03.01.00 SYSTEM TEST UTILITY HALT CODES. (~--) = PROGRAMMER CONSOLE DATA 


WHEN IT IS NECESSARY TO INITIALIZE OR CHANGE THE AUTO SYSTEM TEST THIS PROGRAM 
MUST BE STARTED. IT*S PURPOSE IS TO INITIALIZE A TABLE ae THAT THE SYSTEM 
TEST PROGRAM WILL USE, TO DETERMINE THE DEVICE ADDRESS’ AN TYPE OF CONNECTED 
DEVICE TO AUTOMATICALLY TEST. WHEN THIS PROGRAM IS STARTED IT WILL INFORM THE 
OPERATOR OF THE MAXIMUM QUANTITY OF TESTED DEVICES THAT CAN BE INCLUDED IN HE 
PROCESSING UNIT 428 ETON TaY one AND HOW MANY TEST(S) (IN HEXADECIMAL) ARE NOW 
ASSIGNED. THE VALID OPTION(S) WI fi THIS UTILITY ARE: 
NOTE: 

IF THE AUTO TEST TABLE HAS NEVER BEEN INITIALIZED, OR IF THE COMMAND IS 

ISSUED, THIS PROGRAM WILL AUTOMATICALLY ADD (IF POSSIBLE ALL THE VALID 

DEVICE ADDRESSES Neuer” THE ALTERNATE CONSOLE AND THOSE DEVICES ATTACHED 

TO THE COMMON I/O CHANNEL THROUGH A TWO CHANNEL rae TO THE AUTO TEST 

INSTALLED). ASSIGN A DEVICE ADDRESS TO THE FLOATING POINT FEATURE (IF 


NOTE: WHEN AN ENTRY IN THE CONFIGURATION TABLE HAS BEEN IN ANY WAY CHANGED 
OR A NEW ENTRY HAS BEEN ADDED. UTILITY U34F8 MUST BE EXECUTED TO ADD THIS 
ENTRY TO SYSTEM TEST'S AUTO TEST RUN. THIS IS COMPLETED BY FIRST DELETING 
THEN ADDING THE CHANGED/ADDED ENTRY. 


ME BE 2 2 aK ak 3 ik Sic aC A ae A ac ic ak IC IE KC a OC aC OK ie aie aK aie aie a aK af aie ah aie af a afc afe ae ae ake ac ac aC ae he SK ae fe he af Ok afc afc ah fe ae ahs ale afc he ae Oc afc ake ae ak afc afe ae afe oe afc Sie aie aC aK afc of ae ah fe a 


22>>>P>>>> NOTE <X<K<<KK 

5} R3 -> SHOULD BE INTERPRETED AS ----- REGISTER THREE IS POINTING AT. 

2 A *** AFTER THE HALT CODE INDICATES THAT WHEN THE MESSAGE IS DECODED 
THE PROGRAM IS STARTED WITH A RESUME (6) COMMAND. 


KEHRHKKKEHK 


2He fee eK ee HE OK ie He ae ae ae 2c fe ke a fe ae ae aie a 2c ac ie hc he afc af afc oie ae Ke af ake afc oe af afc ae fe afc aie Nic fk af akc 2 fe fe af ae aie af 3h ah 2c he ie A SI aE fe Ok 2 a fe fe af ah af ofc ak a af a aie ok 2K a oe 2 


3460* STORAGE INDICATES UP TO *XXXX* CONCURRENTLY EXECUTING PROGRAMS 


* 
a 
ke 
ae 
* 
oH 
xe 
Es 


THIS INDICATES THE MAXIMUM NUMBER OF PROGRAMS IN STORAGE. (R3 -> XXXX IN 


HEXADECIMAL) 
3461* THIS SYSTEM IS NOW CONFIGURED TO EXECUTE XXXX DEVICE ADDRESS (S). 


THIS INDICATES THE NUMBER OF DEVICES NOW ACTIVE IN THE AUTO SYSTEM TEST. 
(R3 -> XXXX IN HEXADECIMAL) 
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3462* ENTER OPTIONS 

ENTER FROM THE MENU THE OPTION DESIRED. 
3463* NOT VALID REQUEST 

AN ILLEGAL OPTION WAS SELECTED 
3464* DEVICE ADDRESS ACTIVE 

DEVICE ADDRESS XX --- TYPE YY 
THIS IS A LIST OF ALL DEVICES ACTIVE WHILE AUTO TESTING, WITH XX BEING THE 
DEVICE ADDRESS AND YY BEING THE DEVICE TYPE. 
(R3 = HEXADECIMAL DEVICE ADDRESS, DEVICE TYPE 'XXYY' ) 

3465* XX NOT ADDED ---- TABLE FILLED 


3466* 


3467* 


3468* 


3469* 


346A* 


346B* 


346C* 


346D* 


346E* 


346F* 


3470* 


3471% 


DEVICE ADDRESS XX NOT ADDED INTO TABLE 34F1 BECAUSE THE TABLE IS FILLED (R3 -> 
EBCDIC DEVICE ADDRESS). 


XX NOT FOUND IN SYSTEM CONFIGURATION TABLE 


DEVICE ADDRESS XX IS NOT PRESENT IN THE CONFIGURATION TABLE. (R3 => EBCDIC 
DEVICE ADDRESS). 


XX ILLEGAL DEVICE TYPE FOR SYSTEM TEST 


DEVICE ADDRESS XX IS AN ILLEGAL DEVICE TYPE FOR EXECUTION UNDER SYSTEM TEST 
(R3 -> EBCDIC DEVICE ADDRESS). 


o=EAPTY <= 
A LIST OF THE TABLE WAS REQUESTED AND THE TABLE WAS EMPTY 


XX NOT DELETED --- NOT FOUND 


A eR aTe FOR DELETE WAS TERMINATED BECAUSE THE ENTRY COULD NOT BE LOCATED (R3 
-> EBCDIC DEVICE ADDRESS) 


NOT KEPT ---- ENTER C OR E 
THE OPERATOR ENDED THIS UTILITY AFTER THE TABLE WAS CHANGED, BUT DID NOT KEEP 
IT. IF THE TABLE IS TO BE KEPT, ENTER 'C*. IF THE TABLE IS NOT TO BE _ KEPT 
ENTER END (E) AGAIN. 

KEPT 


THE TABLE HAS BEEN KEPT WITHOUT ERROR 
XX NOT ADDED ---~- DUPLICATE 


DEVICE ADDRESS XX WAS NOT ADDED BECAUSE IT ALREADY OCCURRED IN THE TABLE (R3 
-> EBCDIC DEVICE ADDRESS) 


XX ADDED 
DEVICE ADDRESS XX HAS BEEN ADDED TO THE TABLE (R3 -> EBCDIC DEVICE ADDRESS) 
XX DELETED 


ADDRESS). XX HAS NOW BEEN DELETED FROM THE TABLE (R3 ~-> EBCDIC DEVICE 


READ ERROR -+ COULD NOT READ EITHER U34F1 OR U38F1 


Rear ee ERROR WAS DECODED WHEN ATTEMPTING TO READ INTO STORAGE EITHER INDICATED 


XX [ILLEGAL ~-- CHAINED 


DEVICE ADDRESS XX IS ILLEGAL BECAUSE IT IS NOT THE FIRST ENTRY IN A CHAINED 
GROUP (R3 -> EBCDIC DEVICE ADDRESS) 


XX -~ IS THE DEVICE ADDRESS USED FOR FLOATING POINT 
DEVICE ADDRESS XX HAS BEEN ASSIGNED TO THE FLOATING POINT FEATURE FOR SYSTEM 


TEST REASONS.. WHILE EXECUTING SYSTEM TEST REFERENCE THE FLOATING POINT 
FEATURE WITH THIS ADDRESS 
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04.00.00 SYSTEM TEST ERROR REPORTING METHOD 
WHEN THE SYSTEM TEST HAS DECODED AN ERROR IN ONE OF THE DEVICES, SYSTEM TEST I 
STOPPED WHILE THE ERROR IS REPORTED TO THE OPERATOR BY THE ALTERNATE CONSOLE 
WHEN THE ERROR REPORTING IS COMPLETED, THE TEST WILL CONTINUE WHERE IT LEFT OFF 
ON ALL OTHER DEVICES BUT THE ONE THE ERROR WAS FOUND ON, THIS DEVICE WILL 
CONTINUE FROM THE START OF ITS TEST AND GO FROM THERE. AUTOMATIC TERMINATING OF 
ANY DEVICE UNDER TEST WILL TAKE PLACE WHEN FIVE (2) ace HAVE BEEN FOUND FOR 
THAT DEVICE. UNLESS ERROR COUNTING IS Se COUNDTA AF TERMINATING THE 
DEVICE IS STARTED BY THE OPERATOR ERROR COUNT wit START. AGAIN FOR A MAXIMUM 
OF FIVE {> BEFORE TERMINATING. IF UNDER ANY CONDITION THE OPERATOR WILL WANT TO 
TERMINAT HE DEVICE (OR ANY DEVICE) THE COMMAND "9 DA* MUST BE GIVEN 
TERMINATE DEVICE. 


IF 
IN 


ek 


ETTD 
FLAG 
AAAA 


CNTL 
HHHH 


RSAD 
Iiil 


EXEC 


WHERES 
TT = 


DmOHKUODSFOLWOY DOL OOP OULFOMY 
Hnknnanntinnhnhint anata nan 
oO 
aa 
nN 


bay xy bay Ox) be Od Od Od SIONS SELES 


We He kc ac 2c 


—_— ee owe oe ow 
—_ a> ae am oe 


ERROR IS _ FOUND THE NEEDED DATA WILL BE SENT TO THE OPERATOR. THIS 


AN 
RMATION WILL BE IN THE FOLLOWING FORMAT: 


ERROR* *** * 

A ROUTINE = XXXX CKPT=YYYY 
IOIN ISB INST DEV1 DEV2 DEV3 DEV4 
BBCC DDEE FFFF GGGG GGGG GGGG GGGG 


DCB2 DCB3 DCB4 DCBS5 CHAD BYCT ADDR 
HHHH HHHH HHHH HHHH HHHH HHHH HHH 


CS-2 CS-3 CS-4 CS-5 CS-5 CS-7 CS-8 
ZIII IITI Itig IIII III I1II III 


UTE/ERROR COUNT = PPPPPPPP SSSSSS 


FAILING DEVICE TYPE 


FLOATING POINT 
TWO CHANNEL SWITCH 


TTY 
DISPLAY UNIT 
DISPLAY UNIT 


1/0 
OGRAMMABLE COMMUNICATIONS SUBSYSTEM 
O ATTACHMENT 


ARaAIAMN 


We 6 2 ke ak NOTE: ye a uaS no: genre IS USED TO DETERMINE WHICH 

====> ER TO ANALYZE THE ERROR. THE 
MAD is’ NAMED TTEO, WHERE TT IS AS INDICATED 

FAILING DEVICE ADDRESS 

= ROUTINE NUMBER (SEE SPECIFIC DEVICE INFORMATION THIS MAP) 


CHECKPOINT NUMBER (SEE SPECIFIC DEVICE INFORMATION THIS MAP) 
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AAAA = FLA D (BIT CODED) 
HE IMAL MEANING 
NOT EXPECTED I/0 INTERRUPT 
ERROR CONDITION WAS DECODED 
I/O GIVEN - INTERRUPT EXPECTED 
I/O INTERRUPT WAS RECEIVED 
I/O GIVEN - ERROR INTERRUPT Bee ec aeen 
70 INTERRUPT RECEIVED ON WRONG LEVE 
I/O INTERRUPT EXPECTED NOT RECEIVED (Lost) 
CYCLE STEAL STATUS WAS GIVEN 
CYCLE STEAL STATUS ERROR INTERRUPT RECEIVED 
I/O INTERRUPT GOOD ~ ERROR EXPECTED 
POSSIBLE ERROR EXPECTED 
NO INTERRUPT EXPECTED 
FLOATING POINT DATA TRANSMIT ERROR 
SOFT EXCEPTION TRAP ERROR 
= 1) NOT USED 


BB = CONDITION CODE OF THE LAST I/O INSTRUCTION (7 = GOOD) 
CC = CONDITION CODE OF THE LAST I/O INTERRUPT 


*DD = INTERRUPT STATUS BYTE BIT O = ON INDICATES CYCLE 
STEAL INFORMATION IS AVAILABLE 


*EE = DEVICE ADDRESS 
FFFF = PRINTOUT ADDRESS OF LAST I/0 INSTRUCTION 


GGGG = FOUR WORDS OF DEVICE DATA (SEE SPECIFIC DEVICE 
INFORMATION THIS MAP) 


HHHH = LAST DCB OR IDCB. IF CHAD IS NOT EQUAL TO 0000 THEN 
THE CHAINED DCB WILL BE DISPLAYED AS ADDITIONAL INFORMATION 


Itil CYCLE STEAL INFORMATION IF AVAILABLE (FF INDICATES NO DATA) 


PPPPPPPP = HEXADECIMAL NUMBER OF TIMES THAT EXECUTION WAS PASSED TO 
ROUTINE ONE. (THAT IS THE NUHBER OF PROGRAM STARTS) 


SSSSSS = NUMBER OF ERRORS FOUND WHILE TESTING 


G 
x 


OOODOCOOC OCC OC-ah) & Os 

OOGOCOoO]N LL DOOOOU= 
COONS DOOOCOOOCH O 
=F DOOOOCOCOOCOO00OM 


wd eed med eed od to 
EW 2 OWO OANA EWN OrF 
| 


* NOTE: ae ecca ts STEAL OPERATION ERROR THESE VALUES ARE PLACED 
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IN DECODING THE PRECEDING ERROR DATA THE FIRST AREA TO BE INSPECTED SHOULD BE THE 
OIO CONDITION CODE eee Ee IF THIS IS NOT EQUAL TO SEVEN 07xXxX THEN 
INFORMATION CONNECTED WITH THIS MATERIAL MAY OR MAY NOT BE VALI IF THIS VALUE 
IS EQUAL TO oaeen He oS THEN THE INFORMATION RECEIVED IN THE FLAG, IOIN AND ISB 
eae SHO NDICATE THE TYPE OF ERROR FOUND. (FOR MORE DETAIL SEE THE 
SPECIFI DEVICE SECTION IN THIS MAP. 

WHEN DECODING, THE FIELD ‘INST* WILL GIVE THE Pee oe ADDRESS OF THE LAST TJI/ 
INSTRUCTION. ALL THER ADDRESSES THAT IS, CHAD (CHAIN ADDRESS), ADDR (BUFFER 
ADDRESS) AND RSAD ACHCRE STEAL RESIDUAL ADDRESS) ARE EXACT STORAGE "ADDRESSES IN 
THE PROCESSING UNIT. 
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## ASSU AN ERR Occ D 
05.00.00 SYSTEM TEST SAMPLE SESSION peeecenanteies ### ME AN ERROR URRE 
THE SYSTEM TEST DISKETTE IS IPL'*ED AS PER SECTION 02.00.00 MAP 0015 WITH A E4802 ROUTINE = _ 0003 CHECKPOINT=0001 
CORRECT CONFIGURATION TABLE PRESENT ON THE DISK. THIS TABLE WAS COPIED TO THIS FLAG IOIN B INST DEV1 DEV2 DEV3 DEV4 
DISKETTE BY THE CONFIGURATION PROGRAM*S OPTION ‘'OD®. A SAMPLE SYSTEM TEST 4100 0702 8002 0330 1048 0003 0000 0000 
SESSION {ASSUMING THERE IS NO CHANGE TO THE CONFIGURATION TABLE) IS AS FOLLOWS: CNTL DCB2 DCB3 DCB4 DCB5 CHAD BYCT ADDR 
### ---> NOL PART OF THE SESSION (COMMENT 8005 0849 0000 0000 0000 3634 0000 0000 
$$$ <---> COMMENT IGNORED IF PROGRI MMER CONSOLE ONLY RSAD CS-2 CS-3 CS-4 CS=-5 CS=-6 CS=-7 CS-8 
S39 i223 FRE CHMET Erno eS" Goan dene Se0o BEES Bepe begs Eine bree OBE 
--- I T 
dees tik tad ded aaa ae 2094 2900, 2590,9509 2088 8088 9094 03834 
NOTE: ALL OUTPUT MESSAGES -IN THE FOLLOWING EXAMPLE (NOT EXPECTING A ANSWER = 
MUST BE STARTED WITH <(B),6, (I), (1)> IF AN ALTERNATE CONSOLE IS NOT ATTACHE aaa $$$ OPERATOR CAUSES INTERRUPT 
RDY ° yy) ### ADDRESS 40 IS te BE TERMINATED 
aeoee #44 INITIALIZE SYSTEN, TEST AUTO TABLE 40 TERM econ sn cm 
B 34F8 <(B),B, (I), (B), 8, (I), (I)> 41 TERM ### NOTE CHAINED ENTRY 
U34F8 LOADED ne $$$ OPERATOR CAUSES INTERRUPT 
Tee LOADED DAD ### OPERATOR sal el pee START 4O 
DPGnAGE CHETCATES UP TO *0015* CONCURRENTLY EXECUTING PROGRAMS fo Sv Sec et ie 
THIS SYSTEM IS NOW CONFIGURED TO EXECUTE 0000 DEVICE ADDRESS (S 41 ST ### AGAIN NOTE CHAINED ENTRY 
ENTER OPTIONS nae (S) unos $$$ OPERATOR CAUSES INTERRUPT 
ENTER 
aaa ### MAKE A oc. eo nyey) ### OPERATOR WANTED TO STOP SYSTEM TEST 
FA 10 02 40 <(B),1,F, 7 <(B), 7, (I), (1) > 
<{B),1,F, £5053 10 TERM 
<{B),1,F, ae X, 02 TERM 
10 ADDED 4Q TERM 
02 ADDED 41 TERM 
40 ADDED ### NOTE THAT DEVICE ADDRESS 4O WAS A PT 
41 ADDED ### CHAINED ENTRY WITH 41 ENTER 
ENTER OPTIONS 
ENTER TO DESCRIBE THE SESSION WE WILL ANALYZE THE ERROR INDICATED ABOVE: 
ava ad THE NEW a ee BE KEPT ss (SEE SECTION 04.00.00) 
KEPT (B)o VF, (1) (B) ¢ (1), (1) FROM THE FIRST ERROR ENTRY WE CAN DETERMINE THAT THE DEVICE TYPE IN ERROR IS 
ENTER OPTIONS '4g* AND THAT IT IS AT DEVICE ADDRESS '02', ALSO THE FAILURE OCCURRED IN THIS 
ENTER PROGRAM AT ROUTINE 3 - CHECKPOINT 1. FROM f£HIS WE ARE SENT TO MAP 4&8EO WHERE 
yay) # + # ORT LON COMPLETE - END WE FOLLOW THE STEPS IN THE FOLLOWING SEQUENCE: 
ae <(B),1,F, (1), (B) -E,X,X,X, (1), (I) > 001->002->003->069->070->072->073 ---> 
ENTER THIS INDICATES A CHAINED SEEK AND READ SECTOR ID ERROR 
000 ### WE AR O E START S 
B 3410 C(B) Be (the (Bhed cd leO (tT) it)> reSt THE ABOVE ERROR REPORTING METHOD IS USED THROUGH EACH SYSTEM TEST MODULE. WHEN 
D3410 LOADED : AN ERROR OCCURS SEE SECTION 04.00.00 REMEMBERING THAT ONLY FIVE §2), ERRORS WILL 
St BE RECORDED BEFORE THE DEVICE IN ERROR IS AUTOMATICALLY TERMINATED BY SYSTEM 
U034F1 LOADED TEST. (UNLESS ECP COMMAND 2 WAS GIVEN. REFERENCE HAP 0015 SECTION 03.00.00) 
E4010 LOADED AT 2800 ### DEVICE ADDRESS 10 TYPE 40 LOADED 
E4802 LOADED AT 3200 ### DEVICE ADDRESS 02 TYPE 48 LOADED 
E5040 LOADED AT 3C00 ### DEVICE ADDRESS 40 TYPE 50 LOADED 
IS THERE A TTY ATTACHED TO DA = 10 
ENTER 
aaa ### ASSUME NO 
0 < B) pda) (I)> 
IS THERE A WRAP CABLE CONNECTED’ T0 ba = 10 
DOO ### ASSUM 
1 é(B) el, (1), (ty > 
Oe aie 2 2c ae af ak akc afc af afc ale he afc ak a oi afc ae ak aie afc ak ok ae ate ofc ak ate afc oe ale ai ke afc fe afc ie afc ai aie ate afc afc aie afk afe oft ae af afc ofc aft af af aie afc afc af afc aie 2c afc a fe fe aie ale ake ac afe afe afc ae ak afc afc afc afe afc fc ae akc afc 
4 , 
x * 
* NOTE: AT THIS POINT IN TIME SYSTEM TEST WILL START TO EXECUTE * 
* THE DEVICE ADDRESS INDICATED IN THE TABLE INITIALIZED BY * 
* PROGRAM ID 34F8. TESTING WILL CONTINUE UNTIL per THER * 
xc STOPPED BY THE OPERATOR, OR AN ERROR IS FOUND. * 
x THE LEDS DISPLAY EITHER HEXADECIMAL FOFO OR OFOF DURING * 
x THE TIME THE TEST IS OPERATING. * 
‘ (IF THIS IS NOT OCCURRING SEE SECTION 02.00.00 THIS MAP) 
* * 
PES SS SPSS SSS SELLE SLES SSS TSS SSS SES TS SESS SES TST SEES EES STS FESS TS SSS TSE SSP SS LESS ESS FF FSF FS FF 
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05.01.00 SYSTEM TEST MODULE HALT CODES 


fe afc akc 2 ac ac ake ae af ale ake ke oc 3 2 of ate fe afc fc a ok akc fe ac af ac aie ae a afc ake ake fe ac 3c 2 a fe ae a akc afk ae of afe afc aie ae fe afc she ae ae ake ak ate of 2h fe 2 fe afc aye ae hc aie afc 2 i ak ie ak a 2 ie ie IK i ae He a Ok 


4AE2 


GAE3 


GAEY 


4AES 


— eae ae ae 
—— ane a a 


NOTE: R3 -> INTERPRET AS ~~ REGISTER THREE IS POINTING AT. 


ate ote aie 3c fe oi afc af ae ak ak aie ic 3K ac akc ake ake ak afc 2c a akc afc ak aie ate fe af afc afc 2h ake ok ae ae ake ak 2 af afc ae aie fe aie ake ai akc ic 2h afc fe afc afe 3 of 3 2k afc oie 2c af af he aK a ae oe fe ae ie Ae ae ae 3 a A Ok OK OK 3 


* 
* 
a 
oe 
x 
Xe 
ot 


===> TWO CHANNEL SWITCH HALT CODES 


CAN A RESERVE BE ISSUED FROM DA. = XX 
IS DEVICE ADDRESS XX ON ONE PROCESSING UNIT PERMITTED TO ISSUE RESERVES TO 
THE OTHER PROCESSING UNIT THROUGH THE TWO CHANNEL SWITCH. 
(R3 ~> EBCDIC DEVICE ADDRESS) . 


===> TTY HALT CODES 


IS THERE A TTY ATTACHED TO DA = XX 
DEVICE ADDRESS XX IS ATTACHED TO A TTY (Y¥ OR N). 
(R3 -> EBCDIC DEVICE ADDRESS). 


IS THERE A WRAP CABLE CONNECTED TO DA = XX 
DEVICE ADDRESS XX IS WRAPPED WITH A CABLE (Y OR N). 
(R3 ~> EBCDIC DEVICE ADDRESS). 


===> 4966 HALT CODES 


23 DISKETTES LOADED ON DA = XX 
IS DEVICE ADDRESS XxX ooo Rhy). DISKETTES (I.E. 3 IN THE OPENINGS PLUS 


TWO LOADED CONTAINERS tap DFS 
(R3 => DIC DEVICE DDRE S). 
13 DISKETTES LOADED ON DA = XX 
IS DEVICE ADDRESS ER) ee OR N) Ie DISKETTES (I.E. 3 IN THE OPENINGS PLUS 
ONE LOADED CONTAINER fe.y 
(R3 +> EBCDIC DEVICE. ADDR gs) 


3 DISKETTES LOADED ON DA = XX 
IS hes ADDRESS XX LOADED WITH 3 DISKETTES (I.E. 3 IN THE OPENINGS) <--> 


tk3°8 -> “kBcprc DEVICE ADDRESS). 


SHOULD THERE BE HARDWARE RETRIES - DA = XX 
DEVICE ADDRESS XX HAS AUTOMATIC HARDWARE RETRY ~-- SHOULD IT BE USED (Y¥ OR 


N). 
(ha -> EBCDIC DEVICE ADDRESS). 


SHOULD HARDWARE RETRIES BE AN ERROR -~ DA = XX 
IF HARDWARE RETRIES ARE SELECTED AS AN OPTION FOR DEVICE ADDRESS XX SHOULD 
RETRIES. IF THEY OCCUR, BE AN ERROR 
(R3 -> £BCDIC DEVICE ADDRESS). 


===> 4974 PRINTER <MATRIX> HALT CODES 


FORMS WIDTH FOR THE 4974 PRINTER D.A.w = XX 
(ENTER PRINT POSITIONS I.E. FO132 - AND SO ON). 
THE PRINT POSITIONS SHOULD BE A DECIMAL NUMB 
THE QUESTION SHOULD BE ANSWERED AS DESCR 
PAPER SHOULD NEVER BE USED DURING TEST. 
(R3 +> EBCDIC DEVICE ADDRESS) 


ER. 
IBED REMEMBERING THAT MULTIPART 
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===> 4962 DISK HALT CODES 


CAN THE 4962 C.E. TRACK BE WRITTEN ON DA = XX 
CAN A 256 BYTE SECTOR BE WRITTEN AT DEVICE ADDRESS XX CYLINDER (DECIMAL) 


02. 
(R3 -> EBCDIC DEVICE ADDRESS) 


===> 4963 DISK HALT CODES 


CAN THE ae C.E. TRACK BE WRITTEN ON DA = XX 
ey Tin eae eueee BYTE SECTOR BE WRITTEN AT DEVICE ADDRESS XX ON THE C.E. 
(R3 -> EBCDIC DEVICE ADDRESS) 


DO YOU WANT 4963 HARDWARE RETRIES ON DA = 
DEVICE ADDRESS XX HAS AUTOMATIC HARDWARE * RETRY -~- SHOULD IT BE USED (Y OR 


3 <> EBCDIC DEVICE ADDRESS) .« 


4963 HARDWARE RETRY AN ERROR ON DA = XX 

F HARDWARE RETRIES ARE SELECTED AS AN OPTION FOR DEVICE ADDRESS XX SHOULD 
ETRIES, IF THEY OCCUR, BE AN ERROR. 

R3 -> &BCDIC DEVICE ADDRESS). 


7) 
DHS oS 


===> IDIDO HALT CODE 


IS THERE A WRAP CABLE CONNECTED TO DA = XX 
DOES THE DEVICE ADDRESS XX HAVE A WRAP CABLE CONNECTED (Y¥ OR N) 
€R3 +> EBCDIC DEVICE ADDRESS) 


===> 5250 HALT CODE 


ENTER STATION ADDRESS FOR DISPLAY (FF = _ DO NOT ecech DA = XX 
FOR DEVICE ADDRESS XX ENTER THE STATION ADDRESS OF THE DISPLAY STATION f0O 
BE TESTED. IF NO STATION IS DESIRED ENTER FF AS THE STATION ADDRESS. 
(R3 -> EBCDIC DEVICE ADDRESS) 


ENTER STATION ADDRESS FOR PRINTER (FF = DO NOT TEST) DA = XX 
FOR DEVICE ADDRESS XX ENTER THE STATION ADDRESS OF THE DISPLAY STATION TO 
BE TESTED. IF NO STATION IS DESIRED ENTER FF AS THE STATION ADDRESS. 
(R3 ~> EBCDIC DEVICE ADDRESS) 


MS WIDTH FOR THE 4974 PRINTER D.A. = XX 

TER PRINT POSITIONS I.E. FO0132 ~ AND SO ON 

PRINT POSITIONS SHOULD BE A DECIMAL NUMBE 

QUESTION SHOULD BE ANSWERED AS DESCRIBED REMEMBERING THAT MULTIPART PAPER 
LD NEVER BE USED DURING TEST. 

-> EBCDIC DEVICE ADDRESS) 


===> SDLC HALT CODE 


IS THERE A WRAP CONNECTED TO DA = XX 
DOES THE DEVICE ADDRESS XX HAVE A WRAP CABLE CONNECTED (Y OR N) 
(R3 -> EBCDIC DEVICE ADDRESS) 
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06.00.00 FLOATING POINT ROUTINE DESCRIPTION ---- TYPE 3D 
BEFORE EXECUTION OF THIS SYSTEM TEST PROGRAM aa SYSTEM TEST DISKETTE SHOULD BE 


CONFIGURED TO HAVE THE FLOATING POINT eee HAVE DEVICE ADDRESS DIFFERENT FROM 
ANY OTHER ON THE SYSTEM. WHEN THIS IS DONE A THE TEST HAS BEEN STARTED THREE 
ROUTINES ARE EXECUTED TO TEST THE MOVING OF DATA. FROM AND TO THE FLOATING POINT 
CARD. THESE ROUTINES ARE DESCRIBED AS FOLLOWS: 

ROUTINE 1: 
THIS ROUTINE FIRST TEST THE FLOATING POINT SET LEVEL BLOCK COMMANDS. THIS IS 
FIRSI DONE ON LEVEL O THEN 1, AND 3. ON EACH LEVEL GIVEN DATA PATTERNS ARE 
WRITTEN AND READ BACK TO VERIFY THAT THE DATA CAN BE MOVED CORRECTLY. IF NO 
ERRORS ARE FOUND ROUTINE 2 IS STARTED. 

ROUTINE 2: 
THIS ROUTINE IS THE SAME AS ROUTINE ONE BUT TESTS THE WORD COMMANDS SUCH AS FHV 
FOR MOVEMENT OF DATA TO THE CARD, WITH THE DATA BEING READ AS A BLOCK COMING FROM 
THE FLOATING POINT CARD. IF NO ERRORS ARE FOUND, ROUTINE 3 IS STARTED. 

ROUTINE 3: 
THIS ROUTINE IS THE SAME AS ROUTINE ONE BUT TESTS THE DOUBLE WORD COMMANDS SUCH 
AS FMVD FOR MOVEMENT OF DATA TO THE CARD, WITH THE DATA BEING READ AS A_ BLOCK 
COMING FROM THE FLOATING POINT CARD. IF NO ERRORS ARE FOUND, ROUTINE 1 IS 
STARTED. 

TERMINATING SEQUENCE: 

1 RESEI ALL eon STORAGE POINTERS 
2 ENSURE THE PROGRAM IS ON LEVEL THREE 
3 PROGRAM TERMINATE 


Me Ae ae fe oe afc ac ak a 2K ac ak ale oh ah fe 2 kk afc ak ak ake aK 9K ic ae ake ac of ae ak fe ofc ote ake ak akc ah oe ok ake ik ae ate ale oh afc sic oe af ok ok afc of ai se ak afc afc aie ae ake ae ake ake ah afc ae ac aie ai afc ake fe sic ake ade afc afc ae afk af afc 2X 
fe 


NOTES FLOATING POINT oe eee TYPE ort IS NOT ASSOCIATED WITH 
DEVICE ADDRESS. BUT DEVICE ADDRESS MUST BE ASSIGNED TO THE 
TING POINT FEATURE (FHROUG THE CONFIGURATION oe eeur BECAUSE THE 
EM TEST SUPERVISOR (ID 3410) HAS SPECIFIED ALL INPUT AND OUTPUT 
E RELATIVE TO GIVEN DEVICE ADDRESSES. THIS DEVICE ADDRESS MUST 


* 

3 

E x 
Y xx 
O * 
S x 
ps 

VICE ADDRESS NOT ALREADY USED (IN ANY WAY) BY THE SYSTEM. : 
&K 

* 

* 

* 

* 


TH 
AN 
FLOA 
SYST 
TO B 
BE A DE 
WHEN THIS IS DONE (THROUGH THE USE OF THE UTILITY PROGRAM (PROGRAM ID 
el a MODULE USED TO TEST THE FLOATING POINT FEATURE CAN THEN 


ofc 
# 
* 
* 
m7 
* 
4 
x 
4 
: RENCED BY ITS OWN IDENTIFIABLE DEVICE ADDRESS. 

* 

he ae ae fe ake 2 aie afc ake aie ae ake 2 he afc akc oie afe ake ate afe afc ate afc 2 ac ofc afc afc af ake aie af fe ale af ik afc ae afc afe af afc afc afc af af a afc ah fe afc a afc fe aie ate fe af af ie ac afc aR he ake ac afc fe he hc ofeach ik ak ai ac ake aie afc ak 
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07.00.00 TWO CHANNEL SWITCH ROUTINE DESCRIPTION -~+-- TYPE 3E 


YSTEM TEST PROGRAM, THE TWO CH 
AN £ COHBLETE TEST 
HAVE CONTROL OF THE COMMON 1/0, 
E 
S 


ta (ni 


BOUT RESERVES Cea PRESENTED T 
Coe eEae HE ANSWER IS 


H<O HSE 


HE OTHER PROCESSI 
ROUTINE FIVE { 
FOLLOWS: 


DWryran 


ION oF THESE ROUTIN 


ROU 
ID FOLLOWED BY A DEVICE RESET THEN ISSUES A 
EN STORED INTO THE AREA *DEV1* A COMPARE IS 
ONFIGURATION TABLE. IF NO ERRORS ARE FOUND 


T DOES A READ DEVICE 
S THIS STATUS T 
TA STORED IN 


H 
EC 


© 


POODWS NMPrPOtmW 2 Who 2 WD GaA<o) 


VI 
IS 
TH 


ti 
tite Ovc 


UTINE WILL ENSURE THAT ALL ILLEGAL DCB*S WILL GIVE A COMMAND REJECT. 
raves Angie ea. IS GIVEN TO THE ATTACHMENT CARD. IF NO ERRORS ARE FOUND, 


10 
td Ore 


UTINE FIRST TESTS TO wire cnn IF THIS SIDE OF THE TWO CHANNEL SWITCH HAS 
MON I/O (IF NO ROUTINE 4 IS RTED). AFTER THIS THE ACK LED IS TURNED ON 
TIMEOUT UNDER TEST IS ISSUED *ON {3 } INTERRUPT LEVELS (0,1,2) TO ENSURE THE 
i __ 


©?) 


HEY OFF OFM Ae woe 


2ORNS2 HRB S CHWS CGhi<sHa PHO 


2) 


CARD WILL INTERRUPT ON THES VELS. IF NO ERRO ARE FOUND, ROUTINE 


Vo MPs Nb BRN HASAN FAN Go 
eit mOec6e 


E ae TESTS TO DETERMINE IF THIS SIDE OF THE TWO CHANNEL SWITCH HAS 

I ‘an NO ROUTINE 5 IS Panne Re eee TEST TO DETERMINE IF THE 
TCH TS N MANUAL MODE (IF NOT ROUTINE IS RoAb eee AFTER THE CHECK 
HE TIMER IS STARTED HEN RESET TO ENSURE THAT ne TIMER CAN BE RESET 
NG. IF NO ERRORS ARE FOUND, ROUTINE 5 IS STARTED 


MH 

om WM 
tte O 
DWOomodes 


Wnty 


E FIRST es TO DETERMINE IF THIS SIDE OF THE TWO CHANNEL SWITCH HAS 
IfO (IF ROUTINE 11S STA ohrae rote meCrE TO DETERMINE IF RESERVES 
D FRO THIS SIDE (IF NOT ROUTI {I TED). AFTER THE CHECK IS 
AL 32 (RESERVES ILL BE ISSUED to THE OTHER PROCESSING UNIT. IF NO 
FOUND, ROUTINE 5 IS STARTED. 


MEQ BHOAAH SrA BPRS DAOSsbH LOUNNO 


DPrrmtH Mnomme 
whos] a) 


crea SEQUENCE: 


PREPARE WITH ‘I* 
RESET 
PROGRAM TERMINATE 


WN = 


07.01.00 TWO CHANNEL SWITCH HALT CODES 
3EE1 CAN A RESERVE BE ISSUED FROM DA. = XX 
IS DEVICE ADDRESS XX ON ONE PROCESSING UNIT PERMITTED TO ISSUE RESERVES TO THE 


S 
OTHER PROCESSING UNIT THROUGH THE TWO CHANNEL SWITCH. 
(R3 -> EBCDIC DEVICE ADDRESS). 
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08.00.00 TTY ROUTINE DESCRIPTION --+- TYPE 40 


BEFORE EXECUTION OF THIS SYSTEM TEST PROGRAM THE UESTION(S 7 Is 
ATTACHMENT CARD CONNECTED TO A TTY OR WRAPPED TO A CONNECTOR WILL B DISPLAYED "t6 
THE OPERATOR. IF THE ANSWER IS YES THERE IS A TITY THEN ROUTINE 5 WILL 
EXECUTED AND ROUTINE 4 WILL NOT. IF THE ANSWER IS YES THE CARD HAS A RAD 
CONNECTOR THEN ROUTINE 4 WILL BE EXECUTED AND ROUTINE 5 WILL NOT. ROUTINE ONE 
OUGH THREE WILL RUN AUTOMATICALLY WITH THE ATTACHMENT IN DIAGNOSTIC WRAP HODE, 
INE 6 WILL ONLY BE EXECUTED AFTER THE X - ON KEY IS PRESSED ON THE fTY 
RD AND WILL BE TERMINATED BY PRESSING THE SAME KEY. 


QO 


R 
U 
Y 
ROUTIN 
I S_A_ DIAGNOSTIC RESET AND READ ID TO THE DEVICE, THEN WILL 
E EVEL 0 THROUGH 2. ON EACH LEVEL A DUHMY WRITE AND A READ 
aan TO ENSURE THAT ALL LEVELS WILL INTERRUPT CORRECTLY. 


UTINE 2 IS STARTED. 


IQ tt 


= 8] 
oO 
GS 


HER WHYS De Ais Dery HOME H AAU ADH 


ROUTINE FIRST WILL PRE E (WITH THE 'I* BIT OFF) THE DEVICE THEN GIVE A 
TO ENSURE THAT THE DEVICE ES NOT INTERRUPT. AFTER WHICH THE DEVICE IS 
ED AND THE DELAYED INTERRUPT IS CHECKED FOR VALIDITY. WHEN THIS IS 
Ry HEXADECIMAL "0000" AND ‘OOFF* ARE WRITTEN AND READ TO ENSURE DATA 


Ye. IF NO ERRORS ARE FOUND, ROUTINE 3 IS STARTED. 


= 8] 
© 
an} 


WILL ENSURE THAT ALL ILLEGAL DCB*S WILL GIVE A COMMAND REJECT. 
SeMen. GIVEN TO THE ATTACHMENT CARD. IF NO ERRORS ARE FOUND, 


=] 

© 

fom 
Hiro 
= 


L VERIFY THAT THE ATTACHMENT CARD HAS A WRAP CABLE CONNECTED. IF 
IS STARTED. IF ONE IS ATTACHED HEXADECIMAL ‘00 THROUGH ‘FF* ARE 
pa FROM THE CARD FOR A VALIDITY CHECK. IF NO ERRORS ARE FOUND, 


Ht 
timoOOders 


PO Ott MO AwwowWeS 


i= 8] 
=) 
ion} 
DU AA UD AOD wend SHUN WH 


PH=@ CHAHSA CHEMa AS RHHS 


OUTINE WILL CHECK TO DETERMINE IF A TTY IS 
IF IT IS ATTACHED THREE LINES OF DATA ARE 
DEVICE IS USED AS A PRINTER.) IF NO 


A 
E 


« IF NOT ROUTINE 1 IS 
eo THE DEVICE (THAT 


TTACHED 
WRITTEN 
RRORS A FOUND, ROUTINE 1 IS 


THY BAOHAOH OFDWOTH OFFDH SONRDTH SOmMTH Wom 
itt 
>) 
es rrr 
(tHOss OmODe 
AG 


NE, STARTED BY PRESSING THE X = ON KEY WHILE ROUTINE FIVE IS PRINTING 
Any CHARACTER RECEIVED FROM THE TTY UNTIL THE OPERATOR AGAIN PRESSED 
KEY THIS WILL THEN CAUSE ROUTINE 1 TO START AGAIN. 


Omir 
mOoH 


TERMINATING SEQUENCE: 
PREPARE WITH THE ‘'I* BIT OF 


RESET 
PROGRAM TERMINATE 


WN = 


08.01.00 TTY HALT CODES 


4QE1 IS THERE A TTY ATTACHED TO DA = 
DEVICE ADDRESS XxX I5 ATTACHED TO A TTY (¥ OR N). 


(R3 -> EBCDIC DEVICE ADDRESS) . 

4OE2 IS THERE A WRAP CABLE CONNECTED TO DA = XX 
DEVICE ADDRESS XX IS WRAPPED WITH A CABLE (Y OR NW). 
(R3 -> EBCDIC DEVICE ADDRESS). 
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09.00.00 DISPLAY ROUTINE DESCRIPTION (4979) +-+-- TYPE 44 


UTING THE DISPLAY SYSTEM TEST PaGenee FIV f}, ROUTINES ARE STARTED 
ALLY. A SIXTH ROUTINE MAY Sha RIED B HE OPERATOR PRESSING THE 
KEY WHILE EITHER ROUTINE 3 OR 4” (SHIFT UP OR DOWN coaey IS ACTIVE. THE 
I CAN BE CONTINUED BY A SECOND DEPRESSION OF THE ATTENTION KEY EACH 
ON OF THE ATTENTION KEY AFTER THIS WILL EITHER GO IN OR OUT OF THE ECHO 


fe x afc afe ae ae afc afc ae ahs ae afe ale aie 2 aye ae ie he ae Bye ae ai af fe fe ahs ah she aye ape Bye ah afc Me 4c ah x ae afc Bix ae x ae she age abe aye afc fe she Ae ale ah afer aoe Ne ale ale she ale ale Bee aie She ys afe ofe sys wee ae Me ae he Be ae He ahr ae af ahe 2c 


& bs 
K * 
we NOTE: AN ERROR IS INDICATED WHILE Rena ae AUTOHATICALLY mk 
% ENTERING AND TERMINATING THE ECHO TE NOT key I/o mt 
i INTERRUPT(S) EQUAL TO THAT OF THE ATTEN ION KEY . 
* ; % 
Me oe age fe ae she aye ae ae afc afc ale afc he af ae aye he he fe afc fe ape afc afc Me afe afc aye ae ae ae Ble ah she ahe afe afc age ah fe Be ale she aft he whe afc ate ape afc ae ae ye ape aoc he he she ale Ble eae he ah ahe ah ah ae fe she abe ale ae she ae abe ale ae ape abe ake she she 


THE DESCRIPTION OF EACH TEST (ROUTINE) IS AS FOLLOWS: 


ROUTINE 1: 
THIS ROUTINE FIRST WILL PREPARE THE DEVICE TO LEVEL ZERO (0) THEN DOES A RESET 
AND READ ID TO THE DEVICE AFTER WHICH A DUMMY WRITE IS GIVEN TO ENSURE THE DEVICE 
WILL INTERRUPT ON THE PREPARED LEVEL. THIS SAME PROCEDURE IS FOLLOWED FOR LEVELS 
1 AND 2. AFTER THE ABOVE IS COMPLETED A DIAGNOSTIC READ IS GIVEN FROH LEVEL ONE 
AND THE CHECKSUH VALUE IS INSPECTED FOR VALIDITY. IF NO ERRORS ARE FOUND, 
ROUTINE TWO (2) IS STARTED. 

ROUTINE 2: 
THIS ROUTINE WILL FIRST BLANK THE SCREEN THEN WRITE EACH CHARACTER TO EACH SCREEN 
LOCATION. TH IS PERFORMED BY SENDING A WRITE COMMAND CHAINED TO A READ 
COMMAND.” THE WRITTEN DATA TS THEN COMPARED TO THE DATA RECEIVED BY THE READ. IF 
NO ERRORS ARE FOUND ROUTINE THREE (3) IS STARTED. 

ROUTINE 3: 
THIS ROUTINE WILL FIRST BLANK THE SCREEN. THEN DATA IS WRITTEN ON THE BOTTOH 
LINE WITH A SHIFT UP, UNTIL IT IS AT THE TOP. THIS IS DONE BY EXECUTING A WRITE 
TO THE BOTTOM LINE WITH A SHIFT UP. IF NO ERRORS ARE FOUND, ROUTINE FOUR (4) IS 
STARTED. 7 

ROUTINE 4: 
THE TEST IS EQUAL TO THAT OF ROUTINE THREE (3) WITH THE EXCEPTION OF WRITING TO 
THE TOP LINE WITH A DOWNWARD SHIFT. IF NO ERRORS ARE FOUND, ROUTINE FIVE (5) IS 
STARTED. 

ROUTINE 5: 
THIS ROUTINE WILL FORCE ERRORS THAT THE ATTACHMENT CARD SHOULD REJECT. ON EACH 
TYPE OF ERROR THE RESPONSE IS CHECKED FOR VALIDITY IN ADDITION TO THE CYCLE STEAL 
RESIDUAL ADDRESS. IF NO ERRORS ARE FOUND, ROUTINE ONE (1) WILL BE STARTED. 

ROUTINE 6: 
THIS ROUTINE, ENTERED BY PRESSING THE ATTENTION KEY WHILE EITHER ROUTINE 3, OR 4 
IS ACTIVE, ‘WILL ECHO TEST THE DISPLAY. THAT IS TO ANY CHARACTERS ENTERED 
FROM THE KEYBOARD TO THE FIRST SCREEN POSITION WILL BE’ DISPLAYED ON ALL OTHER 
LINES FOLLOWING. THE DEPRESSION OF THE BY. TE ANY PROGRAM FUNCTION (PF) 
KEY TS PRESSED THE SCREEN HILL SHOW THE ISB RECEIVED FROM THAT INTERRUDT 
INTERRUPT IS EXPECTED AND THEREFORE ANY ERROR WILL BE INDICATED ON THE SCREEN. 


TERMINATING SEQUENCE 
RESET 
START I/O - BLANK SCREEN 
PREPARE WITH ‘I* BIT OFF 
RESET 
PROGRAM TERMINATE 


MEW a 
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10.00.00 DISPLAY ROUTINE DESCRIPTION (4978) ---- TYPE 45 


WHEN EX 
AUTOMATI 


ROUTINE 1: 
THIS ROUTINE WILL PREPARE THE DEVICE TO LEVEL ZERO (0) THEN DOES 
ID TO THE DEVICE, THEN A DUMMY WRITE IS GIVEN TO ENSURE THE DEVIC 
HE PREPARED LEVEL. THIS SAME PROCEDURE IS FOLLOWED FOR LEVEL 
ORS ARE FOUND, ROUTINE TWO (2) IS STARTED. 


ECUTING THE DISPLAY SYSTEM TEST PROGRAM, FIVE (5) Oo Eodee ARE STARTED 
CALLY. THE DESCRIPTION OF EACH TEST (ROUTINE) IS AS FOLLOWS 


A RESET AND READ 
E WILL INTERRUPT 
S 1 AND 2. IF 


=<] 
=) 
G 


Derr WHA RHEE FIOM rH BO 


OUTINE weet FIRST BLANK THE SCREEN THEN WRITE EACH CHARACTER TO EACH SCREEN 

ON. THI IS PERFORMED BY SENDING A WRITE COMMAND CHAINED TO A READ 

D. THE WRITTEN DATA IS COMPARED TO THE DATA RECEIVED BY THE READ. IF NO 
ARE FOUND ROUTINE THREE (3) IS STARTED. 


Ww NmHwM Bw 


w 
© 
G 


ROUTINE WILL BLANK THE SCREEN. DATA IS WRITTEN ON THE BOTTOM LINE WITH A 
UP, UNTIL IT IS AT THE TOP. AFTER A SHIFT THE DATA IS COMPARED WITH THE 
N DATA TO CHECK VALIDITY. THIS IS DONE BY EXECUTING A WRITE TO THE BOTTOM 
ITH A SHIFT UP, THEN A SEPARATE READ IS_ GIVEN FOR THE TOP LINE. THE DATA 
veriprepe co CHARACTER FOR CHARACTER. IF NO ERRORS ARE FOUND, ROUTINE FOUR 


}= 9) 
© 
om, 


EQUAL TO THAT OF ROUTINE THREE (3) WITH THE EXCEPTION OF WRITIN 


E 

W 

H 

S 

Ws 

EST IS G TO 
EOF LINE WITH A DOWNWARD SHIFT. IF NO ERRORS ARE FOUND, ROUTINE FIVE (5) IS 
5 

R 

0 

U 


= 9] 
© 
eS 


TINE WILL FORCE ERRORS THAT THE ATTACHMENT CARD SHOULD REJECT. ON EACH 
ERROR THE RESPONSE IS CHECKED FOR VALIDITY IN ADDITION TO THE CYCLE STEAL 
L ADDRESS. IF NO ERRORS ARE FOUND, ROUTINE ONE (1) WI 


TERMINATING SEQUENCE 
RESET 


START I/O ~- BLANK SCREEN 
PREPARE WITH "I* BIT OFF 
RESET 

PROGRAM TERMINATE 


LL BE STARTED. 


UN WN a 
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11.00.00 DISKETTE UNIT ROUTINE DESCRIPTION (4962/4964) ---- TYPE 48 


WHEN EXECUTING THE DISKETTE UNIT SYSTEM TEST PROGRAM, FIVE (5) ROUTINES ARE 
STARTED AUTOMATICALLY. THE DESCRIPTION OF EACH TEST (ROUTINE) IS AS FOLLOWS: 


He Fe fe 2c ake aie ae kc ae Ic ie afc ae a afc af ake aft afc ake ae ate ake ac ae ac afc afc af ae afc ic aie ake ale afc ate af ae ic ae afc af afc ade ake afc ae afc afc afc ah ak afc oe afc afc ade ah ake afc af fe aie a af aie akc ak ac 3 af fc ah af afc af afc afc of afc akc ate 2c 


AN ERROR OCCURS DEV1 AND DEV2 CONTAIN THE SECTOR ID 


* 
¥ 
NOTE: WHEN * 
NFORMATION. * 
* 
* 


W 
I 


HHH HE 


He oie he ae fe ate ae cfc he a ae ae kc aie fc a OK aie af aye ic afc ic ate ah 2c 2h Cafe ee a afc aft oe afc ae i ae KK af 2c fe aR ae a a ae 2c ak af ak af 2fc afk akc afc ate afc ate af af afc fe afc ic a afc ae afc ak af ae afc afc af afc afc afc afc afc afc 


ROUTINE 13 
OUTINE FIRST GIVES A RESET AND READ ID TO THE DEVICE, THEN WILL PREPARE T 
OR LEVELS 0 THROUGH 2. ON EACH LEVEL A DUMMY SEEK IS GIVEN fTf0 oe 


U HE 
F RE 
He DEVICE WILL INTERRUPT ON ALL LEVELS. AFTER THIS IS COMPLETED a 
A 


a | 


S PREPARED TO LEVEL ONE AND THE DISKETTE UNIT IS RECALIBRATED. IF 
RE FOUND, ROUTINE 2 IS STARTED. 


mm 


> 9] 
O 
SG 
WwW FON NH WHE gon 


INE, STARTED AFTER A RECALIBRATE LRBER 2 1), FIRST SEEKS CYLINDER 0 
716 : AND 3. ON ACH act INDER THE SECTOR ID WILL BE READ 
ack ZERO AND ONE TO CHECK HEAD T. WHEN THE ROUTINE IS COMPLETED, 


IS PERFORMED. IF NO ERRORS ARE FOUND. ROUTINE 3 IS STARTED. 


OTH White 


Mo 
"3 bd does 
HimtyO 
Oo AG 
Mrmr 


p= 0] 
O 
i) 
WNeg Swekein WOROrR 


Ji Soe 
Py ee 


Ont ww 20M OHFRHN 
e 

vs 

© 

a of om 


TINE STARTED AFTER A RECALIBRATE (ROUTINE 2), FIRST SEEKS TO CYLINDER 
EN IN a SEQUENCE WILL SEEK CYLINDER 76, 1, 75, 2, 74, 3¢ T3_¢ 4, -~--~ 40, 

38. N EACH CYLINDER THE SECTOR ID Pon’ TRACK ZERO'IS’ READ AND VERIFIED. 
IF’ NO Barat ARE FOUND, ROUTINE 4 IS STARTED. 


i 2 ae af ae he fe ee fe fc ae he cafe ie ake 3c he a he ae a 2 2c ic he 2 he 2 ae 2c he a fe ae fe ae ake fc fe 3 ae 3h he he afc he hc oe ee ie ie 2k hc he ate afc afc ale ae ic ae af akc af afc afc afc afc fc ae ae afc afc aie ae ac 2c 2k of 3c 


°° PHS DSHS Dee sH 


NOTE: THE SEEK AND READ ID IS A DCB CHAINED OPERATION. 


HEHEHE 
HHH 


Me ee He of ee 2 a Ae i i ae fe 3c ae fe ee fe ae ae ae eae 2 ic 2 ac Hc i ee a he i ae i fe af 2k a af af af fe ake af afc af afc ae atc aie af afc afc fc ae akc afc afc afc afc age af afc afc af atc ai af afc afc 2c ade af Iie 2c ic hc oe afc akc 


ROUTINE 43 
THIS ROUTINE WILL FORCE ERRORS THAT THE ATTACHMENT CARD S 
ROR A READ CYCLE STEAL STATUS OPERATION IS Shee and 


OMPARED TO THE EXPECTED VALUE. IF NO ERRORS ARE FO STARTED. 


K TO TRACK ELEVEN TO ENSURE THAT THE DISKETTE IS A 


SEE 
ae DISKETTE IS NOT ROUTINE 1 IS STARTED). AFTER THIS A 
I 


ITTEN THEN READ BACK FOR COMPARISON. hits IS DONE FOR 
F NO ERRORS ARE FOUND, ROUTINE 1 IS STARTED. 


TERMINATING SEQUENCE 
RESET 


RECALIBRATE DEVICE 
PREPARE WITH 'I* BIT OFF 
RESET 


PROGRAM TERMINATE 


U1 f= WA) = 
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12.00.00 DISKETTE UNIT ROUTINE DESCRIPTION (4966) ---- TYPE 4A 


WHEN EXECUTING THE DISKETTE UNIT SYSTEM TEST PROGRAM, FIVE 42) ROUTINES ARE 
STARTED AUTOMATICALLY. THE DESCRIPTION OF EACH TEST (ROUTINE) S AS FOLLOWS: 


ROUTINE 1: 
THIS ROULINE FIRST GIVES A RESET AND READ ID TO THE DEVICE, THEN WILL PREPARE THE 
DEVICE FOR LEVELS 0 THROUGH 2. ON EACH LEVEL A DUMMY SEEK IS GIVEN TO ENSURE 
te caporeps WILL INTERRUPT ON ALL LEVELS. IF NO ERRORS ARE FOUND, ROUTINE 2 


THIS ROUTINE FIRST SEEKS CYLINDER 0 THEN SEEKS 76, 2, 74 AND 3. ON EACH 
DER THE SECTOR ID WILL BE READ FOR BOTH TRACK SeRO A ub ONE TO CHECK HEAD 
« IF NO ERRORS ARE FOUND, ROUTINE 3 IS STARTED. 


ROUTINE eae SEEKS TO CYLINDER ZERO. THEN IN SEQUENCE WILL SEEK CYLINDER 
15, 13, 4, 77-77 40, 37, 39, 38. ON EACH CYLINDER THE SECTOR ID 
ae zEko | ig READ AND’ VERIFIED, IF’ NO’ ERRORS ARE FOUND, ROUTINE 4 {IS 


ME AE HE HE BHC Be ahe ofeach afc fe af aft fe Se x ae 3 ie fe 34 a afe e  ae  ahe ye Be af fe fe aie ah fe fe afe ah fe fe af af af aie she afc aie 2x Oe afc aie fe afc Se aye ae of ahs ale sfc ofc she afc af aye afc ofc af ah 2c afc fe afk she af 3K afc afc afc 34 af a 


x % 
x ; x 
: NOTE: THE SEEK AND READ ID IS A DCB CHAINED OPERATION. : 
* a 
ae fe se ake fe af aie ate afk fe ale aie af akc afe ake afc afe ake ae age afc ake af ate ale afc af afc af af afe afc ale afe afe fe afe ate afc afe ae afe ake af ake afc ake afc afc ae fe akc afe ah oft ae ae aft age ale ale ae i ke af fe afc fe az afc afc ok af ak ake ake ale afe af ake af aft ak 
ROUTINE 4: 
THIS ROUTINE WILL FORCE ERRORS THAT THE ATTACHMENT CARD SHOULD REJECT. ON EACH 
ERROR A READ CYCLE STEAL STATUS OPERATION IS PERFORMED AND TH RESIDUAL ADDRESS 
IS COMPARED TO THE EXPECTED VALUE. IF NO ERRORS ARE FOUND, ROUTINE 5 IS STARTED, 
ROUTINE 5: 
THIS ROUTINE WILL SEEK TO ALL DISKETTES ATTACHED TO THE DEVICE. AS PER THE 
Rorel the I.E. 3 ee THIS FIRST SEEK IS DONE IN SEQUENCE STARTING FROM ONE 
ON DISKETTES. THEN HALF WAY SEEKS ARE TRIED FOLLO BY IDE Tf 
SEEKS. IF NO ERRORS ARE FOUND, ROUTINE 6 IS STARTED. 
ROUTINE 6: 
THIS ROUTINE WILL FIRST SEEK TO TRACK ELEVEN TO ENSURE THAT THE DISKETTE IS A 
DIAGNOSTIC DISKETTE (IF THE DISKETTE IS NOT ROUTINE 1 IS STARTED). AFTER THIS A 
256 BYTE RECORD IS FIRST WRITTEN THEN READ BACK FOR COMPARISON. THIS IS DONE FOR 
BOTH HEAD ZERO AND ONE. IF NO ERRORS ARE FOUND, ROUTINE 1 IS STARTED. 
TERMINATING SEQUENCE 
1 RESET 
2 RECALIBRATE DEVICE 
3 PREPARE WITH *'I* BIT OFF 
4 RESET 
5 PROGRAM TERMINATE 
12.01.00 4966 HALT CODES 


4AE1 23 DISKETTES LOADED ON DA = XX 

IS DEVICE Staal Xx e oute WITH DISKETTES (I.E. 3 IN THE OPENINGS PLUS TWO 
ADED CONTAIN Anne N). 
3 -> EBCDIC DEV CE ADDRESS). 


ETTES LOADED ON DA = 
CE ADDRESS XX LOADED ai TH 2 DISKETTES (I.E. 3 IN THE OPENINGS PLUS 
DED CONTAINER) -- bea 
EBCDIC DEVICE. ADDR gs). 

4AE3 ETTES LOADED ON DA = XX 

ICE ADDRESS XX LOADED WITH 3 DISKETTES (I.E. 3 IN THE OPENINGS) -- (Y¥ 


(R3 -> EBCDIC DEVICE ADDRESS). 
4AE4 SHOULD THERE BE HARDWARE RETRIES - DA = XX 
DEVICE ADDRESS XX HAS AUTOMATIC HARDWARE RETRY -- SHOULD IT BE USED (Y OR N). 
(R3 -> EBCDIC DEVICE ADDRESS) ~ 
“AES SHOULD HARDWARE RETRIES BE AN ERROR -- DA = XX 
iF HARDWARE RETRIES ARE SELECTED AS AN OPTION FOR DEVICE ADDRESS XX SHOULD 


RETRIES, IF THEY OCCUR, BE AN ERROR. 
(R3 -> EBCDIC DEVICE ADDRESS) . 
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13.00.00 TIMER ROUTINE DESCRIPTION --- TYPE 50 


WHEN EXECUTING THE TIMER SYSTEM ST PROGRAH, SIX 6) ROUTINES ARE STARTED 
AUTOMATICALLY. TO START THE TIMER TEST THE DEVICE ADDRES O INDICATE FOR TEST 
IS THE EVEN>NUMBERED ADDRESS OF THE SET. THIS IS SO FOR BOTH THE SYSTEM TEST {8 
ooeee te AND THE UTILITY U34F8 (A *EVEN*), THE DESCRIPTION OF EACH TEST (ROUTINE) 
IS AS OLLOWS: 
ROUTINE 1. 
THIS ROUTINE FIRST GIVES A PREPARE TO peo eee THEN WILL PERFORM A DEVICE READ ID 
TO DEVICE ZERO AFTER WHICH A READ ID PERFORMED FOR DEVICE ONE, BOTH ARE 
COMPARED TO EXPECTED VALUES. AFTER Tits BOTH THE MODE AND VALUES OF’ DEVICE ZERO 
AND ONE ARE READ AND KEPT IN THE FOLLOWING LOCATIONS: 
DCB4Y = VALUE FOR ZERO 
DCB5 = HODE FOR ZERO 
DCB7 = VALUE ae ONE 
DCB8 = HODE FOR ONE 
IF NO ERRORS ARE FOUND, ROUTINE 2 RS STARTED. 
ROUTINE 2: 
THIS ROUTINE WILL PREPARE THE DEVICE TO LEVEL 1 THEN RESET DEVICE ZERO AND STOP 
DEVICE ONE AFTER WHICH THE MODE FOR ZERO IS COMPARED TO ZERO AND THE MODE FOR ONE 
IS CHECKED FOR NO CHANGE. ALSO THE VALUES FOR ZERO AND ONE ARE READ TO ENSURE 
THAT THE RESET HAS NOT CHANGED THEIR VALUES. THE ABOVE IS REPEATED BY RESETTING 
DEVICE ONE AND STOPPING DEVICE ZERO. IF NO ERRORS ARE FOUND, ROUTINE 3 IS 
STARTED. 
ROUTINE 3:3 
THIS ROUTINE WILL PREPARE THE DEVICE TO LEVEL ONE AND SEND ILLEGAL DCB*S TO BOTH 
DEVICE ZERO AND ONE, TESTING COMMAND REJECT. IF NO ERRORS ARE FOUND, ROUTINE 4 
IS STARTED. 
ROUTINE 4&4: 
THIS ROUTINE WILL CHECK THAT DIFFERENT VALUES CAN BE WRITTEN AND READ FROM BOTH 
DEVICE ZERO AND ONE. IF NO ERRORS ARE FOUND, ROUTINE 5 IS STARTED. 
ROUTINE 5: 
THIS ROUTINE WILL CHECK THAT DIFFERENT st a 4 CAN BE WRITTEN AND READ FROM BOTH 
DEVICE ZERO AND ONE. IF NO ERRORS ARE FOUND, ROUTINE 6 IS STARTED. 
ROUTINE 6: 
THIS ROUTINE WILL CHECK THAT ALL ae : Nee INTERRUPT ON ALL LEVELS FOR’ BOTH 
DEVICE ZERO AND ONE. THAT IS, SELECTED AND IS CHECKED ON EACH LEVEL 
THEN THE MODE IS CHANGED AND THE’ LEVEL) TES? IS REPEATED. THIS PROCEDURE IS 
FOLLOWED THROUGH ALL MODE(S). IF NO ERRORS ARE FOUND, ROUTINE 1 IS STARTED. 


TERMINATING SEQUENCE 


1) PREPARE WITH *I' BIT OFF once ZERO AND ONE) 
2) RESET (DEVICE ZERO AND ONE) 
3) PROGRAN TERMINATE 
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14.00.00 TAPE UNIT ROUTINE DESCRIPTION (4969) ----~ TYPE 58 
WHEN EXECUTING THE TAPE UNIT SYSTEM TEST PROGRAM, SEVEN (7) ROUTINES ARE STARTED 
AUTOMATICALLY. THE DESCRIPTION OF EACH TEST (ROUTINE) IS AS FOLLOWS: 
ROUTINE 1: 


THIS ROUIINE FIRST GIVES A RESET AND READ ID TO THE DEVICE, THEN WILL PREPARE THE 
DEVICE FOR LEVELS 0 THROUGH 2. IF NO ERRORS ARE FOUND, ROUTINE 2 IS STARTED. 


ROUTINE 2: 
THIS ROUTINE, WILL WRITE 128 RECORDS . THE FIRST RECORD IS TWO (2) BYTES. THE 
BYTE COUNT IS INCREASED BY TWO AND THE NEXT RECORD IS WRITTEN. THIS CONTINUES 
FOR THE 128 RECORDS. A SPACE TAPE MARK BACKWARD COMMAND AND A SPACE TAPE MARK 
FORWARD COMMAND IS_ ISSUED. THE TAPE SHOULD BE POSITIONED BEFORE THE FIRST 
RECORD. IF NO ERRORS ARE FOUND, ROUTINE 3 IS STARTED. 

ROUTINE 3: 
THIS ROUTINE WILL READ THE 128 RECORDS WRITTEN BY ROUTINE 2. EACH RECORD IS DATA 
COMPARED. A SPACE TAPE MARK BACKWARD COMMAND AND A SPACE TAPE MARK FORWARD 
COMMAND IS ISSUED. THE TAPE SHOULD BE POSITIONED BEFORE THE FIRST RECORD. IF NO 
ERRORS ARE FOUND, UTINE 4 IS STARTED. 

ROUTINE 4: 
THIS ROUTINE WILL SKIP MANY RECORDS, READ A RECORD, DATA_COMPARE THE RECORD. THE 
MANY RECORD SKIPS WILL BE BOTH FORWARD AND BACKWARD. THE ROUTINE WILL END WITH 
THE TAPE POSITIONED BEFORE THE FIRST RECORD. IF NO ERRORS ARE FOUND, ROUTINE 5 
IS STARTED. 

ROUTINE 5: 
THIS ROUTINE WILL ERASE TAPE FOR A COUNT OF THIRTY TWO 32) ¢ WRITE A TAPE MARK 
SPACE TAPE MARK BACKWARD, SPACE TAPE MARK FORWARD. THIS WILL CAUSE THE TAPE TO 
PROGRESS TO THE END OF REEL. IF NO ERRORS ARE FOUND, ROUTINE 6 IS STARTED. 

ROUTINE 6: 
THIS ROUTINE WILL WRITE MANY BYTE RECORDS. THE FIRST RECORD IS HEXADECIMAL 1000 
BYTES. THE BYTE COUNT IS INCREASED BY HEXADECIMAL 1000 BYTES UNTIL THE BYTE 
COUNT EQUALS THE STORAGE SIZE. IF NO ERRORS ARE FOUND, ROUTINE 7 IS STARTED. 

ROUTINE 7: 
THIS ROUTINE WILL CHANGE THE DCB'S FROM 800 BPI TO PE MODE IF THE DRIVE IS DOUBLE 
DENSITY. THEN ROUTINE 1 IS STARTED. 


acai TERMINATING SEQUENCE 
REWIND THE TAPE TO LOAD POINT 
PREPARE WITH 'I* BIT OFF 

RESE 

PROGRAM TERMINATE 


MEW 
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15.00.00 PRINTER <MATRIX> ROUTINE DESCRIPTION (4974) ---- TYPE 64 


WHEN EXECUTING THE PRINTER SYSTEM TEST PROGRAM, EIGHT (8) ROUTINES ARE STARTED 
AUTOMATICALLY. THE DESCRIPTION OF EACH TEST (ROUTINE) IS AS FOLLOWS: 


26 afc afc ic ak ae aie ac ae ac ac ac 3 fe ac 2c 2 2c 2 ae a afc aie 2c ak ae a 2c ak 2 aie fc 2k a afc ake ae 3c ake 2c afc a a ak ae ic ak a afc ac ike af ake a afc ake ie akc ake afk ate ac afk ake afc ate ac ake 3c akc afc af 3c ak akc ae 3c akc kc akc aie ak 2k 


* * 
* * 
* NOTE: THE FORMS WIDTH USED DURING THIS ROUTINE IS THE WIDTH * 
: GIVEN BY THE OPERATOR. : 
a * 


He Ae aie aie Ae ae aie ae af ie ake fe ai fe ae 2k ae fe fe fc ac a aie ai fe a ae 2 ie ole ae fe ak She afc fe ale hc ac 3c a ake a 2 af ah ae ae af ak fe ie af 3 2c ae a a aie ic ae ae ake fe aie a 2K fe ake ae af 2 ae ae ae afc ac fc ae 2k 2k 3c ok 
ROUTINE 1: 
THIS ROUTINE FIRST GIVES A PREPARE TO LEVEL=0 THEN WILL PERFORM A DEVICE RESET 
READ ID AFTER WHICH A DUMMY WRITE IS GIVEN TO ENSURE THAT AN INTERRUPT IS 
EIVED. THE SAME PROCEDURE IS THEN FOLLOWED FOR BOTH LEVELS 1 AND 2. THEN THE 
ICE IS PREPARED FOR LEVEL 1 AND A DIAGNOSTIC READ IS GIVEN TO OBTAIN AND 
IFY THE CHECKSUM VALUES. IF NO ERRORS ARE FOUND, ROUTINE 2 IS STARTED. 


PREPARE THE DEVICE TO yeea. ue anp WILL THEN LOAD THE NEEDED 
E EIGHT PRINT LINES PER INC PRINT SIXTEEN (1) LINES OF 
TH ‘II'. FROM THIS THE OPERATOR CaN DETERMINE THE ALIGNMENT 
AD. IF NO ERRORS ARE FOUND, ROUTINE 3 IS STARTED. 


NE WILL PRINT EACH CHARACTER THE STANDARD CHARACTER SET, TO EACH 


I IN 
T TION. IF NO ERRORS ARE FOUND, ROUTINE 4 IS STARTED. 


Oee 


V 
E 


ST 
A 
G 8 


RIABLE SPACE OPTION OF THE DEVICE. THE ROUTINE WILL 
HEN SKIP 2 LINES TO WRITE A_ LINE 4Y---UP 


THE VA 
LINE T E 
LINES. IF NO ERRORS ARE FOUND, ROUTINE 5 IS STARTED. 


i} 
— 


OUTINE WRITES A LINE OF DATA THEN GIVES A READ CYCLE STEAL STATUS TO CHECK 
IDUAL ADDRESS. IF CORRECT, A 2ND READ CYCLE STEAL STATUS IS GIVEN TO 

HAT THE FIRST READ DID NOT DESTROY THE RESIDUAL ADDRESS. IF NO ERRORS 
ROUTINE 6 IS STARTED. 


S&S 
try D0 
rm) = WO Ont WM QaWS 
a Cr tee 
Zz 
Or 
a 


ae Sr eenon TO WRITE A LINE OF DATA WITH AN ILLEGAL BYTE Poe ae 
RE ERROR IS EXPECTED AND THE MESSAGE SHOULD NOT BE PRINTED. IF THE 
DOES NOT REJECT THE MESSAGE, AN ERROR WILL BE PRINTED AND THE MESSAGE 
7 


Oder: 


MBER IN ERROR TEST* WILL APPEAR AT THE DEVICE. IF NO ERRORS ARE FOUND, 
IS STARTED. 


Oces 


UTINE WRITES THE *ROM' WITH EXECUTABLE CODE, READS IT, THEN WILL COMPARE 
ent VALUE WITH THE READ VALUE. IF NO ERRORS ARE FOUND, ROUTINE 8 IS 


S ROUTINE WILL CHANGE THE PRINT LOCATION OF A FIXED, 8 CHARACTER DATA BUFFER 

keee THE DEVICE ON CHANGED LENGTH LINES. IF NO ERRORS ARE FOUND ROUTINE 1 Is 
TERMINATING SEQUENCE 

RESET 


ISSUE DIAGNOSTIC TO DELETE 8 LINE PER INCH CODE 
aeeeR WITH *I* BIT OFF 


RESET 
PROGRAM TERMINATE 


ME WN = 


15.01.00 4974 PRINTER <MATRIX> HALT CODES 


64E1 FORMS WIDTH FOR THE 4974 PRINTER D.A. = XX 
(ENTER PRINT POSITIONS I.E. FO132 - AND SO ON.) 


THE PRINT POSITIONS SHOULD BE A DECIMAL NUMBER. 
THE QUESTION SHOULD BE ANSWERED AS DESCRIBED REMEMBERING THAT MULTIPART PAPER 


SHOULD NEVER BE USED DURING TEST. 
(R3 -> EBCDIC DEVICE ADDRESS) 
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16.00.00 PRINTER <CHAIN> ROUTINE DESCRIPTION (4973) ---- TYPE 68 


WHEN EXECUTING THE PRINTER SYSTEM TEST PROGRAM, NINE (9) ROUTINES ARE STARTED 
AUTOMATICALLY. THE DESCRIPTION OF EACH TEST (ROUTINE) IS AS FOLLOWS: 


ROUTINE 1; 
THIS ROUTINE FIRST a ee A PREPARE TO LEVEL=0 THEN WILL PERFORM A_ OD 
AND READ ID AFTER WHICH A DUMMY WRITE IS GIVEN TO ENSURE THAT 
THE SANE PROCEDURE IS THEN FOLLOWED FOR BOTH LEVELS 1A 
VE THE DEVICE IS PREPARED FOR LEVEL 1 AND A DIAGNOSTIC R 
IN AND VERIFY THE CHECKSUM VALUES. IF NO ERRORS ARE FOUND, 


wm 
te 
tO 
ty 
4 
P< 
wy 
oe 


=?) 

© 

cG 
o 
e 


INE WILL PREPARE THE peace TO LEVEL 1 THE 
LINES PER a SIXTEEN wate LINES OF ‘°HH 
OPERATOR RAN DETERMINE A - aaa INTE 
E FOUND, ROUTINE 3 IS STARTE 


WILL PRINT See ae THE OPTION 
OVERPRINTED WITH ‘ITI* FRO 
ITY OF THE HEAD. "IF NO 


Ti GIOe«e 
pea ba ofa. 
tw Fie 


GR 


=] 
O 
G 


ZO WOM WSS HMA SFRIAAHA WHAOHH MNOF; 
HOM mH OMY SOW GACH DSN POH eo 


LINE OF DATA THEN GIVES A READ CYCLE STEAL STATUS TO CHECK 
IF CORRECT, A 2ND READ CYCLE STEAL STATUS IS GIVEN TO 
Peete TED.” NOT DESTROY THE RESIDUAL ADDRESS. IF NO ERRORS 


Uoyee . 
KIO 


egg Soy 


TINE WRITES A 

UAL ADDRESS. 

oR THE FIRS 
ROUTINE 4 IS 


om} 
ry 50 50 
WN OADe Ot WwW WAHDYD B&B 


UN 


5O 
© 
GS 


ets TES 
INCLUDING 8 


HE VARIABLE SPACE OPTION OF THE DEVICE. THE ROUTINE WILL 
INE THEN SKIP 2 LINES TO WRITE A LINE, THEN 3, 4---UP 
LINES. IF NO ERRORS ARE FOUND, ROUTINE 5 IS STARTED. 


SS 

im Qee 
=) 

Pri 

= Ake 

oma 
Pr 
Mr 


9] 
oO 
com 


I 


to hUee 
HO 
2G 
Hr 


NE WILL PRINT EACH CHARACTER, IN THE CHARACTER SET (78 MAXIMUM), TO 
LOCATION. IF NO ERRORS ARE FOUND, ROUTINE 6 IS STARTED. 


ee) 

oO 

G 
4°] 


6: 

ROUTINE ATTEMPTS TO WRITE A LINE OF DATA WITH AN ILLEGAL BYTE NUMBE 
FORE, AN ERROR IS EXPECTED AND THE MESSAGE SHOULD NOT BE PRINTED. IFT 
E DOES NOT REJECT THE MESSAGE, AN ERROR HAS OCCURRED. IF NO ERRORS A 
tf 
7 
R 


ims 


E 
E 


otk 


ROUTINE 7 IS STARTED. 


> 9] 
O 
SG 


RITES THE *ROM* WITH EXECUTABLE CODE 


INE W RE 
TEN VALUE WITH THE READ VALUE. THIS CODE 
BE EX 


ADS IT AND Dao RD on THE 
IS WRITTEN BOTH 
Aeeo ae THE CODE ‘VIEL AND 


D, ROUTINE 8 IS STARTED. 


OMHS ASH a QOH] DAYS PHA DH HS PH 


(AoW SHOWN BMY ON 


ND EVEN-NUMBERED STORAGE ADDRESSES AND T 
EXECUTED RESPECTIVELY. IF NO ERRORS ARE F 


ROUTINE 8: 
THIS ROUTINE GIVES A MAXIMNUH STRESS PRINT PATTERN TO THE PRINT TYPEBELT, TESTING 
THE TYPEBELT MECHANICALLY FOR EITHER A WEAK OR A WORN AREA. IF NO ERRORS ARE 
FOUND ROUTINE 9 IS STARTED. 


ROUTINE 9: 
THIS ROUTINE WRITES A LINE OF *A*® CHARACTERS, ONE PER COW MAND TO TEST IF EACH 
PRINT LOCATION WILL FIRE. IF NO ERRORS ARE FOUND, ROUTINE STARTED. 
TERMINATING SEQUENCE 
. RESET 


I/O START TO CHANGE TO 6 LINE PER INCH CODE 
Been? WITH *I* BIT OFF 


R 
PROGRAM TERMINATE 


MNS WD = 
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17.00.00 DISK ROUTINE DESCRIPTION (4962) ---- TYPE 78 


WHEN EXECUTING THE DISK SYSTEM TEST PROGRAM, THE QUESTION OF WRITING ON THE DISK 
WILL BE DISPLAYED TO THE OPERATOR. IF THE ANSWER TO THE QUESTION IS YES, ROUTINE 
3 WILL BE EXECUTED. IF NO ONLY ROUTINES 1, 2 AND 4 WILL BE EXECUTED. 


SEELSSVELEECASSASSES SECURE EET L SES SSE SE SSSA ST ET OPER ELS SSCS R SSCL E SESE ESS e RTE Te 
ate 

x ‘ % 
mK NOTES: (1) SYSTEM TEST WILL BE TERMINATED UNTIL THE QUESTION % 
* IS ANSWERED (ONE PER DISK DEVICE ADDRES S).- * 
% (2) WHEN AN ERROK OCCURS DEV1 EV2 AND DEV3 CONTAIN * 
THE READ SECTOR ID INFORMATION. : 
x * 
aie afc fe ake fe fe she ae afe ofe afc ake ofe afc afe afe aft fe ake abe age ae af ae ae abe hc ac afc ake a age afc ae ae afe af sfc afc af ae ale ae ae ah af ae ah ae af afc ae afc ae afc ae ae af fc afe afe ale ade afc ale ahe afc ae afc fe afc afc fe af af she ae ae ic a fe ac aye af 


ROUTINE 1: 


THIS ROUTINE FIRST GIVES A RESET AND READ ID TO THE DEVICE. THEN WILL PREPARE 
THE DEVICE FOR LEVEL 0 THROUGH 2. ON EACH LEVEL A DUMMY SEEK IS PERFORMED TO 
ENSURE THAT ALL LEVELS WILL INTERRUPT CORRECTLY. THE DEVICE ID THAT IS VALID IS 
TAKEN TO BE THE ID PRESENT IN THE CONFIGURATION TABLE. IF NO ERRORS ARE FOUND, 
ROUTINE 2 IS STARTED. 

ROUTINE 2: 
THIS ROUTINE RE CALIBRATES THE DISK THEN SEEKS TO CYLINDER 0, 302, 1, 301, 2, 300 
3, --- , 152, 151. EACH SEEK IS CHAINED TO A READ SECTOR Ib AND’ THE SEEK I§ THEN 
CHECKED’ FOR eanTprTy HEAD SELECT FOR EACH SEEK IS: 


1) FOR TWO HEAD DISK --= 0,1,0,1,0,1,0,1 ---- 
2) FOR THREE HEAD DISK --- "0. 1, 0; 2,0,1, 20; 220,1,90,2 *--- 


He oft ie af ae cae oe ae fe eof fe ae afc fe ake afc ae ale af ake ae af ae ake fe hc aie fe afe afc aie afc af akc ac a ae ale fe af ae af ae ac 2 ai af af ae aie ic ae oh ae ae ac a i fe ale aie ae af ie 3h 3 aie ac ae he he he she afe He ae fe she 3H aK af 


k 
bd 
* NOTE: AN ERROR IS INDICATED FOR THE FOLLOWING THREE CONDITIONS. * 
% 1) A FAILING SECTOR FOUND ON THE IPL TRACK. * 
* 2) A SECTOR ON CYLINDER ONE HAVING AN ALTERNATE. a 
* 3) A TRACK FOUND TO HAVE NO GOOD SECTORS. * 
: IF NO ERRORS ARE FOUND, ROUTINE 3 IS STARTED. : 
* * 
x 


ae ae ae He oe fe ae ate ae ake af He ae fe ie ake Be 24 ale ae af Oh ake af ate Hc she ae aye ae aie afc afe afc ahe ofc ae ate x akc fe he aie fe fe fe fe ah afc 3h 2 ae ah ae 2 She afk ae fe she af ake ae fe ah ae she af afc afc he ae fe 3c BH ae He OK ae aie fc ak akc 


ROUTINE 3: 
THIS ROUTINE WILL VERIFY THAT THE DISK CAN BE WRITTEN. IF YES CONTINUE, IF NO 
ROUTINE 4 IS STARTED. IN CONTINUING THE ROUTINE WILL RECALIBRATE THEN SEEK TO 
TRACK 302 (CE ag Fe AFTER THE SEEK THE SECTOR ID IS READ AND TESTED, rF GOOD A 
PRED HEAD (S) s— IS WRITTEN, READ BACK AND COMPARED. THIS I5 PERFORMED’ ON ALL BUT 


Me 28 he ak a aC a a Yak a a ae a ae ae eo a fe ake ate a afc ak a ace 2 oe fe afc ae ae a ak a a ok ake 2 ae at ak 24 a ke ae ae ak afc ae 2 ae a ae a 2c ae 2 fe 2 2 ae ake aft ak ake a a 2 2c a 2 ok akc 2 ak ak ae 
NOTES: oe ERROR IS INDICATED IF THERE IS NOT A GOOD SECTOR ON 


2 
x 
HE CE TRACK WHEN A WRITE IS INDICATED. * 
TF NO ERRORS ARE FOUND, ROUTINE 4 IS STARTED. . 
% 
ote 


eHHKKHE 


Me oie fe cafe fe 2c aie ae ae 2h ae af ahe af ae ae ae 2c 2 he ah fe ae fe fe ae afc cafe ae afe afc aye afe afc aie afc ie a 3h OIE he aie ake ah x 3c Se Oe aI a fe aie ae he af He 3A ae She aie Bie ae fe ae he yc he he I He fe ak ae fe fe x aie Ie He 3h 3h 


OY rpaee 4s 


HiS ROUTINE WILL FORCE ERRORS THAT THE ATTACHMENT CARD SHOULD REJECT. ON EACH 
ERROR A READ CYCLE STEAL STATUS OPERATION IS PERFORMED AND THE RESIDUAL ADDRESS 
IS COMPARED TO AN EXPECTED VALUE. IF NO ERRORS ARE FOUND, ROUTINE 1 IS STARTED. 


TERMINATING SEQUENCE 
3 | ete WITH THE *I* BIT OFF 


DROGRAM TERMINATE 


17.01.00 DISK HALT CODES 


78E1 CAN THE 4962 C.E. TRACK BE WRITTEN ON DA = XX 
ca A 256 BYTE SECTOR BE WRITTEN AT DEVICE ADDRESS XX CYLINDER (DECIMAL) 
( 


R3 -> EBCDIC DEVICE ADDRESS) 
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18.00.00 DISK ROUTINE DESCRIPTION (4963) -~--~ TYPE 7A 


WHEN EXECUTING THE DISK SYSTEM TEST eae THE QUESTION OF WRITING ON THE DISK 
WILL BE DISPLAYED TO THE OPERATOR. ANSW WER TO THE QUESTION IS YES, ROUTINE 
4 WILL BE EXECUTED. IF NO ONLY ROUTINES. i. 2, 3 AND 5 WILL BE EXECUTED. 

He 


He Ee 2c ae ae ake a oie a ae ae afc af aie a ae ae ae afc he a ie he ae 2c 3c ake he Se ix ie Be ae SH Sk Oe IC IK a ie aie SI OK Oe ah Si aie Se fe Se BIE afc SC Oe ic 3 aK Be BK 2 2h Se ok akc ah ake he aie ac ae ae ae AC OC a af ah ae ie OK 2 2k 


NOTE (1) S TEST WILL BE TERMINATED Dane THE QUESTION IS 
A D (ONE PER DISK DEVICE ADDRESS 
(2) ¥ ROR OCCURS, DEV1 AND DEV2 WILL CONTAIN THE 


x 
* 

* 

E é 4 
CTOR ID INFORMATION. 
sk 

oe 


KHHETKKHHHK 


Me whe 2 ie ae ik af ie ik oe he aie fe fe af ae ik fe ie ac ae af 2h a aie aie oe 2 a af aie aie ake aie ie aie fe ic ae of aie ae 2k afc ae he aie ae afk oc 2 af 2c aie OK aie ae ie af afc a ic aie afc afc she ac ae he he ae Be A ate oe fe Hk afc ake a ic ok 2K 


ROUTINE 1: 


THIS ROUTINE FIRST GIVES A RESET AND READ ID TO THE DEVICE. THEN WILL PREPARE 
THE DEVICE FOR LEVEL 0 THROUGH 2. ON EACH LEVEL A DUMMY SEEK IS PERFORMED fTf0 
ENSURE THAT ALL LEVELS WILL INTERRUPT CORRECTLY. THEN A START CYCLE STEAL STATUS 
IS GIVEN TO OBTAIN THE NUMBER OF HEAD(S) AND SIZE OF THE UNIT. IF NO ERRORS ARE 


FOUND, ROUTINE 2 IS STARTED. 
ROUTINE 2: 


THIS ROUTINE RECALIBRATES THE DISK THEN SEEKS TO CYLINDER 302, 1, 301 300 
ea 152, 151. EACH SEEK IS CHAINED TO A READ SECTOR ooo AND THE SEEK 2 THEN 
CHECKED. FOR VALIDITY. ON EACH CYLINDER THE FIRST GOOD SECTOR IS LOCATED AND A 
READ AND VERIFY IS ISSUED FOR THAT SECTOR. A GOOD SECTOR IS VERIFIED FOR EACH 
TRACK OF EACH CYLINDER. IF NO ERRORS ARE FOUND, ROUTINE 3 IS STARTED. 
ROUTI : 
THIS ROUTINE RECALIBRATES THE DISK THEN SEEKS TO CYLINDER 0, 359, 1, 358, 2, 357 
3, +--+ 179. EACH SEEK IS CHAINED TO A READ SECTOR ID AND THE SEEK I§8 THEN 
CHECKED’ FOR VALIDITY. F NO ERRORS ARE FOUND, ROUTINE 4 IS STARTED, 
ROUTINE 4: 
THIS ROUTINE WILL VERIFY THAT THE DISK CAN BE WRITTEN. IF YES CONTINUE NO 
ROUTINE 5 IS STARTED. IN CONTINUING THE ROUTINE WILL RECALIBRATE THEN SEEK TO 
TRACK 359 (CE TRACK). AFTER THE SEEK THE SECTOR ID IS READ AND TESTED, IF GOOD A 
256 BYTE SECTOR IS WRITTEN, READ BACK AND COMPARED. THIS IS PERFORMED ON ALL BUT 
FIXED HEAD(S). ROUTINE 5 £S STARTED. 
ROUTINE 5: 
THIS ROUTINE WILL FORCE ERRORS THAT THE ATTACHMENT CARD SHOULD REJECT. ON EACH 
ERROR A READ CYCLE STEAL STATUS OPERATION IS PERFORMED AND THE RESIDUAL ADDRESS 
IS COMPARED TO AN EXPECTED VALUE. IF NO ERRORS ARE FOUND. ROUTINE 1 IS STARTED. 
He Bye He ae ie afc ate he he of AK Re ate afc afc oe ak she sik of she oe ak ake Oe ae ah His oe he otk ste oe ate ate ae afc afc oie ate aie aft ofe afc she ate af aft ae afc afc ae ofc fe afe ake afc aie aye ak afe afc ofc afc ake ae fc ake fe afc sfc akc afc afc ake afc afc afc afc afc akc oft fe ate 
a x 
Bd é 
x NOTE: AN ERROR IS INDICATED IF THERE IS NOT A GOOD SECTOR x 
FOUND ON THE CE TRACK WHEN A WRITE IS INDICATED. * 
. 3 x 
WE HC HE Ye HE IE OK KK ok fe fe ae ae ae oie of hc ake oc fe af aft afc oe Ae ate ok ae afc oie ae oh oie ofc oft ate ah afc ie ae ae afc af 2h ae ae ak afc ahe ofc fe aft afc ae afc hc afe ae ae ae ic afc afc afk Ae She ak ate af afc ate afc hc afk aye af afe ake afc afr afe afc ax sk 


ae ae Gee? SEQUENCE 
2 } poeenr WITH THE 'I* BIT 


PROGRAM TERMINATE 


18.01.00 DISK HALT CODES 


7AE1 CAN THE 4963 C.E. TRACK BE WRITTEN ON DA = XX 
CAN A 256 BYTE SECTOR BE WRITTEN AT DEVICE ADDRESS XX ON THE C.E. 
(R3 -> EBCDIC DEVICE ADDRESS) 


7AE2 DO YOU WANT 4963 HARDWARE RETRIES ON DA = XX 
woe ADDRESS XX HAS AUTOMATIC HARDWARE RETRY ~~ SHOULD IT BE USED (Y OR 
(R3 -> EBCDIC DEVICE ADDRESS). 


963 HARDWARE RETRY AN ERROR ON DA = XX 

HARDWARE RETRIES ARE SELECTED AS AN OPTION FOR DEVICE ADDRESS XX SHOULD 
RIES, IF THEY OCCUR, BE AN ERROR. 

~> EBCDIC DEVICE ADDRESS) . 


7AE3 IS 
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19.00.00 IDIDO ROUTINE DESCRIPTION -*- TYPE AO 


WHEN EXECUTING THE IDIDO SYSTEM TEST PROGRAM, THE QUESTION IS THE DEVICE WRAPPED 
OR NOT WILL BE DISPLAYED TO THE OPERATOR. IF THE ANSWER TO THE QUESTION IS _ YES 
THEN BOTH ROUTINES 3 AND 6 WILL BE EXECUTED. IF NOT WRAPPED BOTH OF THESE 
ROUTINES WILL NOT BE ACTIVE. 


ME 3 HE ae ae Se Ac ae a fee ae he ie ik afc 2c ae afc 2c 2c af af fe ake ke a ok iC a ok aie ai aie afc aie fe ae ae ake ak a a i of aie ae akc ic ale ai aie ale afc af afc ate af afc aie a afc ake ak ate aie afc afc af ae afc ae 3h fe af ie af ae ak af of 34 afe 


* x 
# 
* NOTE: SYSTEM TEST WILL BE TERMINATED UNTIL THE QUESTION IS * 
. ANSWERED. (ONE PER IDIDO DEVICE). : 
* 
SIO RR I IK Ik 2k ak 3k 2k 2 ke aR Re 2 ak a kc ac fc 2 2 akc fe ae af ake a ak 2k afc 2 ake fe 28 2 ke a ake a ae 2c ake a ae afc afc afc 2c afc afc ak afc afc age ake ae ak age afc ac 2k ak aft ak a fe a a 9k akc ac 


ROUTINE 13 
THIS ROUTINE GIVES A RESET THEN READS THE ID OF ALL FOUR DEVICE ADDRESSES 
ASSOCIATED WITH THIS ATTACHMENT CARD. AFTER WHICH THE DEVICE IS THEN PREPARED ON 
O THROUGH 2. ON EACH INTERRUPT LEVEL A ARM PI AND SET TEST 1 IS GIVEN TO 
Recto ee eekeED WILL INTERRUPT ON ALL LEVELS. IF NO ERRORS ARE FOUND 


< 
te 
™ 
MN 


= 6) 
Oo 
G 


ES THAT THE TWO DI'S WILL GIVE A COMMAND REJECT TO ALL ILLEGAL 
THE DI*S ARE RESET AND IF NO ERRORS ARE FOU IS 


ND ROUTINE 3 


=] 

© 

ano} 
es) 
a 8 SP 


ROUTINE WILL FIRST DETERMINE IF THE CARD IS WRAPPED, IF NOT ROUTINE 4 IS 
D. IF THE CARD IS WRAPPED THEN THIS ROUTINE GIVES THE SAME DCB*S AS DOES 
E 2 BUT ONLY TO THE TWO DO'S ASSOCIATED WITH THE CARD. IF NO ERRORS ARE 
ROUTINE 4 IS STARTED 


= ©) 

© 

S&S 
YN eAPDasy WOOP PHA HOA MORAY ae 
MPNMAOTH DWH THY SMH OCOORTMH SOQTH O@k 


PNWOGHm We 


oe 


ON f2HdMwNe 
Ou 


UTINE WILL PREPARE THE DEVICE TO LEVEL ONE, THEN RESET BOTH DI'S. AFTER 
ie DI'S ARE GIVEN A SET TEST 1 THEN THE STATUS AND DI REGISTERS ARE READ 


COMPARED TO EXPECTED DATA. IF NO ERRORS ARE FOUND ROUTINE 5 IS STARTED. 
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© 
c 
SS OWNS AGP ANSa SroOrRas GN 
tS 
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3 


O BOTH ODI*S. THE ‘ARM PI* AND "SET TEST O' DCB*S ARE GIVEN TO BOTH 
EAD STATUS IS THEN GIVEN AND CHECKED AGAINST EXPECTED VALUES. IF NO 
RE FOUND ROUTINE 6 IS STARTED 


TINE FIRST WILL PREPARE (WITH THE 'I* BIT OFF) THE DEVICE AND THEN GIVES 
R 


rye 
WM 


E WILL FIRST DETERMINE IF THE ATTACHMENT CARD IS WRAPPED 
STARTED. IF THE CARD IS WRAPPED A_RESET IS GIVEN TO ALL ADD 
IS PREPARED TO LEVEL 1. DATA IS THEN WRITTEN TO BOTH DO'S AN 
DI'S TO BE CHECKED. THE DATA PATTERN WRITTEN IS HEXADECIMAL § 
i 3% =-+- THROUGH ----~ "FFFF'. IF NO ERRORS ARE FOUND ROUTINE 


Poo HAM ONWNE 


TERMINATING SEQUENCE: 
1 PREPARE WITH 'I* BIT OFF (ALL FOUR) 
2 RESET (ALL FOUR 
3 PROGRAN TERMINATE 


19.01.00 IDIDO HALT CODE 


AOE1 IS THERE A WRAP CABLE CONNECTED TO DA = XX 
DOES THE DEVICE ADDRESS XX HAVE A WRAP CABLE CONNECTED (Y¥ OR N) 
(R3 +> EBCDIC DEVICE ADDRESS) 
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20.00.00 OEMIA ROUTINE DESCRIPTION ---- TYPE A3 


EXECUTING THIS SYSTEM TEST PROGRAM, FOUR fi) ROUTINES WILL BE EXECUTED 


MATICALLY. THE DESCRIPTION OF EACH TEST’ (ROUTINE) IS AS FOLLOWS: 


= 8] 
O 
G 


Hei We <b OO PHOWAA P= 
ODMH OFrTH POH MaPte am 


NE GIVES A RESET THEN READS THE ID ASSOCIATED WITH THIS ATTACHMENT 
TER WHICH THE DEVICE IS THEN PREPARED ON LEVELS 0 THROUGH 2. ON EACH 
LEVEL A ARM PI IS PERFORMED TO ENSURE THAT THE DEVICE WILL INTERRUPT ON 
- IF NO ERRORS ARE FOUND ROUTINE 2 IS STARTED 


HOUR O=2@ 


tine 


OWN WD Wes 
aq Oto 


Oes 
& 


S THAT THE CONFIGURATION TABLE 
* TO ‘FFFF* THROUGH THE WRITE 
O ERRORS ARE FOUND, ROUTINE 3 


IS CORRE ae THEN WRITES ALL 
ee TREE 5.2 HEN READ AND COMPARE 


tat 


I 


FIRST DOES A DIAGNOSTIC RESET THEN A SET DIAGNOSTIC HWODE 1. ALL 
CR ES SP ARTeD WHAT IS IN THE CONFIGURATION TABLE. IF NO ERRORS ARE 


ROU 


Ha SPAS eee Pee A 
Nis 2CcMNm Naw 


Ws 
ROUTINE WILL PREPARE THE DEVICE TO LEVEL ONE THEN SET MODE 2 AND SET HODE 3 
ee EeD TO ENSURE THERE CORRECT OPERATION. IF NO ERRORS ARE FOUND ROUTINE i 


TERMINATING SEQUENCE 
CHANGE FROM DIAGNOSTIC MODE TO NORMAL HODE 
PREPARE WITH "'I* BIT OFF 
RESE ‘ 


T 
PROGRAM TERMIN 


SWAN) = 


TE 
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21.00.00 SENSOR I/O ROUTINE DESCRIPTION (4982) ---+ TYPE A4 
WHEN EXECUTING THE SENSOR [I/O SYSTEM TEST PROGRAM FOUR fy, ROUTINES WILL BE 
EXECUTED AUTOMATICALLY. THE DESCRIPTION OF EACH fEST (ROUTINE) IS AS FOLLOWS: 
ROUTINE 1: 
THIS ROUTINE GIVES A RESET THEN READS THE ID ASSOCIATED WITH THIS eon a hen 
CARD. AFTER WHICH THE DEVICE IS THEN PREPARED ON LEVELS OQ THROUGH 2. EACH 
INTERRUPT LEVEL A ARM PI IS PERFORHED TO ENSURE THAT THE DEVICE WILL LNTERRUPT ON 
ALL LEVELS. IF NO ERRORS ARE FOUND ROUTINE 2 IS STARTED 
ROUTINE 2: 
THIS ROUTINE ENSURES THAT THE CONFIGURATION TABLE IS CORRECT. THEN WRITES ALL 
VALUES FROM £0000 TO *FFFF* THROUGH THE WRITE REGISTER. THEN READ AND COMPARE 
THESE VALUES. IF NO ERRORS ARE FOUND, ROUTINE 3 IS STARTED. 
ROUTINE 3: 
THIS ROUTINE FIRST DOES A DIAGNOSTIC RESET THEN A SET DIAGNOSTIC MODE 1. ALL 
VALUES ARE COMPARED TO WHAT IS IN THE CONFIGURATION TABLE. IF NO ERRORS’ ARE 
FOUND ROUTINE 4 IS STARTED. 
ROUTINE 4: 
THIS ROUTINE WILL PREPARE THE DEVICE TO LEVEL ONE THEN SET HODE 2 AND SET MODE 3 
ARE TESTED TO ENSURE THERE CORRECT OPERATION. IF NO ERRORS ARE FOUND ROUTINE 1 
IS STARTED. 
TERMINATING SEQUENCE 
1 CHANGE FROM DIAGNOSTIC MODE TO NORMAL MODE 
2 PREPARE WITH 'I* BIT OFF 
3 RESET 
uy PROGRAN TERMINATE 
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22.00.00 PROGRAMMABLE COMMUNICATIONS SUBSYSTEM ---- TYPE EO 


EXECUTING THE PROGRAMM 
INES WILL BE EXECUTED AUT 
S FOLLOWS: 


ABLE COMMUNICATION 
OMA 


S SUBSYSTEM TEST PROGRAM, FIVE (5 
TICALLY. THE DESCR 


IPTION OF EACH TEST (ROUTI 


= 6] 
© 
—) 


E GIVES A RESET THEN READS THE ID pepope Ge pret THIS ATTACHMENT 

WHICH THE DEVICE IS THEN PREPARED ON LEVELS ON THIS INTERRUPT 
N RESET TEST IS EXECUTED TO ENSURE THAT THE DEVICE WILL INTERRUPT. 
THEN DUPLICATED ON LEVELS ONE AND TWO. IF NO ERRORS ARE FOUND A 
ESULTS IS ISSUED AND THE CHECKSUM IS CHECKED. IF NO ERRORS 
NE 2 IS STARTED 


Ht OO 
ty 
2) 
3) 
tH 
ya) 


= ©] 
O 
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Se PASM HOE 


eeeoe FOUR TEST ATTACHMENT TEST IN THE FOLLOWING ORDER: 
anes THEN COMPARED TO EXPECTED VALUES. IF NO ERRORS ARE FOUND ROUTINE 


IINE DOES A DIAGNOSTIC MODE WRITE SCAN TABLE COMMAND. THE VALUES WRITTEN 
DECIMAL "00 THROUGH "1F'. IF NO ERRORS ARE FOUND ROUTINE 4 IS STARTED. 


Ga 


PREPARE THE DEVICE TO LEVEL ONE THEN HRITE A MICROCODE LOAD 
. READ THE TABLE BACK AND COMPARE THE WRITTEN DATA WITH THE 
NO ERRORS ARE FOUND ROUTINE 5 IS STARTED. 


OUTINE WILL PREPARE THE DEVICE TO LEVEL ONE THEN WRITE A MICROCODE LOAD 

O THE eer AFTER THIS THE PARAMETER IS PASSED TO THE ATTACHMENT CARD 
UP FOR CHECK TEST. WHEN THIS IS COMPLETE THE 8, AND 5 BIT TESTS 

Ee. AFTER RACH TEST IS COMPLETE THE RECEIVED DATA IS "COMPARED TO EXPECTED 
IF NO ERRORS ARE FOUND ROUTINE 1 IS STARTED. 


TERMINATING SEQUENCE: 
PREPARE WITH ‘I BIT OFF 
RESET 


PROGRAM TERMINATE 


o mbH bee 
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23.00.00 5250 ATTACHMENT --------- weer ee weee—e-=- TYPE EY 


NOTE - BEFORE A 2291 DISPLAY CAN BE USED AS AN ALTERNATE CONSOLE, WRITE THE DATA 
SET (S "EGDO* AND ‘tE4Dit A uyapED } FROM DISKETTE PART NUMBER OB AC2re eo 
THE SYSTEM TEST DISKETTE PART NUMBER 1635003 USE THE PROGRAMMER OR 
CONSOLE AND THE UTILITY PROGRAM 38F9 TO DISPLAY THE VTOC FOR THE SYSTEM 
TEST DISKETTE. SEE IF DATA SET(S) *E4DO* AND *E4D1* ARE ON THE DISKETTE. 


DATA SET "E4DO* MUST BE WRITTEN ON THE SYSTEM TEST DISKETTE. 

DATA SET *‘E4D1' IS OPTIONAL. IT IS NOT NECESSARY TO WRITE THIS D 
THE SYSTEM TEST DISKETTE. IF YOU HAVE DATA SET E4D1 ON DISKETTE 
WRITE IT. IF YOU DO NOT HAVE DATA SET "E4D1* ON DISKETTE 6826 
NOT NEEDED BY YOUR SYSTEM. 


XECUTING THE WORK STATION U 
TICALLY (BUT ONLY ONE STATI 
THE DESCRIPTION OF EACH TE 


AT 


A SET T 
6826590 
590, IT I 
T (8) ROUTINES ARE START 


GH 
TYPE MAY BE TESTED AT ANY O 
FOLLOWS: 


now 
HAO 
2b 
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+= 6] 
O 
ioe 


Dri WMA NAA EAE MAE Ss MOF Oe Fea AS 


RST WILL PREPARE THE DEVICE TO LEVEL ZERO {o) THEN DOE 
E DEVICE AFTER WHICH A START CYCLE STEAL TATUS 15S 

CE WILL INTERRUPT ON THE PREPARED LEVEL. THIS SAME PRO 
LS 1 AND 2. IF NO ERRORS ARE FOUND, ROUTINE TWO (2) IS 


S_A_R 
GIVEN 
CEDUR 
STAR 


O Ws 
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fon} 


OUTINE WILL FIRST BLANK THE SCREEN THEN WRITE EACH CHARACTER TO EACH SCREEN 
O THIS IS PERFORMED BY FILLING THE SCREEN WITH EACH CHARACTER. IF NO 
ARE FOUND ROUTINE THREE (3) IS STARTED. 
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TINE WILL PREPARE THE DEVICE TO LEV 
ED WITH ‘II'. THE OPERATOR CAN DE 
NO ERRORS ARE FOUND ROUTINE FOUR 


EL jl, PRINT SIXTEEN (16) LINES OF ‘HH! 
TERMINE THE ALIGNMENT INTEGRITY OF THE 
(4) IS STARTED. 
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ST BLANK THE SCREEN. THE 
TIL IT IS AT THE TOP. THI 
A SHIFT UP. IF NO ERRORS 


TA a WRITTEN ON aa BOTTOM 
Cone BY EXECUTING A WRITE 


OUND, ROUTINE PIVE (5) IS 
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ROUTINE WILL PRINT EACH CHARACTER DEFAULT CHARACTER SET, TO EACH PRINT 
TION. IF NO ERRORS ARE FOUND, sOnetNS ST x (6) IS STARTED. 


E 6:3 
E TEST IS EQUAL TO THAT OF ROUTINE FOUR (4) WITH THE EXCEPTION OF WRITING TO 
ea LINE WITH A DOWNWARD SHIFT. IF NO ERRORS ARE FOUND, ROUTINE SEVEN (7) IS 
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INE WILL CHANGE THE PRINT LOCATION OF A FIXED, 8 CHARACTER DATA BUFFER 
E DEVICE ON CHANGED LENGTH LINES. IF NO ERRORS ARE FOUND ROUTINE 8 IS 
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ILL ENSURE THAT ALL ILLEGAL DCB'S WILL GIVE A COMMAND REJECT. 
en. GIVEN TO THE ATTACHMENT CARD. IF NO ERRORS ARE FOUND 


TERMINATING SEQUENCE 
1) PREPARE WITH 'I* BIT OFF 2) RESET 3)PROGRAM TERMINATE 


23.01.00 5250 ATTACHMENT HALT CODES 

E4E1 ENTER STATION ADDRESS FOR DISPLAY (FF = DO NOT TEST) DA = XX 
FOR DEVICE ADDRESS XX ENTER THE STATION ADDRESS OF THE 
BE TESTED. IF NO STATION IS DESIRED ENTER FF AS THE STA 
(R3 ~> EBCDIC DEVICE ADDRESS) 

E4E2 ENTER STATION ADDRESS FOR PRINTER (FF = DO NOT TEST) DA = XX 
FOR DEVICE ADDRESS XX ENTER THE STATION ADDRESS OF THE DISPLAY STATION TO 
BE TESTED. IF NO STATION IS DESIRED ENTER FF AS THE STATION ADDRESS. 
(R3 -> EBCDIC DEVICE ADDRESS) 


T FORMS WIDTH FOR THE PRINTER D.Aw = XX 
TER PRINT POSITIONS I.E. FO0132 - AND SO ON) 


HA 
EN 
Te PRINT POSITIONS SHOULD BE A_ DECIMAL NUMBER. THE QUESTION SHOULD BE 
UR 
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ae eo DESCRIBED. REMEMBER THAT MULTIPART PAPER SHOUL NEVER BE USED 
-> EBCDIC DEVICE ADDRESS) 


aor ~=£ 
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24.00.00 ACCA SL ROUTINE DESCRIPTION ---- TYPE E8 
WHEN EXECUTING THE CCA SL SYSTEM TEST PROGRAM es" ay ROUTINES ARE STARTED 
AUTOMATICALLY. A DESCRIPTION OF EACH TEST (ROUTINE Is A OLLOWS: 

ROUTINE 1: 
THIS ROUTINE GIVES A RESET THEN READS THE DEVICE ID ON LEVELS 0O THROUGH 2, ON 
EACH LEVEL A ODTR COMMAND IS GIVEN TO OBTAIN AN INTERRUPT. WHEN THIS HAS BEEN 
DONE CORRECTLY, A DIAGNOSTIC TWO COMMAND IS GIVEN AND A CHECKSUM CHECK IS 
PERFORMED. IF NO ERRORS ARE FOUND ROUTINE 2 IS STARTED. 

ROUTINE 2: 
THIS ROUTINE ENSURES THAT THE CYCLE STEAL STATUS RESIDUAL ADDRESS IS CORRECT. IF 
NO ERRORS ARE FOUND ROUTINE 3 IS STARTED. 

ROUTINE 3: 
THIS ROUTINE FIRST GIVES A DIAGNOSTIC TWO COMMAND. WILL THEN TEST THE RECEIVED 
DATA FOR VALIDITY WITH THE LAST DCB AND THE INFORMATION PASSED THROUGH THE 
CONFIGURATION TABLE. THIS CHECK ONLY INCLUDES DIAGNOSTIC READ DATA WORD 4& 
THROUGH WORD 17. IF NO ERRORS ARE FOUND ROUTINE 4 IS STARTED. 

ROUTINE 4: 
THIS ROUTINE GIVES THE DCB*S NECESSARY TO OBTAIN A COMMAND REJECT AND A_ DCB 
SPECIFICATION CHECK. IF NO ERRORS ARE FOUND ROUTINE 1 IS STARTED. 

TERMINATING SEQUENCE: 

1 PREPARE WITH ‘I* BIT OFF 
2 RESET 
3 PROGRAM TERMINATE 
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25.00.00 ACCA ML ROUTINE DESCRIPTION ---- TYPE E9 


WHEN EXECUTING THE ACCA ML SYSTEM TEST PROGRAM THE SAME FOUR (4) ROUTINES ARE 
EXECUTED AS WITH THE ACCA SL (SEE SECTION 23.00.00 ABOVE) « THE DIFFERENCE IS 
THAT ROUTINE ONE WILL BE EXECUTED FOR DA ONE THEN TWO, THREE FOUR --> BIGHT THEN 
ROUTINE TWO IS STARTED FOR DEVICE ADDRESS ONE, TWO =-- AND ON. EXCEPT FOR 
THIS ALL TESTING IS THE SAHE AS THE ACCA SL ATTACHHENT CARD. 

ROUTINE 1: 
THIS ROUTINE GIVES A RESET THEN READS THE DEVICE ID ON LEVELS 0, 1 AND 2. °#4£ON 
FACH LEVEL A DTR COMMAND IS GIVEN TO OBTAIN AN INTERRUPT. WHEN THIS HAS BEEN 
DONE CORRECTLY, A DIAGNOSTIC TWO COMMAND IS GIVEN AND A CHECKSUM CHECK Is 
PERFORHED. IF NO ERRORS ARE FOUND ROUTINE TWO (2) IS STARTED. 

ROUTINE 2: 
THIS ROUTINE ENSURES THAT THE CYCLE STEAL STATUS RESIDUAL ADDRESS IS CORRECT. IF 
NO ERRORS ARE FOUND ROUTINE THREE (3) IS STARTED. 

ROUTINE 3: 
THIS ROUTINE FIRST GIVES A DIAGNOSTIC TWO COMMAND, THEN TEST THE RECEIVED DATA 
FOR VALIDITY WITH THE LAST DCB AND THE INFORMATION PASSED THROUGH THE 
CONFIGURATION TABLE. THIS CHECK ONLY INCLUDES DIAGNOSTIC READ DATA WORD 12. IF 
NO ERRORS ARE FOUND ROUTINE FOUR (4) IS STARTED. 

ROUTINE 4: 
THIS ROUTINE GIVES THE DCB'S NECESSARY TO OBTAIN A COMMAND REJECT AND A DCB 
SPECIFICATION CHECK. IF NO ERRORS ARE FOUND ROUTINE ONE (1) IS STARTED. 


oa nen ore SEQUENCE: 
PREPARE WITH I BIT 
RESET 
PROGRAM TERMINATE 


Wh 
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26.00.00 FPMLC ROUTINE DESCRIPTION -+-+ TYPE EA 


WHEN EXECUTING TH 
SYSTEM TEST PROG 
SEE SECTION 23.00. 


E FEATURE PROGRAMMABLE MULTILINE COMMUNICATIONS ATTACHMENT 
RAM THE SAME FOUR (4) ROUTINES ARE EXECUTED AS WITH THE ACCA SL 
oe geet: 15) D RED (3) IS OUR ( ise HT aeteh BE 
i 


XECUTED FOR_ DA §.) THO e THREE 43) AND FOUR => aay - _THEN 
ROUTINE [WO IS START D FOR DA ONE ath es TWO ) THREE (3) 7 D FOUR EIGHT 
oh EXCEPT FOR THIS ALL TESTING IS TH AME AS THE ACCA SL AT A HMENT CARD. 
WITH THE ADDITION OF A FIFTH (5TH) ROUTINE.) 
ROUTINE 1; 
THIS ROUTINE GIVES A RESET THEN READS THE DEVICE ID ON LEVELS 0 1 AND 2. ON 
EACH LEVEL A RESET COMMAND IS GIVEN TO OBTAIN AN INTERRUPT. WHEN THIS HAS BEEN 
DONE CORRECTLY, A DIAGNOSTIC ONE COMMAND IS GIVEN AND A CHECKSUM CHECK IS 
PERFORMED. IF NO ERRORS ARE FOUND ROUTINE TWO (2) IS STARTED. 
ROUTINE 2: 
THIS ROUTINE ENSURES THAT THE CYCLE STEAL STATUS RESIDUAL ADDRESS IS CORRECT. IF 
NO ERRORS ARE FOUND ROUTINE THREE (3) IS STARTED. 
ROUTINE 3: 
THIS ROUTINE FIRST GIVES A DIAGNOSTIC TWO Eo auent THEN TEST THE RECEIVED DATA 
FOR VALIDITY WITH THE LAST DCB AND THE INFORMATION PASSED THROUGH THE 
CONFIGURATION TABLE. THIS CHECK INCLUDES ALL DIAGNOSTIC DATA. IF NO ERRORS’ ARE 


FOUND ROUTINE FOUR (4) IS STARTED. 
ROUTINE 4: 


THIS ROUTINE GIVES THE DCB'S NECESSARY TO OBTAIN A COMMAND REJECT AND A DCB 
SPECIFICATION CHECK. IF NO ERRORS ARE FOUND ROUTINE FIVE (5) IS STAR ° 
ROUTINE 5: 
THIS ROUTINE WILL ENSURE THAT ALL ILLEGAL DCB'S WILL GIVE A COMMAND REJECT. 
AFTER THIS A RESET IS GIVEN TO THE ATTACHMENT CARD. IF NO ERRORS ARE FOUND 
ROUTINE ONE (1) IS STARTED. 
TERMINATING SEQUENCE: 
1 PREPARE WITH ‘I* BIT OFF 
2 RESET 
3 PROGRAM TERMINATE 
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27.00.00 BSCA SL ROUTINE DESCRIPTION ---- TYPE FO 
WHEN EXECUTING THE BSCA SL SYSTEM TEST PROGRAM, FOUR (4) ES ARE STARTED 
AUTOMATICALLY. THE DESCRIPTION OF EACH TEST (ROUTINE) I Ag OWS. 

ROUTINE 1: 
THIS ROUTINE GIVES A RESET THEN READS THE DEVICE ID ON LEVELS 0, 1 AND 2. ON 
EACH LEVEL A DTR COMMAND IS GIVEN TO OBTAIN AN INTERRUPT. WHEN THIS HAS BEEN 
DONE CORRECTLY, A DIAGNOSTIC COMMAND IS GIVEN AND A CHECKSUM CHECK IS PERFORMED. 
IF NO ERRORS ARE FOUND ROUTINE TWO (2) IS STARTED. 

ROUTINE 2: 
THIS ROUTINE ENSURES THAT THE CYCLE STEAL STATUS RESIDUAL ADDRESS IS CORRECT. IF 
NO ERRORS ARE FOUND ROUTINE THREE (3) IS STARTED. 

ROUTINE 3: 
THIS ROUTINE FIRST GIVES A CYCLE STEAL STATUS COMMAND, THEN TEST THE RECEIVED 
DATA FOR VALIDITY WITH THE INFORMATION PASSED THROUGH THE CONFIGURATION TABLE. 
IF NO ERRORS ARE FOUND ROUTINE FOUR (4) IS STARTED. 

ROUTINE 4: 
THIS ROUTINE GIVES THE DCB'S NECESSARY TO OBTAIN A COMMAND REJECT AND A DCB 
SPECIFICATION CHECK. IF NO ERRORS ARE FOUND ROUTINE ONE (1) IS STARTED. 

TERMINATING SEQUENCE: 

1 RESET 
2 PREPARE WITH *I* BIT OFF 
3 PROGRAM TERMINATE 
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28.00.00 BSCA ML ROUTINE DESCRIPTION ~--= TYPE F1 


WHEN EXECUTING THE BSCA ML SYSTEM TEST PROGRAM THE SAME FOUR (4) ROUTINES ARE 
EXECUTED AS WITH THE BSCA SL (SEE SECTION 26.00.00 THE DIFFERENCE IS THAT 
ROUTINE ONE WILL BE EXECUTED FOR DA ONE THEN TWO, THREE, FOUR --> EIGHT THEN 
ROUTINE [WO IS STARTED FOR DEVICE ADDRESS ONE, TWO --- AND 80 ON. ~° EXCEPT FOR 
THIS ALL TESTING IS THE SAME AS WITH THE BSCA SL ATTACHHENT CARD. 

ROUTINE 1: 
THIS ROUTINE GIVES A RESET THEN READS THE DEVICE ID ON LEVELS 0, 1 AND 2. ON 
EACH LEVEL A DTR COMMAND IS GIVEN TO OBTAIN AN INTERRUPT. WHEN THIS HAS BEEN 
DONE CORRECTLY DIAGNOSTIC COMMAND IS GIVEN AND A CHECKSUM CHECK IS PERFORMED. 
IF NO ERRORS ARE FOUND ROUTINE TWO (2) IS STARTED. 

ROUTINE 2: 
THIS ROUTINE ENSURES THAT THE CYCLE STEAL STATUS RESIDUAL ADDRESS IS CORRECT. IF 
NO ERRORS ARE FOUND ROUTINE THREE (3) IS STARTED. 

ROUTINE 3: 
THIS ROUTINE FIRST GIVES A CYCLE STEAL STATUS COMMAND. THEN TESTS THE RECEIVED 
DATA FOR VALIDITY WITH THE INFORMATION PASSED THROUGH THE CONFIGURATION TABLE. 
IF NO ERRORS ARE FOUND ROUTINE FOUR (4) IS STARTED. 

ROUTINE 4: : 
THIS ROUTINE GIVES THE DCB*S NECESSARY TO OBTAIN A COMMAND REJECT AND A DCB 
SPECIFICATION CHECK. IF NO ERRORS ARE FOUND ROUTINE ONE (1) IS STARTED. 

TERMINATING SEQUENCE: 

1 PREPARE WITH 'I* BIT OFF 
2 RESET 
3 PROGRAM TERMINATE 
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29.00.00 SDLC ROUTINE DESCRIPTION ---- TYPE F8 


WHEN EXECUTING THE SDLC SYSTEM TEST PROGRAM, THE QUESTION IS THE DEVICE WRAPPED 
WILL BE DISPLAYED TO THE OPERATOR. IF THE ANSWER TO THE QUESTION IS YES _ THEN 
BOTH ROUTINES 3 AND 4 WILL EXPECT DIFFERENT STALUS DATA. IN THIS PROGRAH FOUR 
(4) ROUTINES ARE STARTED AUTOMATICALLY. 


fe ax He ake Bho ale afc afc af af afc afe ake aie ae afe aye ae she fe ake af a age Bx she ae whe af she she fe fe she fe Oe He She ae ae af aye ae A she Oe he MI ae aR ope Ae he he ae ah aie ec ae Se he aye She afc The Sie fe ai aye af Bh aye af afc afc ah he oh aie oh OK ee 


Xe 

a i 
x NOTE: SYSTEM TEST WILL BE TERMINATED UNTIL THE QUESTION IS ANSWERED. a 
* (ONE PER SDLC DEVICE). : 
ie Bd 
Be He HHS AE aie ah ae ae he af ah afc She oie ae ix ae aye ae Me akc fe she ae ale oe ae oie ahs he Me Oe oie NS she ake Bie She Se ahs Ne ae ae akc She She SH aye Nhe Ihe she aye ae Te ae she ae ae ae he Bye ac ye ake Ie ae afc he she ae ah ae aye afc aie aye fe ae 2 ae akc aye sf 3h 


ROUTINE 1: 
THIS ROUTINE GIVES A RESET THEN READS THE DEVICE ID ON LEVELS us THROUGH 2, ON 


EACH LEVEL A ODTR COMMAND IS GIVEN TO OBTAIN AN INTERRUPT. EN THIS HAS BEEN 
DONE CORRECTLY, A DIAGNOSTIC COMMAND IS GIVEN AND A CHECKSUH CHECK IS PERFORMED. 
IF NO ERRORS ARE FOUND ROUTINE 2 IS STARTED. 

ROUTINE 2: 
THIS ROUTINE ENSURES THAT THE CYCLE STEAL STATUS RESIDUAL ADDRESS IS CORRECT. 
THEN GIVES ANOTHER CYCLE STEAL STATUS READ TO ENSURE THAT FIRST CYCLE STEAL READ 
DID NOT CHANGE THE RESIDUAL ADDRESS. IF NO ERRORS ARE FOUND ROUTINE 3 IS 
STARTED. 

ROUTINE 3: 
THIS ROUTINE FIRST GIVES A DIAGNOSTIC TWO COMMAND THEN CHECKS THE STATUS WORDS TO 
ENSURE THAT THEY ARE CORRECT WITH THE CONFIGURATION TABLE AND THE ATTACHMENT CARD 
IF WRAPPED. IF NO ERRORS ARE FOUND ROUTINE 4 IS STARTED. 

ROUTINE 4; 
THIS ROUTINE GIVES THE DCB'S NECESSARY TO OBTAIN A COMMAND REJECT AND A_ DCB 
SPECIFICATION CHECK THEN A DISABLE FOLLOWED BY AN ENABLE. IF NO ERRORS ARE 
FOUND ROUTINE 1 IS SHARTED. 

TERMINATING SEQUENCE: 

1 PREPARE WITH ‘I* BIT OFF 
2 RESET 
3 PROGRAM TERMINATE 


29.01.00 SDLC HALT CODE 


F8E1 IS THERE A WRAP CONNECTED TO DA = XX 
DOES THE DEVICE ADDRESS XX HAVE A W®RAP CABLE CONNECTED (Y OR QW) 
(R3 -> EBCDIC DEVICE ADDRESS) 
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FRIEND USER'S GUIDE 01.00.00 INTRODUCTION. 


FREELANCE THE I/O ERRORS - NOT A DIAGNOSTIC 
TABLE OF CONTENTS 


THE PURPOSE OF THIS MAP IS TO DESCRIBE TO THE USER HOW TO ASSEMBLE SPECIFIC I/0 
01.00.00 INTRODUCTION TEST ROUTINES THAT WILL MAKE AN ATTEMPT TO DUPLICATE THE FAILURE INDICATED BY THE 
02.00.00 FRIEND SUPERVISOR LOADING AND RUNNING etree cre pent 
02.01.00 FRIEND SUPERVISOR MAIN OPTION MENU THESE DEVICE(S) ARE RECOGNIZED BY THE FRIEND SUPERVISOR 
02.02.00 FRIEND SUPERVISOR HALT CODES DEVICE DEVICE TYPE 
03.00.00 FRIEND SUPERVISOR ERROR REPORTING METHOD TTY 40 
04.00.00 FRIEND SUPERVISOR SAMPLE SESSION 4979--DISPLAY 44 
05.00.00 ROUTINE DESCRIPTION (TTY) 4978--DISPLAY 45 
06.00.00 4979 ROUTINE DESCRIPTION (DISPLAY) 4964--DISKETTE 438 
07.00.00 4964 ROUTINE DESCRIPTION (DISKETTE) 4966--DISKETTE QA 
08.00.00 4974 ROUTINE DESCRIPTION (PRINTER <MATRIX>) 4969--TAPE 58 
09.00.00 4973 ROUTINE DESCRIPTION (PRINTER <CHAIN>) 4974--PRINTER (MATRIX) 64 
10.00.00 4962 ROUTINE DESCRIPTION (DISK) 4973--PRINTER (CHAIN) 68 
11.00.00 4982 ROUTINE DESCRIPTION (SENSOR I/O = ATI) 496 2--DISK 78 
12.00.00 4982 ROUTINE DESCRIPTION (SENSOR I/O - AO) 4963--DISK TA 
13.00.00 4982 ROUTINE DESCRIPTION (SENSOR I/O ~ DI/P1I) 4982--SENSOR I/0 (AI) A8 
14.00.00 4982 ROUTINE DESCRIPTION (SENSOR I/O - DO) 4982--SENSOR I/O {AO) Ag 
15.00.00 4978 ROUTINE DESCRIPTION (DISPLAY) 4982--SENSOR I/O (DI/PI) BO 
16.00.00 4966 ROUTINE DESCRIPTION (DISKETTE) 4982--SENSOR I/0 (DO) B4 
17.00.00 4963 ROUTINE DESCRIPTION {DISK) 
18.00.00 4969 ROUTINE DESCRIPTION (TAPE) 
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02.00.00 FRIEND SUPERVISOR LOADING AND RUNNING THE ROUTINE DESCRIPTION FOR EACH DEVICE TYPE. 

SEE MAP 015 SECTION 02.00.00 TO IPL THE SYSTEM TEST DISKETTE AND COME TO 'RDY a eta 

ENTER" (HALT CODE 3400). F020309 

THE FOLLOWING ECP COMMAND(S) IS/ARE ACTIVE WHILE THE FRIEND SUPERVISOR IS IN IN THE PRECEDING EXAMPLE THE COMMAND LIST IS : PREPARE , READ ID,AND WRITE. 
Bs WHEN ALL MESSAGES HAVE BEEN CORRECTLY ANSWERED THE ROUTINE WILL RETURN CONTROL TO 
0 A NO REPLY T0 A QUESTION THE FRIEND SUPERVISOR. NOW THE MAIN OPTION MENU FOR FRIEND SUPERVISOR WILL BE 
1 A YES REPLY TO A QUESTION DISPLAYED. 
6 CONTINUE RUNNING AT THE NEXT SEQUENTIAL INSTRUCTION 
7 STOP TEST 
B START PROGRAM 
D DUMP STORAGE 
F RESPOND TO PROGRAM 

IF THE ALTERNATE CONSOLE IS BEING TESTED IT MAY BE NECESSARY TO PRESS THE STOP 

KEY ON THE PROGRAMMER (S) CONSOLE AND STORE THE HEXADECINAL VALUE 8000 IN STORAGE 

LOCATION (HEXADECIMAL) 180E. PRESS THE START KEY TO STOP THE TEST. 

NOW ENTER, BY THE ALTERNATE CONSOLE, ‘'B3420° THIS WILL LOAD THE FRIEND 

SUPERVISOR AND START A SERIES OF MESSAGES TO PREPARE THE SPECIFIC TEST. 

EXAMPLE: 

RDY THE RDY ENTER IS THE RESULT OF IPL 


B3420 
Eanes LOADED 
I STORAGE ADDRESS NEEDED FOR DATA? 


GE ENDING W 
EDED FOR DATA 


ae a QUESTION MARK, FOR EXAMPLE ' IS A SPECIFIC STORAGE 
ECTION 03.00.00 

ESSA 

STEA 


ITH A 
?* SHOULD BE ANSWERED WITH A YES OR NO DESCRIBED IN MAP 


M 
ES 
S 


ANY 
ADDR 
0015 
THE MESSAGE ‘IS A_SPECIFIC STORAGE ADDRESS NEEDED FOR DATA?* IS N 
CYCLE STEAL OF DATA TO OR FROM A SPECIFIC STORAGE ADDRESS IS T 
PROBLEM. 
IF THIS IS THE CASE THEN ANSWER YES AND ANSWER THE NEXT QUESTION. 


ree THE ADDRESS 


= 


MEMBER THE END OF DATA ADDRESS WILL NOT BE CHECKED THEREFORE IF THE DATA FIELD 
EYOND THE END OF STORAGE A PROGRAM CHECK MAY OCCUR. 
ED STORAGE IS NOT SUPPORTED. 


ORAGE PROTECT KEY WILL BE ZERO. 


PECIFIC STORAGE ADDRESS IS NOT NECESSARY THEN ANSWER THE QUESTION NO AND 
IEND SUPERVISOR WILL USE IfS OWN SELECTED DATA AREA. 


D 

T 

S 

R 

LE 

Z THIS IS A NO (0) RESPONSE. 
R 

0 

U 

R 


Hert RIK 
ty 3 
ty Oo ty 


HOOYF Q@H WmoOsdmr msMEI ti 


E ADDRESS DEVICE TYPE 


ERROR CHECKING IS PERFORMED 
D CORRECTLY. WHEN A WRONG ANSWE 
R END THE TEST. 


| ON INPUT THEREFORE THE MESSAGES MUST BE 
a IS 
DEVICE TYPE WILL BE A ROUTINE LOADED BY THE FRIEND SUPERVISOR. WHEN THE 


R FOUND IT MAY START THE SEQUENCE OVER 


HAS BEEN READ INTO STORAGE, CONTROL IS PASSED TO THE ROUTINE. EACH 
IS MADE FOR A SPECIFIC DEVICE TYPE THEREFORE SPECIFIC MESSAGES WILL BE 

ED FOR THAT DEVICE. 

THE FOLLOWING EXAMPLE IS FOR THE TTY SPECIFIED IN THE PRECEDING EXAMPLE. 


EXAMPLE: 


OAD Prk 


BO Hr wrromwNor 


. 


=> 


ND(S) FOR DA 00 
RITE DEFAULT PATTERN 


mr MHOCOCOOCOOCOOON 
ac 


BS  SrodOdWdoanlWwhsF! 


a= a | 


ER MUST ENTER, FROM THE DISPLAYED LIST, THE CORRECT COMMAND {5} TO ASSEMBLE 
ST. A DETAILED DESCRIPTION OF EACH GROUP OF MESSAGES WILL B ESCRIBED IN 
21SEP79 PN4414043 21SEP79 PN44 14043 
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02.01.00 FRIEND SUPERVISOR MAIN OPTION MENU 


AN EXAMPLE OF THE MAIN OPTION MENU IS: 
LECT THE CORRECT OPTION (S) 
TART TEST 
TOP AFTER EACH PASS (PRESS START KEY TO CONTINUE) 
D EVICE TO TEST 


Y ) 


x 
x 
X E 

X T BE 00-07) 
X YOUR TEST (XX MU 
N ERROR 

STOP ON ERROR 

SS ERROR PRINT 

FF BYPASS ERROR PRINT 
NT PROGRAM 

MINATE BROGRAR. 

NU PRINT CONTROL 

ND(S 


E 
S 
STO 
ADD D 
X STO 
X RET 
KYY C 
X KEE 
X LOA 
STOP 
ay ORC 
BYPA 
T/0 
PRI 
TER 

ME 
MMA 
TER 


FOLLOWING IS A DESCRIPTION OF EACH OPTION FROM THE FRIEND SUPERVISOR OPTION 


ae G&G 
® 


=START TEST WILL START THE TEST. WHIL 
HE TESTING BY ENTERING AN ECP COMMAND OF 
AND RETURN CONTROL TO THE FRIEND SUPERVI 
TESTED IT MAY BE NECESSARY TO PRESS THE 
STORE THE HEXADECIMAL VALUE 8000 IN ST 


D 
SS THE START KEY TO COME TO THE NORMAL END. 


TOP AFTER EACH PASS WILL INSERT A STOP INSTRUCTION IN THE 

THE STOP INSTRUCTION WILL BE EXECUTED AFTER ONE PASS IS MADE 
ST. TO CONTINUE PRESS THE START KEY ON THE PROGRAMMER'S CONSOLE. 
MIT THE USER TO MAKE ONE PASS AND STOP OR CHANGE THE MODE SWITCH ON 
ee ceuaonene NORMAL THEN THE TEST WILL LOOP. TO STOP, CHANGE THE 


D DEVICE TEST, WILL PERMIT THE USER TO ADD ANOTHER DEVICE TO THE 


THE TEST IS RUNNING THE ne 
- THE TEST WILL COME TO 
OR. IF THE ALTERNATE CONSOLE 
STOP KEY ON THE PROGRAMMER (S 
RAGE LOCATION (HEXADECIMAL 


© 
atitg 


E 
7 
S 
O 


Se NOW wn 
ty GmywO 

ZO mmo 

bed G2 4 


ma a WS = Nm OCz 


X=STOP DA, WILL PERMIT THE USER TO TEMPORARILY STOP TESTING THE DEVICE 


RETURN DA XX TO TEST, WILL PERMIT THE USER TO RETURN TO TEST THE 
SS XX STOPPED BY THE O4XX COMMAND. 


XX= 
RE 
XYY=CHANGE DA XX TO YY, WILL Poenes THE, USER TO CHANGE THE ADDRESS ae : 
ER TEST TO ANOTHER DEVICE OF THE SAME DEVICE TYPE. AN EXAMPLE: 

TWO TTY'S,ONE WITH DEVICE ADDRESS OF 00 UNDER TEST AND THE USER HouLD 
IF THE RESULT IS THE SAME ON A TTY WITH THE DEVICE ADDRESS OF 
USER WOULD ENTER FQ6001001. THIS WILL SELECT OPTION 06 AND CHANGE 
CE UNDER TEST FROM XX=00 TO DEVICE YY=10 AND OPTION 01 WOULD START THE TEST. 


ON O07XX KEEP ON THE DISKETTE THE TEST MADE, WILL PERMIT THE USER TO KEEP THIS 
JUST MADE TO BE RUN AT A LATER TIME. THIS TEST NUMBER XX MUST BE 00-07. 
TEST NUMBERING MUST START AT 00 AND INCREASE BY 01 


HOO NO WO WO 


I 
S 
I 
R 
I 
i 
I 
I 
R 
T 
N 
I 
I 
T 
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Hc 
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BHO URZHWCO YO FO VO BHAAHHO 2}OQH2ZRO me 


21SEP79 PN44 14043 
EC375482 PEC7T55448 
MAP 0017-5 


FRIEND USER'S GUIDE 


@2ee @ wD wa@beewe @ wen w @®@ @ 


PAGE 6 OF 42 


THE FOLLOWING 


ww Ge GD ewan GP e@ «aD 2 —ED EP AP 


TEST DATE 
NUMBER MADE 


que ewweweae | oo 2 ewe! 


04 


05 


_— ap 2 @ @ @ aw =_—> ap «=> <a = 


06 


eee | eer @ wwe 


07 


02 | 
03 DEV1 | DEV2 | DEV3 DEV4 DEVS DEV6 DEV7 DEV8 
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AD YOUR TEST, WILL PERMIT THE USER TO SELECT A TEST T 
OPTION 07. ThE USER MUST KEEP TRACK OF THE TEST(S) 4H 


TABLE IS AVAILABLE TO KEEP TRACK OF YOUR TEST(S). 


ED CP ERD GAP CEP SEED EAD ANP NG RT CED GD TY NED ANY IEP ND SEDANS GOD CEP GED HEP ALP YA ND SED SY EE LY SYP AD SY SPAY SDD SES OD LD NYY ST SD EOD SEED 
DEVICE ADDRESSES INCLUDED IN EACH TEST 8 MAXIMUM 


PP @® PO OO @ @ OOO @ @ OC @ @ CO @ @ OB @ @ BO OO @ @ SF BO @ @ OD ODD DWBWOD®D*OODW*®W®*O®D®q*@ 


DEV 1 DEV2 DEV3 DEV4 DEVS DEV6 DEV7 DEV8 


DEV1 DEV2 DEV3 DEV4 DEVS DEV6 DEV? DEV8 
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DEV1 DEV2 DEV3 DEV4 DEV5 DEV6 DEV7 DEV8 
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N 
RROR IS FOUND. 
N 
ATOR. 

N 

GE 


PRINT INDICATOR. 


THE TEST, THE IDCB'S GENERATED 
ION WILL’ BE SIMILAR TO A PROGRAM PRINTOUT. 
"ADDRESS! TITLE IS THE. REAL STORAGE ADDRESS. 


R THE "OP1* TITLE IS THE FROM FIELD. 
R THE *OP2* TITLE IS THE TO FIELD 


OLLOWING IS AN EXAMPLE: 


THIS IS THE COMMAND TO SELECT THE PRINT ROUTINE 
AN OPTION 


THIS OPTION IS TO LIST THE PROGRAM 
OP P1 OP2 MACHINE CODE 
IO OA 680C 30A2 
BCC 007 3132 6FO04 3132 


BOVE WILL CONTINUE FOR ALL INSTRUCTIONS 


ST THE ee: S FOLLOW THIS EXAMPLE: 
HIS IS THE COMMAND TO SELECT THE PRINT ROUTINE 


OWO 
NO 


E 


C 

IST PROGRAM 

IST IDCB TABLE 

ae DCB TABLE 

: oo IS TO LIST THE IDCB'S 


ZOO OSZWNHmttoO 


T THE DCB'S FOLLOW THIS EXAMPLE 
THIS IS THE COMMAND TO SE 

T AN OPTION 

oT PROGRAM 

ST IDCB TABLE 

ST DCB TABLE 


S OPTION IS TO LIST THE DCB* 


LECT THE PRINT ROUTINE 


R 
N QE=TERMINATE PROGRAN, WILL PERMIT THE USER TO 
VISOR TESTING AND RETURN TO SYSTEM TEST SUPERVISOR. 

HE DISKETTE TO CONTINUE WITH SYSTEM TEST. 

N 


MAP 0017-7 


09=STOP ON ERROR, WILL PERMIT THE USER TO STOP TESTING IMMEDIATELY, WHEN 
oa =T/OFF STOP ON ERROR, WILL PERMIT THE USER TO TURN OFF THE STOP ON ERROR 
OB=BYPASS ERROR PRINT,WILL PERMIT THE USER TO BYPASS THE PRINTING OF ERROR 
S THEREFORE MAKING THE TEST LOOP (ON AN ERROR CONDITION) MUCH QUICKER. 
poeat en BYPASS ERROR PRINT,WILL PERMIT THE USER TO TURN OFF THE BYPASS 
OD=PRINT PROGRAM,IDCB,DCB, THIS WILL PERMIT THE USER TO PRINT THE PROGRAHN 
_ AND THE DCB*S GENERATED. THE PROGRAM 
E 
THE "OP* TITLE IS THE INSTRUCTION AT THAT STORAGE ADDRESS. 


z THE "MACHINE CODE TITLE IS THE MACHINE CODE FOR THAT INSTRUCTION. 


TERMINATE THE FRIEND 


OF=MENU PRINT CONTROL,WILL PERMIT THE USER TO T/OFF OR T/ON THIS MENU. 
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02.02.00 FRIEND SUPERVISOR HALT CODES 


3407 


3408 


3420 


3421 


3422 


3423 


3424 


3425 


3426 


3427 


3428 


3429 


342A 


342B 


342C 


342D 


3480 


3481 


3482 


3483 


3484 


3485 


3486 


3487 


ALTERNATE CONSOLE OFF 
A TES? FOR ALTERNATE CONSOLE HAS BEEN MADE AND THE TEST HAS JUST STARTED. THE 
PROGRAMMER'S CONSOLE MUST BE USED FOR INPUT 

ALTERNATE CONSOLE ON 
THE USER HAS INSERTED A SYSTEM TEST COMMAND OF 7 BY THE PROGRAMMER'S CONSOLE 
AND THE TESTING HAS TEMPORARILY TERMINATED. THE ALTERNATE CONSOLE IS 
AVAILABLE FOR USE. 


Ree Rue FOR FRIEND SUPERVISOR 
ENTER TH EEDED OPTION(S) FROM THE MAIN OPTION MENU 


OPTION (S FOR THE PRINT ROUTINE 
ENTER A COMMAND TO PRINT THE TEST PROGRAM, THE IDCB'S, OR THE DCB*S 


TEST TOO LARGE 
Saeco OPTION WAS SELECTED BUT THE TEST WAS LARGER THAN THE AREA ON THE 


DATA ADDRESS LOW 
THE OPTION TO SELECT A STORAGE ADDRESS WAS USED BUT THE ADDRESS SELECTED WAS 
IN THE AREA USED BY THE SUPERVISOR 


DEVICE TO BE TESTED 
ENTER THE DEVICE ADDRESS AND DEVICE TYPE FOR THE DEVICE THAT IS TO BE TESTED. 


NOT VALID COMMAND 
THE USER HAS INSERTED A COMMAND THAT IS NOT RECOGNIZED 


NOT VALID DEVICE 
THE USER HAS REQUESTED A DEVICE TYPE THAT IS NOT RECOGNIZED 


SPECIFIC STORAGE ADDRESS 
FOR A CYCLE STEAL OPERATION IS A SPECIFIC STORAGE ADDRESS NEEDED? 


WHAT IS THE ADDRESS 
ENTER THE SPECIFIC STORAGE ADDRESS 


DO YOU WANT TO USE YOUR TEST 
DO YOU WANT TO USE A TEST KEPT ON ‘THE DISKETTE (00-07) ? 


WHICH ON 
ENTER THE TEST NUMBER YOU WANT TO USE(00-07) 


DATA ADDRESS MORE THAN STORAGE 
THE STORAGE ADDRESS INSERTED IS MORE THAN THE STORAGE SIZE 


WRONG TEST NUMBER 
THE TEST NUMBER INSERTED FOR THE USER TEST WAS NOT VALID. 


CAN'T ADD DEVICE 
THE DEVICE TABLE IS FULL NO MORE DEVICES WILL BE ADDED 


LOOP ON MCK, PCK, POWER THERMAL WARNING 
A MACHINE CHECK, PROGRAM CHECK OR A POWER THERMAL WARNING HAS OCCURRED, DO YOU 
WANT TO LOOP THe TEST TO THE POINT OF FAILURE? 


LOST INTERRUPT 
A MESSAGE "LOST INTERRUPT FROM DA O03! WILL BE DISPLAYED 


WRONG CONDITION CODE 
A MESSAGE "EXPECTED CC 3 RECEIVED CC 2" WILL BE PRINTED 


NOT EXPECTED INTERRUPT 


A MESSAGE "NOT EXPECTED INTERRUPT FROM DA 03! WILL BE PRINTED 

NOT CC 7 
WHILE TESTING A CONDITION CODE OTHER THAN 7 WAS REPORTED FROM AN OIO 
INSTRUCTION 


READ ID WARNIN 
THE USER REQUEST ED A DEVICE ADDRESS AND TYPE TO BE TESTED WHEN THE ROUTINE 
FOR THAT DEVICE TYPE DID A READ ID AN ID OTHER THE ONE EXPECTED WAS RECEIVED. 
CYCLE STEAL INTERRUPT LOST 
AN ERROR CONDITION CODE WAS RECEIVED FROM A CYCLE STEAL DEVICE. A CYCLE STEAL 
STATUS COMMAND WAS SENT TO THAT DEVICE BUT THE INTERRUPT WAS NOT RECEIVED 


STOPPED ON AN ERROR 
AN ERROR CONDITION OCCURRED (SEE SECTION 03.00.00) 
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3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
349A 
349B 
349C 
349D 
349E 
349F 
34A0 
34A4 
34A5 
34A6 
34AT7 
34A8 
34A9 
34AA 
34AB 
34AC 
34AD 
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STANDARD PATTERN 


DOES THE USER WANT TO USE THE DEFAULT PATTERN INTERNAL TO THE DEVICE TYPE 


ROUTINE? 
INTERRUPT LEVEL 

ENTER THE LEVEL THE DEVICE IS TO INTERRUPT ON. 
DELAY 

ENTER THE LENGTH OF DELAY TO BE USED. 


DATA 
ENTER THE DATA FOR THE TEST. 


BYTE COUNT 
ENTER THE BYTE COUNT FOR THE TEST. 


LOOP NOT STARTED 
THE USER HAS INSERTED A COMMAND TO "LOOP END* BUT THE LOOP WAS NOT STARTED. 


LOOP COUNT 
HOW MANY TIMES IS THE LOOP TO BE EXECUTED? 
i BIT 
IS THE INTERRUPT BIT REQUIRED FOR THE PREPARE IDCB 


SEEK DIFFERENCE 
HOW MANY CYLINDERS FOR THE SEEK? 


SEEK DIRECTION 
{S THE SEEK POSITIVE? 


FORMAT WORD 
ER THE WORD TO BE USED TO FORMAT. 


T 
CYLINDER NUMBER 
TER THE CYLINDER NUMBER. 


SECTOR SIZE 
ENTER THE SECTOR SIZE. 


SECTOR NUMBER 
ENTER THE SECTOR NUMBER. 


HEAD NUMBER 
ENTER THE HEAD TO BE USED. 


FIXED HEAD 
A MESSAGE ‘IS THIS A FIXED HEAD?* WILL BE DISPLAYED 


CHAINED DCB 
{IS THE DCB THE ROUTINE IS ASSEMBLING TO BE CHAINED TO ANOTHER DCB? 


FORMS LENGTH AND OVERFLOW LINE 
ENTER THE FORMS LENGTH AND THE LINE TO OVERFLOW(DCB WORD 2). 


SKIP AND SPACE MODIFIER 
ENTER THE SKIP AND OR SPACE MODIFIER. 


FORMS CONTROL 
IS FORMS CONTROL NEEDED FOR THIS TEST? 


RETRY BIT(DCB CONTROL WORD BIT 15 
IS THE RETRY BIT NEEDED FOR THIS TEST? 


DO YOU WANT TO USE THE DATA JUST READ 
A WRITE FOLLOWING A READ WAS FOUND. DO YOU WANT TO USE THE DATA READ? 


NUMBER OF DATA WORDS 
ENTER THE NUMBER OF DATA WORDS THAT WILL BE ENTERED 


CHAINED DCB*S 
WILL ANY DCB*S BE CHAINED FOR THIS DEVICE? 


EN 


EN 


COLUMN 
WHICH COLUMN IS THE CHARACTER TO BE PRINTED (0001-0132) 


8 LINES PER INCH 
DO YOU WANT 8 LINES PER INCH (DEFAULT=6 LINES) 


ERASE AFTER BIT? 
THIS BIT IS FOR THE DCB FOR A DISPLAY COMMAND 


END OF FIELD BIT? 
THIS BIT IS FOR THE DCB FOR A DISPLAY COMMAND 
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34B0 


34B1 


34B2 


34B3 


34B4 


34B5 


34B6 


34B7 


34B8 


34B9 


34BA 


34BB 


34BC 


34BD 


34BE 


34BF 


34C0 


34C1 


34C2 


34C3 


34C4 


34C5 


34C6 


34C7 


4OES 


W4HES 


45E8 
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END OF LINE BIT? 
THIS BIT IS FOR THE DCB FOR A DISPLAY COMMAND 


ERASE Bit? 
THIS BET IS FOR THE DCB FOR A DISPLAY COMMAND 


POST CURSOR BIT? 
THIS BIT IS FOR THE DCB FOR A DISPLAY COMMAND 


PRE CURSOR BIT? 
THIS BIT IS FOR THE DCB FOR A DISPLAY COMMAND 


SHIFT UP? 
THIS BIT IS FOR THE DCB FOR A DISPLAY COMMAND 
SHIFT BIT? 


THIS BIT IS FOR THE DCB FOR A DISPLAY COMMAND 


POST CURSOR ADDRESS 
THIS ADDRESS IS FOR THE DCB FOR A DISPLAY COMMAND 


PRE CURSOR ADDRESS 
THIS ADDRESS IS FOR THE DCB FOR A DISPLAY COMMAND 


UPPER rake LINE ADDRESS eee eee) 
THE LINE NUMBER IS FOR THE DCB FOR DISPLAY COMMAND 


LOWER (FO), LINE eee cae con k 
THE LINE NUMBER IS FOR THE DCB FOR DISPLAY COMMAND 


PROTECT/NOT PROTECT BIT? 
THIS BIT IS FOR THE DCB FOR A DISPLAY COMMAND 


KEYBOARD LOCK OUT BIT 
THIS BIT IS FOR THE DCB FOR A DISPLAY COMMAND 


BLANK BIT? 
THIS BIT IS FOR THE DCB FOR A DISPLAY COMMAND 


SHIFT COUNT 
THE COUNT IS FOR THE DCB FOR A DISPLAY COMMAND 


HOW MANY SECTORS 
THE NUMBER OF SECTORS REQUIRED FOR THE READ DCB 
SE BIT 
IS THE SUPPRESS EXCEPTION BIT REQUIRED FOR THE DCB 


AS BIT 
IS THE AUTOMATIC SEEK FUNCTION REQUIRED 


FILL BYTE 
ENTER THE FILL BYTE FOR THE DCB (00-FF) 


VERIFY BYTE 
ENTER THE VERIFY BYTE FOR THE DCB (00-FF) 


WRITE LED'S 
DO YOU WANT THE DATA TO BE WRITTEN IN THE CONSOLE LED'S? 
NO DI/PI 
THE DI/PI ROUTINE WAS SELECTED BUT DI/PI IS NOT AT THIS ADDRESS 


VOLTAGE 
WHAT IS THE VOLTAGE REQUIRED FOR THE SENSOR I/O COMMAND 


WRONG RATE 
SAMPLE RATE ENTERED WAS OTHER THAN 0001-0004 


te ra out 
ARM DI_ EXTERNAL SYNC OR ARH PI COMMAND WAS SENT AND NO INTERRUPT HAS 
OCCURRED FOR 13 SECONDS 


POSITIVE VOLTAGE 
IS THE VOLTAGE POSITIVE FOR THE SENSOR I/O COMMAND? 


wee eae FOR THE TTY ROUTINE 
ENTER TH PTION(S) FOR THE TTY 


wea rae FOR THE 4979 ROUTINE 
ENTER TH PTION(S) FOR THE 4979 


OPTION(S) FOR THE 4978 ROUTINE 
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48E8 
4AE8 
4AEQ 
GAEA 
4AEB 


4 AEC 


4 AED 
5 8E8 


5 8E9 
58EA 


5 8EB 
58EC 


5 8ED 
64E8 
6 8E8 
68E9 
78E8 
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ENTER THE OPTION(S) FOR THE 4978 


one ae bh FOR THE 4964 ROUTINE 
ENTER TH PTION(S) FOR THE 4964 


pea moe FOR THE 4966 ROUTINE 
ENTER TH PTION(S) FOR THE 4966 


CONTROL AM 
IS THE CONTROL AM BIT REQUIRED FOR THE DCB 


MFM BIT 
IS THE MFM BIT REQUIRED IN THE DCB 


CONTROL MASK 
ENTER THE CONTROL MASK (00-02) 


COMPARE DATA 
A READ COMMAND WAS FOLLOWED BY A READ VERIFY tone COMPARE) 
IS THE DATA FROM THE READ COMMAND TO BE USED FOR THE 
COMPARE DATA FOR THE READ VERIFY 


DISKETTE POSITION 
ENTER THE DISKETTE POSITION FOR THE DCB (DECIMAL NUMBER 0000-0023) 


OER REN’ FOR THE 4969 ROUTINE 
ENTER THE OPTION (S) FOR THE 4969 


REPEAT COUNT 
THE REPEAT COUNT IS USED ON SPACE RECORD OR SPACE FILE MARK, FORWARD AND 
REVERSE, OPERATIONS AND SPECIFIES THE NUMBER OF RECORDS OR FILE MARKS TO 
SPACE. IT IS ALSO USED FOR REPEAT ERASE. 


800 BPI NRZI 
IF THE TAPE DRIVE IS AN 800 BPI nn PER reetk NRZI anor RETURN TO ZERO) THEN 
ANSWER THE QUESTION YES fv) IF THE TAPE DRIVE IS A P (PHASE ENCODED) THEN 
ANSWER THE QUESTION NO (0). 


TEST READ MODE 
IF TEST READ MODE IS REQUIRED THEN ANSWER THE QUESTION YES (1) IF TEST READ 
MODE IS NOT REQUIRED ANSWER THE QUESTION NO (0). 


READ THRESHOLD LOW 
IF THRESHOLD LOW IS REQUIRED THEN ANSWER THE QUESTION YES (1) IF THRESHOLD LOW 
IS NOT REQUIRED ANSWER THE QUESTION NO (0). 


DATA COMPARE ERROR 
A DATA COMPARE ERROR WAS FOUND USING OPTION 13 OF THE TAPE DRIVE MENU. 


Bea nent FOR THE 4974 ROUTINE 


ENTER THE OPTION(S) FOR THE 4974 
OPTION (S) FOR THE 4973 ROUTINE 
ENTER THE OPTION (S) FOR THE 4973 


CHARACTER 
WHICH CHARACTER IS TO BE PRINTED IN EACH COLUMN? 


OPTION (S) FOR THE 4962 ROUTI 
ENTER THE OPTION(S) FOR THE & 


9 
OPTION (S) FOR THE 4963 ROUTI 
ENTER THE OPTION(S) FOR THE 49 


RECORD 1 
N DATA MOVES THERE ARE TWO RECORDS FOR EACH SECTOR (RECORD 1 AND RECORD 2), 
S THE RECORD YOU WANT RECORD 1? 


NUMBER OF RECORDS 
ENTER THE NUMBER OF RECORDS TO BE READ 


FLAG BYTE 
ENTER THE FLAG BYTE TO BE USED IN THE DCB 


OPTION (S) FOR THE 4982 AI ROUTINE 
ENTER THE OPTION(S) FOR AI 


WHICH CHANNEL 
ENTER THE CHANNEL TO BE USED BY THE SENSOR I/O COMMAND 


NO MULTIPLEXER 
A READ ID TO THE SPECIFIED ADDRESS INDICATES THERE IS NOT A MULTIPLEXER 
CHANNEL AT THIS ADDRESS 


O 
I 
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A8EB 


A8EC 


A8ED 


A8EE 


A8EF 


A9E8 


BOES8 


B4E8 


12 OF 42 
NO AI 
A READ ID TO THE SPECIFIED ADDRESS INDICATES THERE IS NOT AN AL 
THIS ADDRESS 
WRONG RANGE 
THE WRONG VOLTAGE RANGE WAS ENTERED FOR SENSOR 1/0 
RANGE 
ENTER THE VOLTAGE RANGE FOR SENSOR I/O COMMAND 
ZERO CORRECTION 
IS ZERO CORRECTION REQUIRED? 
SAMPLE RATE 
WHAT IS THE SAMPLE RATE FOR THE CONVERT AI COMMAND 
OPTION (S) FOR THE 4982-AO ROUTINE 
ENTER THE OPTION(S) FOR AO 
OPTION (S FOR THE 4982-DI/PI ROUTINE 
ENTER THE OPTION(S) FOR DI/PI 
OPTION (S) FOR THE 4982-DO ROUTINE 
ENTER THE OPTION(S) FOR DO 
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03.00.00 FRIEND SUPERVISOR ERROR REPORTING 04.00.00 FRIEND SUPERVISOR SAMPLE SESSION 
IPL THE SYSTEM TEST DISKETTE PER SECTION 02.00.00 MAP 0015. 


WHEN THE FRIEND SUPERVISOR HAS FOUND AN ERROR WHILE TESTING, ALL TESTING WILL 
STOP WHILE THE ERROR IS REPORTED TO THE USER,BY THE ALTERNATE CONSOLE. WHEN THE A SAMPLE SESSION FOLLOWS: 
ERROR REPORTING HAS COMPLETED, THE TESTING RePi CONTINUE WHERE IT LEFT OFF. 
#¢##<----> NOT PART OF THE SESSION (COMMENT) 
NO ERROR REPORTING AND AN IMMEDIATE STOP ON ERROR CAN BE STARTED BY SELECTING 


Boee eer FROM THE FRIEND SUPERVISOR MAIN OPTION MENU (SEE SECTION 02.0 @@@----> THE NEXT LINE IS USER INPUT 
WHEN STOP ON ERROR IS SELECTED AND AN ERROR OCCURS THE HALT CODE 3487" IS 
DISPLAYED IN THE CONSOLE LED*S. PRESS tHE CONSOLE STOP KEY AND DISPLAY | REGISTER RDY 
1. REGISTER 1 WILL CONTAIN A CODE 8) THAT INDICATES THE 4ME TH ENTER 
FOLLOWINS IS A DESCRIPTION OF EAC DE. THE DESCRIPTION WILL INDICATE THE @@0 ###LOAD 3420, FRIEND SUPERVISOR 
VALIDITY OF REGISTERS 0 AND 7 WHEN THE HALT CODE IS DISPLAYED B3420 
ae a £3420 LOADED 
D : 
REGISTER O=CC RECEIVED REGISTER 7=I1SB IS A SPECIFIC STORAGE ADDRESS NEEDED FOR DATA? 
EXPECIED CC 07 RECEIVED CC 02 ON START I/O TO DA 01 ENTER 
@20 *%** NO RESPONSE 
THE INTERRUPT ROUTINE EXECUTED AN OIO INSTRUCTION AND EXPECTED TO RECEIVED A 0 
CONDITION CODE OF 07 BUT RECEIVED A CONDITION CODE OF 02. THE DEVICE ADDRESS WAS Devece ADDRESS DEVICE TYPE 
aaa ##¢# USE THE THE TTY 
CODE 2: FO040 
REGISTER O0=CC RECEIVED REGISTER 7=ISB SELECT COMMAND (5) FOR 00 
EXPECTED CC 03 RECEIVED CC 02 FROM DA 01 IDCB=7001 3A6E e Se E DEFAULT PATTERN 
THE DEVICE UNDER TEST WAS EXPECTED TO PRESENT A CONDITION CODE OF 03 BUT 03 READ ID 
RESPONDED WITH A CONDITION CODE OF 02. THE DEVICE ADDRESS WAS 01. THE IDCB’ WAS 04 PREPARE 
7001 3A6E. 05 DELAY 
06 LOOP START 
CODE 3: 07 LOOP END 
REGISTER 0=CC RECEIVED REGISTER 7=ISB 08 READ 
NOT EXPECTED INTERRUPT FROM DA 01 cc=03 99 WRITE 
THE INTERRUPT ROUTINE RECEIVED A NOT EXPECTED INTERRUPT FROM DEVICE ADDRESS 01. ENTER 
THE RECEIVED CONDITION CODE WAS 03. Oa8 ae ### ENTER A PREP,READ ID,WRITE 
CODE 4s: LEVEL TO INTERRUPT 
REGIS£ER O=CC RECEIVED REGISTER 7=1SB ENTER 
EXPECTED CC 07 RECEIVED CC 02 ON START I/0 TO DA 01 Se PREPARE TO LEVEL 2 
THE TESTING PROGRAM EXECUTED AN OIO INSTRUCTION AND EXPECTED TO RECEIVED A IS THE "I" BIT REQUIRED 
CONDITION CODE OF 07 BUT RECEIVED A CONDITION CODE OF 02. THE DEVICE ADDRESS WAS ENTER 
01 900 TURN ON THE "It BIT 
CODE 5:3 SELECT THE CORRECT OPTION(S) 
REGISTER 7=DEVICE ADDRESS 01 START 
LOST INTERRUPT FROM DA 01 02 STOP AFTER EACH PASS (PRESS START KEY TO CONTINUE) 
03 ADD DEVICE TO TEST 
AN INTERRUPTING OLIO INSTRUCTION WAS SENT TO DEVICE ADDRESS 01. NO INTERRUPT WAS O4UXX STOP DA Xx 
RECEIVED BY A ALREADY DETERMINED TIME FOR THAT DEVICE O5XX RETURN DA XX TO TEST 
O6XXYY CHANGE DA XX TO YY (SAME DEVICE TYPE) 
CODE 6: O7XX KEEP ON DISKETTE THE TEST MADE (XX MUST BE 00-07) 
REGISTER 7=DEVICE ADDRESS O8XX LOAD YOUR TEST (XX MUST BE 00-07) 
TIMED OUT DA 65 09 STOP ON ERROR 
OA T/OFF STOP ON ERROR 
AN ARM DI EXTERNAL SYNC OR ARM PI COMMAND WAS SENT AND NO INTERRUPT HAS OCCURRED OB BYPASS ERROR PRINT 
FOR 13 SECONDS OC T/OFF BYPASS ERROR PRINT 
OD PRINT PROGRAM DCB, D 
IF A MACHINE CHECK, PROGRAM CHECK OR A POWER THERMAL WARNING OCCURS A SERIES OF OE TERMINATE PROGRA 
MESSAGES WILL BE PRINTED BY THE ECP. THE QUESTION WILL BE: OF MENU PRINT CONTROL 
DO YOU WANT TO LOO COMMAND (5) 
(0) REPLY WILL CAUSE FRIEND TO END aaa ###SELECT PRINT PROGRAM 
yES (1) REPLY WILL CAUSE A BRANCH TO THE START OF THE TEST FOD 
SELECT AN OPTION 
01 LIST PROGRAM 
02 LIST IDCB TABLE 
03 LIST DCB TABLE 
ENTER 
290 ###SELECT THE LIST PROGRAM OPTION 
ADDRESS OP OP1 * OP2 MACHINE CODE 
3100 NOP 5000 
3102 NOP 5000 
3104 to 3080 680C 3080 
3108 BCC 0007 3110 6F04& 3110 
310C BAL 181C* RT 6F13 181C 
3110 MVWI 1cC00 R3 4324 1c00 
3114 MVWL 182F RO 4024 182F 
3118 TB 0000 RO 4800 
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311A JZ 3124 1004 
311C SVC 0002 6002 
311E JCT 3114 R3 BBFA 
3120 BAL 1870* R7 6F13 1870 
3124 IO 3084 680C 3084 
3128 BCC 0007 3130 6F04 3130 
312C BAL 181C* R7 6F13 181C 
###AN * FOLLOWING A STORAGE ADDRESS IS ADDRESSING THAT IS NOT D IRECT. 


OOQOOCOCOCCOSCCSCONW CO WEBy VS yy BIN COSGDOOOO0 0000 CON WW WA) br OOOUWN BIN COOCOCOOCOCOOOOOOoONn 


LECT THE CORRECT OPTION (S) 


E 
START 

STOR AFTER EACH PASS (PRESS START KEY TO CONTINUE) 
ADD DEVICE TO TEST 

X STOP DA XX 

X RETURN DA XX TO TEST 

XYY CHANGE DA XX TO YY (SAME DEVICE TYPE) 

X KEEP ON DISKETTE THE TEST SADE (4X MUST BE 00-07) 
X LOAD YOUR TEST (XX MUST BE 00 

STOP ON ERROR 

T/OFF STOR ON ERROR 

BYPASS ERROR PRINT 

T/OFF BYPASS ERROR PRINT 

PRINT PROGRAM, 1DCB,DCB 

TERMINATE PROGRAM 

MENU PRINT CONTROL 


P< PS PS PS 


meee 
. ###SELECT PRINT PROGRAM 
LECT AN OPTION 
LIST PROGRAM 
LIST IDCB TABLE 
oS DCB TABLE 
9 ###SELECT THE IDCB TABLE 
DRESS IDCB*S 
80 6000 0005 
84 2000 0000 
eas CORRECT OPTION (S) 
STOP AFTER EACH PASS (PRESS START KEY TO CONTINUE) 
ADD DEVICE TO TEST 
XX STOP DA XX 
XX RETURN DA XX 
XXYY CHANGE DA xi °r0 Bi ee DEVICE TYPE) 
XX KEEP ON DISKETTE THE TEST "$0207) MUST BE 00-07) 
XX LOAD YOUR TEST (XX MUST BE 00 
STOP ON ERROR 
T/OFF STOP ON ERROR 


BYPASS ERROR PRINT 

T/OFF BYPASS ERROR PRINT 
PRINT PROGRAM, IDCB, DCB 
TERMINATE PROGRAM 

MENU PRINT CONTROL 


ae 
g ###ADD A DEVICE TO THE TEST 
ern ADDRESS DEVICE TYPE 
ane ### USE THE 4964 THIS TIME 
cease DCB'S BE CHAINED? 
@ ### ASSUME WE WILL NOT 
# ##NO eon ay "aa FOR NO 
LECT Hee he Ed Bas! 
DEFAULT=RECAL BRATE, A PEK, READ SECTOR ID 
DEFAULT=RECALIBRATE, SEEK, READ SECTOR ID, WRITE SECTOR ID 
PREPARE 
READ ID 
RESET 
DELAY 
LOOP START 
LOOP END 
READ DATA 
WRITE DATA 


READ SECTOR ID 
WRITE SECTOR ID 
SEEK 


FORMAT TRACK 
RECALIBRATE 


WOHONQWHEOOWANSWHath BSHOWSZMmOeZOAWONDYS VO WNNSWwHomtOOU Ce SWNHaAWMOeZOWWONDWHOUDWQNANSWNay FF sesso 
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READ VERIFY 

34 ###PREPARE, RECALIBRATE, SEEK, READ DATA, WRITE DATA, READ VERIFY 

BL TO INTERRUPT . 
PREPARE TO LEVEL 2 

Ta 'I* BIT REQUIRED 
TURN ON THE I" BIT 

K DIFFERENCE 

- ### SEEK TO CYLINDER 64 

WARD SEEK? 

ER 


###YES,BECAUSE WE JUST RECALIBRATED 
###AGAIN AN ECP COMMAND FOR YES 


OH NVBAHOMHNNABANCAHY BHDOOHW BHF 9828NCWAaH 


D 
ER 
a4 ### USE HEAD 1 
ee SIZE 
56 ### USE A SECTOR SIZE OF 256 
TOR SIZE 
ER 
04 ### USE SECTOR 1 
tie 
56 ### USE A BYTE COUNT OF 256 
ae WANT TO WRITE THE DATA JUST READ? 
###DO YOU WANT TO WRITE THE DATA JUST READ? 
###NOTE AN ECP COMMAND FOR YES 
ee tia CORRECT OPTION (S) 
STOP AFTER EACH PASS (PRESS START KEY TO CONTINUE) 
ADD DEVICE TO TEST 
XX STOP DA Xx 
XX RETURN DA XX TO TEST 
XXYY CHANGE DA XX TO YY Aen DEVICE TYPE) 
XX KEEP ON DISKETTE THE TEST bOL GT) MUST BE 00-07) 
XX LOAD YOUR TEST (XX MUST BE 00 
STOP ON ERROR 


T/OFF STOP ON ERROR 
BYPASS ERROR PRINT 

T/OFF BYPASS ERROR PRINT 
PRINT PROGRAM, 1DCB, DCB 
TERMINATE PROGRAM 

MENG ERINT CONTROL 


MMAN 
TER 
oO ###OPTION 4 STOP TESTING DEVICE ADDRESS 00 
ee a CORRECT OPTION (S) 
STOP AFTER EACH a Re Be ec START KEY TO CONTINUE) 
ADDRESS DEVICE TO 
XX STOP DA XX 
XX RETURN DA XX TO TEST 
XXYY CHANGE DA XX TO YY (SAME DEVICE TYPE) 
XX KEEP ON DISKETTE THE TEST mae aX MUST BE 00-07) 
XX LOAD YOUR TEST (XX MUST BE 00-07) 


STOP ON ERROR 

T/OFF STOP ON ERROR 
BYPASS ERROR PRINT 

T/OFF BYPASS ERROR PRINT 
PRINT PROGRAM, IDCB, DCB 
TERMINATE PROGRAM 


“SQV WIN}OOGOOGOS OOOS OCOOSOSOSNFYOHWN COCOCCCOSOSCOSOOCOUH 9MHOVMVIMOWBAOHNWMOH NDNA NW Neste Wde ty ath 
VVVOMSOMHOVWLHSOONAMNSWHsmWMOMZOWMWONWYPOONNSWhat WeoowstTnoweztzwMoe2ZzmMoezty AeZOCestzty WZNnN0BzMOCBZO 


MNAND (Sh CONTROL 

a8 ###OPTION 1 TO START THE TEST 

a ###THE USER CAUSED AN INTERRUPT 

a ###ENTER THE ECP COMMAND 7 TO STOP DEVICE TESTING 
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LECT THE CORRECT OPTION (S) 
ART 


C 
z 
TOP AFTER EACH PASS (PRESS START KEY TO CONTINUE) 
DD DEVICE TO TEST 


E 
S 
S 
A 
X 
X 
X 
X 
x 
S 


XX STOP DA XX 

XX RETURN DA XX TO 

XXYY CHANGE DA XX 16 Ore Aeon DEVICE TYPE) 

XX KEEP ON DISKETTE THE TEST MADE (3x MUST BE 00-07) 
XX LOAD YOUR TEST (XX MUST BE 00-07) 


TOP ON ERROR 
T/OFF STOP ON ERROR 


PRINT 
T/OFF BYPASS ERROR PRINT 
PRINT PROGRAM, IDCB, DCB 
TERMINATE PROGRAM 
MENU PRINT CONTROL 


PG 
@ ###OPTION 6 CHANGE DEVICE ADDRESS 
62202 
Sea CORRECT OPTION (S) 
STOP AFTER EACH PASS (PRESS START KEY TO CONTINUE) 
ADD DEVICE TO TEST 
XX STOP DA XX 
XX RETURN DA XX TO TEST 
XXYY CHANGE DA XX TO YY (SAME DEVICE TYPE) 
XX KEEP ON DISKETTE THE TEST MADE {2x MUST BE 00-07) 
XX LOAD YOUR TEST (XX MUST BE 00-07) 
STOP ON ERROR 
T/OFF STOP ON ERROR 
BYPASS ERROR PRINT 


T/OFF BYPASS ERROR PRINT 
PRINT PROGRAM, I DCB, DCB 
TERMINATE PROGRAM 

MENU PRINT CONTROL 

MAND (5) 


M 
T 
: ###OPTION E TERMINATE FRIEND SUPERVISOR 


SAO ZOWMMWON WY OOWNOMNSWNHaty OCOAZONMONW? OOWNOMN SW 


BOY ION COTO OOOCOOOOSOCOON = MOHWNOCOSCOOOOCOCOCOOOON 
ka 
te 
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05.00.00 ROUTINE DESCRIPTION (TTY) DEVICE TYPE 40. 


WHEN DEVICE TYPE 40 IS SELECTED THE FRIEND SUPERVISOR WILL REQUEST THE ROUTINE 
FOR THIS DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXADECIMNAL LOCATION 1900. 
THE FOLLOWING MESSAGES WILL BE DISPLAYED FOR DA 00 

SELECT aes eh FOR 00 

01 DEFAULT=WRITE DEFAULT PATTERN 

O02 PREP 

O3 READ DEVICE ID 

O04 RESET 

05 DELAY 

06 LOOP START 

07 LOOP END 

08 READ 

09 WRITE 

OA ECHO 

ENTER 
THE COMMAND af NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. 
WHEN THE OMMAND(S HAVE BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE 
DEVICE ADDRESS SPECIFIED. IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE 
EXPECTED RESULT THE QUESTION WILL BE. 

READ ID EXPECTED 0010 ID WAS 0020 IS THIS O.K? 

ENTER 

NO (0) REPLY WILL CAUSE THE ROUTINE TO TERMINATE 

YES (1) REPLY WILL PERMIT THE FOLLOWING MESSAGES 


LEVEL TO INTERRUPT 
ENTER 


A REPLY OF 0000,0001,0002 IS EXPECTED 


a al COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO 


peer ‘I' BIT REQUIRED 
IF THE DEVICE UNDER TEST IS TO INTERRUPT THE *‘I* BIT MUST BE SET ON IN THE 
PREPARE IDCB 

LENGTH OF DELAY,IN MILLISECOND (S) 

ENTER 


A REPLY FROM 0001 TO 9999 IS EXPECTED 
A REPLY OF 0001 = 1 MILLISECOND 


HOW MANY TIMES THROUGH THE LOOP 
ENTER 


A REPLY FROM 0001 TO 9999 IS EXPECTED 
Pare” WANT TO USE THE STANDARD DATA PATTERN? 


A YES jy” REPLY WILL CAUSE THE DEFAULT PATTERN TO BE MOVED TO THE DATA AREA 


A NO ( REPLY WILL CAUSE THE NEXT QUESTION 
DATA IS 
ENTER 


NOW ENTER THE DATA TO BE WRITTEN 

IF OPTION O07 IS SELECTED AND OPTION 06 WAS NOT THEN THE STATEMENT WILL BE 
LOOP NOT STARTED,START OVER 

IF OPTION 06 AND 07 WAS SELECTED THE MESSAGE WILL BE 
LOOP STARTED AT 3268 


LOOP ENDED AT 3288 
BeayecaR HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 
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06.00.00 ROUTINE DESCRIPTION (4979) DEVICE TYPE 44, LOOP STARTED AT 3268 
WHEN DEVICE TYPE ay Is SELECTED THE FRIEND SUPERVISOR WILL REQUEST, THE ROUTINE WHEN THE MESSAGE(S) HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 
FOR THIS DEVICE TYPE BE LOADED INTO STORAGE AT HEXADECIMAL LOCATION 190 SUPERVISOR 
THE FOLLOWING HES Sacks. WILL BE DISPLAYED FOR DA O04 
SELECT COMMAND (S L FOR DA O04 
01 DEFAULT= WRITE,SHIFT UP 1 
02 DEFAULT=READ, WRITE 
03 PREPARE 
04 READ DEVICE ID 
05 RESET 
06 DELAY 
07 LOOP START 
08 LOOP END 
09 READ 
OA WRITE 
ENTER 
THE COMMAND(S) NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. 
WHEN THE COMMAND ( S pHAVE BEEN ENTERED THIS ROUTINE WILL READ TO TH 
DEVICE ADDRESS IED. IF THE RESULT OF THE READ TD IS NOT EOUAL TO THE 
EXPECTED RESULT iE UESTION WILL BE, 
READ ID EXPECTED 0406 ID WAS 0020 IS THIS O.K? 
ENTER 
A NO (0) REPLY WILL CAUSE THE ROUTINE TO TERMINATE 
A YES (1) REPLY WILL PERMIT THE FOLLOWING MESSAGES 
LEVEL TO INTERRUPT 
ENTER 
A REPLY OF 0000,0001,0002 IS EXPECTED 
IF A PREPARE COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO 
IS THE 'It BIT REQUIRED 
IF THE DEVICE UNDER TEST IS TO INTERRUPT THE 'I* BIT MUST BE SET ON IN THE 
PREPARE IDCB 
WILL ANY DCB*S BE CHAINED? 
ENTER 
A NO (0) REPLY WILL NOT PERMIT ANY MORE MESSAGES CONCERNING A CHAINED DCB 
A YES (1) REPLY WILL CAUSE THE FOLLOWING MESSAGE FOR EACH DCB 
DO YOU WANT THE CHAIN BIT ON? 
A REPLY OF NO (0) OR YES (1) IS EXPECTED 
LENGTH OF DELAY,IN MILLISECOND(S) 
ENTER 
A REPLY FROM 0001 TO 9999 IS EXPECTED 
A REPLY OF 0001 = 1 MILLISECOND 
HOW MANY TIMES THROUGH THE LOOP 
ENTER 
A REPLY FROM 0001 TO 9999 IS EXPECTED 
BYTE COUNT 
ENTER 
THIS IS THE BYTE COUNT IN DECIMAL FOR THE DCB 
DO YOU WANT TO USE THE STANDARD DATA PATTERN? 
ENTER 
YES fu REPLY WILL CAUSE THE DEFAULT PATTERN TO BE MOVED TO THE DATA AREA 
i NO (0) REPLY WILL CAUSE THE NEXT QUESTION 
DATA IS 
ENTER 
NOW ENTER THE DATA TO BE WRITTEN 
IF OPTION 08 IS SELECTED AND OPTION 07 WAS NOT THEN THE STATEMENT WILL BE 
LOOP NOT STARTED, START OVER 
IF OPTION 07 AND 08 WAS SELECTED THE MESSAGE WILL BE 
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07.00.00 ROUTINE DESCRIPTION (4964) DEVICE TYPE 48. pyece NUMBER 


ENTER THE CYLINDER NUMBER(DECIMAL VALUE) 
WHEN DEVICE TYPE 48 IS SELECTED THE FRIEND SUPERVISOR WILL REQUEST THE ROUTINE 
Eon THIS DEVICE TYPE, TO BE LOADED INTO STORAGE at HEXADECIMAL LOCATION 1900. eaeeR SIZE 
‘ Che DE, DESERT AD FOR DAO ENTER THE CORRECT SECTOR SIZE(0128/0256/0512) 


SELECT COMMAND (S) FOR DA 02 
gy SPALECHICATHBHGGEC SHEE Spang? wownes 
03 PREPARE . eSnrre woeNe Reavy Eero ae ENTER THE CORRECT SECTOR NUMBER (DECIMALO0001-0015) 
O4 READ DEVICE ID 
05 RESET HEAD 
06 DELAY ENTER 
07 LOOP START ENTER THE CORRECT HEAD NUMBER(0000 OR 0001) 
98 sats BATA FORMAT WORD 
OA WRITE DATA ENTER 
OB READ SECTOR ID ENTER THE WORD TO USE TO FORMAT THE TRACK 
Oc SEEK 
OD FORMAT TRACK BYTE COUNT 
OF READ Water — 
ok Kk Aenean ok OK THIS IS THE BYTE COUNT IN DECIMAL FOR THE DCB 
SOME COMBAND (S) WHEN USED COULD DESTROY CUSTOMER DATA INTEGRITY po YoU Giitin: iap. hee: Me SUaNUaAne DREK ONET ERED 
Pee COS Re Neo WER eRoe ks ROR MLNS eeor nee BE ENT EReD ey sete PRE: A YES (1) REPLY WILL CAUSE THE DEFAULT PATTERN TO BE MOVED TO THE DATA AREA 
WHEN THE COMMAND (S HAVE BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE A NO (0) REPLY WILL CAUSE THE NEXT QUESTION 
DEVICE ADDRESS SPECIFIED. IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE 
EXPECTED RESULT THE QUESTION WILL BE. ove ee WORDS OF DATA 
READ ID EXPECTED 0106 ID WAS 0020 IS THIS O.K? ENTER THE NUMBER OF WORDS OF DATA(DECIMAL NUMBER) 
ENTER 
DATA IS 
A NO (0) REPLY WILL CAUSE THE ROUTINE TO TERMINATE ENTER 
A YES (1) REPLY WILL PERMIT THE FOLLOWING MESSAGES 


NOW ENTER THE DATA TO BE WRITTEN 


ENTER a ar IF OPTION 08 IS SELECTED AND OPTION 07 WAS NOT THEN THE STATEMENT WILL BE 


A REPLY OF 0000,0001,0002 IS EXPECTED LOOP NOT STARTED,START OVER 
IF A PREPARE COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO IF OPTION O07 AND 08 WAS SELECTED THE MESSAGE WILL BE 
LEVEL 2 LOOP STARTED AT 3268 
LOOP ENDED AT 3288 
IS THE 'I* BIT REQUIRED WHEN THE MESSAGE(S) HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 
ENTER SUPERVISOR 


IF THE DEVICE UNDER TEST IS TO INTERRUPT THE "I" BIT MUST BE SET ON IN THE 
PREPARE IDCB 


WILL ANY DCB'S BE CHAINED? 

ENTER 

NO (0) REPLY WILL NOT PERMIT ANY MORE MESSAGES CONCERNING A CHAINED DCB. 
YES (1) REPLY WILL CAUSE THE FOLLOWING MESSAGE FOR EACH DCB 


DO YOU WANT THE CHAIN BIT ON? 
A REPLY OF NO (0) OR YES (1) IS EXPECTED 


LENGTH OF DELAY,IN MILLISECOND (S) 
ENTER 


> > 


A REPLY FROM 0001 TO 9999 IS EXPECTED 
A REPLY OF 0001 = 1 MILLISECOND 
HOW MANY TIMES THROUGH THE LOOP 
ENTER 
A REPLY FROM 0001 TO 9999 IS EXPECTED 


IF A SEEK COMMAND IS NECESSARY THIS MESSAGE IS DISPLAYED 
ae DIFFERENCE 


ENTER 
ENTER THE NUMBER OF CYLINDERS TO SEEK (DECIMAL NUMBER) 


FORWARD SEEK? 
ENTER 
A NO (0) REPLY WILL CAU 


SE A NEGA 
A YES (1) REPLY WILL CAUS 


TIVE SEEK 
E A POSITIVE SEEK 
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08.00.00 ROUTINE DESCRIPTION (4974) DEVICE TYPE 64, 


WHEN DEVICE TYPE 64 IS SELECTED THE FRIEND SUPERVISOR WILL Brau ae THE ROUTINE 
FOR THIS DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXA DEC IMAL LOCATION 1900. 
THE FOLLOWING MESSAGES WILL BE DISPLAYED FOR DA 01 

SELECT COMMAND{(S) FOR DA 01 

01 DEFAULT=PRINT A CHARACTER IN ONE COLUMN 

O02 PREPARE 

03 READ DEVICE ID 

O04 RESET 

05 DELAY 

06 LOOP START 

07 LOOP END 

08 WRITE 

ENTER 


THE COMMAND(S) NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. 


WHEN THE eoeeee SebieT aTee eaotn ENTERED THIS ROUTINE WILL DO A_ READ ID TO THE 
DEVICE ADDRESS EC IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE 
EXPECTED RESULT THE OUESTION WILL BE. 


Caneer EXPECTED 0206 ID WAS 0020 IS THIS O.K? 


NO (0) REPLY WILL CAUSE THE ROUTINE TO TERMINATE 
A YES (1) REPLY WILL PERMIT THE FOLLOWING MESSAGES 


LEVEL TO INTERRUPT 
ENTER | 


A REPLY OF 0000,0001,0002 IS EXPECTED 


Te gee COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO 


tapen. *I' BIT REQUIRED 
IF THE DEVICE UNDER TEST IS TO INTERRUPT THE ‘I* BIT MUST BE SET ON IN THE 
PREPARE IDCB 


WILL ANY DCB'S BE CHAINED? 
ENTER 


A (0) REPLY WILL NOT PERMIT ANY MORE MESSAGES CONCERNING A CHAINED DCB. 
A YES (1) REPLY WILL CAUSE THE FOLLOWING MESSAGE FOR EACH DCB 

DO YOU WANT THE CHAIN BIT ON? 
A REPLY OF NO (0) OR YES (1) IS EXPECTED 


8 LINES PER INCH? 
REPLY OF NO (0) OR YES (1) IS EXPECTED 
U 


a THE MICRO CODE TO SUPPORT 8 LINES MUST BE LOADED BEFORE SELECTING THIS 
MMAND OF 01 WILL CAUSE THIS MESSAGE 
ae AGH COLUMN IS THE CHARACTER TO BE PRINTED 
ENTER THE COLUMN NUMBER (DECIMAL NUMBER 0001-0132) 
WHICH CHARACTER 
ENTER 
ENTER A CHARACTER TO BE PRINTED 


IS FORMS CONTROL NEEDED? 


ENTER 
ENTER A YES (1) OR NO {0) 
ER GEE LENGTH AND OVER FLOW LINE 
ENTER THE FORMS LENGTH IN BYTE O AND THE LINE TO OVERFLOW TO IN BYTE 1 
nee OR SPACE MODIFIER 
ENTER THE SKIP MODIFIER IN BYTE O OR THE SPACE MODIFIER IN BYTE 1 
ee malig IS A SKIP OF O AND A SPACE OF 2 LINES 


IS THE RETRY BIT NEEDED? 
ENTER 
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ENTER A YES (1) OR A NO A, 
IF THE RETRY BIT IS ON I HE DCB THE ATTACHMENT WILL ATTEMPT TO COMPLETE THE 
LAST I/O COMMAND. 


LENGTH OF DELAY,IN MILLISECOND (S) 
ENTER 


A REPLY FROM 0001 TO 9999 IS EXPECTED 
A REPLY OF 0001 = 1 MILLISECOND 
HOW MANY TIMES THROUGH THE LOOP 
ENTER 


A REPLY FROM 0001 TO 9999 IS EXPECTED 
BYTE COUNT 
ENTER 


THIS IS THE BYTE COUNT IN DECIMAL FOR THE DCB 
Ca nEe” WANT TO USE THE STANDARD DATA PATTERN? 


YES (dy! REPLY WILL CAUSE THE DEFAULT PATTERN TO BE MOVED TO THE DATA AREA 
NO (0) REPLY WILL CAUSE THE NEXT QUESTION 

DATA IS 

ENTER 


NOW ENTER THE DATA TO BE WRITTEN 

IF OPTION 07 IS SELECTED AND OPTION 06 WAS NOT THEN THE STATEMENT WILL BE 
LOOP NOT STARTED,START OVER 

IF OPTION 06 AND 07 WAS SELECTED THE MESSAGE WILL BE 
LOOP STARTED AT 3268 


LOOP ENDED AT 3288 


i N THE MESSAGE(S) HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 


WHE 
SUPERVISOR 
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09.00.00 ROUTINE DESCRIPTION (4973) DEVICE TYPE 68. 


LECTED THE FRIEND SUPERVISOR WILL REQUEST THE ROUTINE 
E LOADED INTO STORAGE AT HEXADECIMAL LOCATION 1900. 
LL BE DISPLAYED FOR DA 05 


R DA 05 
HARACTER IN ONE COLUMN 
HARACTER IN EVERY COLUMN 


Omo 


SrMromwmoom fH 
br Hi 
WirawWN 
o) 
41 Oo bd 


L 


FOOD OCOOOOCON 
BZODNAHiISWH-at WH 
QY 


TER 


COMMAND 2 Sipret a FOR THIS TEST MAY BE ENTERED AT THIS TIME. 

THE OMMA — ine BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE 
E ADDRESS ape I IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE 
ED RESULT THE SUESTION WILL BE, 


ID EXPECTED 0306 ID WAS 0020 IS THIS O.K? 


MO Shit 


isle! 
De oc oo 
tH WO HD mH= 


=r ©1M) 


t 
AD 
TER 
(0) REPLY WILL CA 
(1) REPLY WILL P 


EVEL TO INTERRUPT 
ENTER 


A REPLY OF 0000,0001,0002 IS EXPECTED 


a Oo COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO 


Po 
<i 


s 


USE T 
ERMIT 


6] 


oa 'I' BIT REQUIRED 
pen UNDER TEST IS TO INTERRUPT THE *I* BIT MUST BE SET ON IN THE 


ANY DCB*S BE CHAINED? 
a! , REPLY WILL NOT PERMIT ANY MORE MESSAGES CONCERNING A CHAINED DCB. 


) REPLY WILL CAUSE THE FOLLOWING MESSAGE FOR EACH DCB 


DO YOU WANT THE CHAIN BIT ON? 
A REPLY OF NO (0) OR YES (1) IS EXPECTED 


8 LINES PER INCH? 
A REPLY OF NO (0) OR YES (1) IS EXPECTED 


A COMMAND OF Q1 WILL CAUSE THIS MESSAGE 
WHICH COLUMN IS THE CHARACTER TO BE PRINTED 


ENTER 
ENTER THE COLUMN NUMBER (DECIMAL NUMBER 0001-0132) 
WHICH CHARACTER 
ENTER 
ENTER A CHARACTER TO BE PRINTED 
IS FORMS CONTROL NEEDED? 


Pd 
ak 1 


ENTER 
ENTER A YES (1) OR NO {0) 
FORMS LENGTH AND OVERFLOW LINE 
ENTER THE FORMS LENGTH IN BYTE 0 AND THE LINE TO OVERFLOW TO IN BYTE 1 


Seng OR SPACE MODIFIER 


ENTER THE SKIP MODIFIER IN BYTE 0 OR THE SPACE euees IN BYTE 1 
THE FOLLOWING IS A SKIP OF O AND A SPACE OF 2 LINE 
F0002 
ENTER RETRY BIT NEEDED? 
ENTER A YES (1) OR A NO f°), 
IF THE RETRY BIT IS ON I HE DCB THE ATTACHMENT WILL ATTEMPT TO COMPLETE THE 
LAST I/0 COMMAND. 
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LENGTH OF DELAY, IN MILLISECOND (S) 
ENTER 


A REPLY FROM 0001 TO 9999 IS EXPECTED 
A REPLY OF 0001 = 1 MILLISECOND 


HOW MANY TIMES THROUGH THE LOOP 
ENTER 


A REPLY FROM 0001 TO 9999 IS EXPECTED 
BYTE COUNT 
ENTER 
THIS IS THE BYTE COUNT IN DECIMAL FOR THE DCB 
DO YOU WANT TO USE THE STANDARD DATA PATTERN? 


ENTER 


A YES (1) REPLY WILL CAUSE THE DEFAULT PATTERN TO BE MOVED TO THE DATA AREA 
A NO (0) REPLY WILL CAUSE THE NEXT QUESTION 


DATA IS 
ENTER 


NOW ENTER THE DATA TO BE WRITTEN 

LF OPTION 08 IS SELECTED AND OPTION O07 WAS NOT THEN THE STATEMENT WILL BE 
LOOP NOT STARTED,START OVER 

IF OPTION O7 AND 08 WAS SELECTED THE MESSAGE WILL BE 
LOOP STARTED AT 3268 
LOOP ENDED AT 3288 


nea THE MESSAGE(S) HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 


W 
SUPERVISOR 
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10.00.00 ROUTINE DESCRIPTION (4962) DEVICE TYPE 78. 
ENTER 
N 
WHEN DEVICE TYPE 78 IS SELECTED THE FRIEND SUPERVISOR WILL REQUEST, THE ROUTINE ENTER THE CORRECT HEAD NUMBER(0000 OR 0001) 
FOR THIS DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXADECIMAL LOCATION 1900. 
THE FOLLOWING MESSAGES WILL BE DISPLAYED FOR DA 03 LENGTH OF DELAY,IN MILLISECOND(S) 
SELECT COMMAND(S) FOR DA 03 
59 DEFAULT=RECALIBRATE, SEEK. READ SECTOR ID WRITE SECTOR ID RAE prom rena eee ce eens 
03 PREPARE ' A REPLY OF 0001 = 1 MILLISECOND 
G READ DEVICE ID 
05 RESET HOW MANY TIMES THROUGH THE LOOP 
06 DELAY EN TER 
07 LOOP START 
08 LOOP END A REPLY FROM 0001 TO 9999 IS EXPECTED 
09 READ DATA 
OA WRITE DATA BYTE COUNT 
OB READ SECTOR ID ENTER 
OC WRITE SECTOR ID 
OD READ SECTOR ID SKEW THIS IS THE BYTE COUNT IN DECIMAL FOR THE DCB 
OE WRITE SECTOR ID SKEW 
OF SEEK DO YOU WANT TO USE THE STANDARD DATA PATTERN? 
10 RECALIBRATE ENTER 
11 READ VERIFY 
KK CAUTION 400% 7 YES g1) REPLY WILL CAUSE THE DEFAULT PATTERN TO BE MOVED TO THE DATA AREA 
SOME COMMAND (5) WHEN USED COULD DESTROY CUSTOMER DATA INTEGRITY A NO (0) REPLY WILL CAUSE THE NEXT QUESTION 
DATA IS 
THE COMMAND s NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. ENTER 
WHEN THE MAND (S el HAVE BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE 
DEVICE YS DRESS SPECIFIE IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE NOW ENTER THE DATA TO BE WRITTEN 
EXPECTED RESULT THE OUESTION WILL BE. 
IF OPTION 08 IS SELECTED AND OPTION 07 WAS NOT THEN THE STATEMENT WILL BE 
READ ID EXPECTED OOAA ID WAS 0020 IS THIS 0O.K? 
ENTER LOOP NOT STARTED,START OVER 
A NO (9) REPLY WILL CAUSE THE ROUTINE TO TERMINATE IF OPTION 07 AND 08 WAS SELECTED THE MESSAGE WILL BE 
A YES (1) REPLY WILL PERMIT THE FOLLOWING MESSAGES LOOP STARTED AT 3268 
LEVEL TO INTERRUPT WHEN THE MESSAGE(S) HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 
ENTER SUPERVISOR 


A REPLY OF 0000,0001,0002 IS EXPECTED 


aa a COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO 


IS THE "I* BIT REQUIRED 
ENTER 


F THE DEVICE UNDER TEST I5 TO INTERRUPT THE 'I* BIT MUST BE SET ON IN THE 
REPARE IDCB 


WILL ANY DCB‘'S BE CHAINED? 
NTER 


I 
P 


E 
A NO (0) REPLY WILL NOT PERMIT ANY MORE MESSAGES CONCERNING A CHAINED DCB. 
A YES (1) REPLY WILL CAUSE THE FOLLOWING MESSAGE FOR EACH DCB 


DO YOO WANT THE CHAIN BIT ON? 
A REPLY OF NO (0) OR YES (1) IS EXPECTED 


IF A SEEK COMMAND IS NECESSARY THIS MESSAGE IS DISPLAYED 
eee NCE 
ENTER THE NUMBER OF CYLINDERS TO SEEK (DECIMAL NUMBER) 
FORWARD SEEK? 
rth 
(0) REPLY WILL CAUSE A NEGATIVE SEEK 
YES (1) REPLY WILL CAUSE A POSITIVE SEEK 
mua NUMBER 
ENTER THE CYLINDER NUMBER(DECIMAL VALUE) 
SECTOR NUMBER 
ENTER 
ENTER THE CORRECT SECTOR NUMBER (DECIMAL 0000-0059) 
IS THIS A FIXED HEAD? 
ENTER 


A REPLY aN NO {S) OR YES (1), 
IF If IS FIXED HEAD THE HE HEAD VALUE IS 0000-0007 


tO 


A 
A 
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11.00.00 ROUTINE DESCRIPTION (4982 AI) DEVICE TYPE A8. MULTIPLEXER 
WHAT IS THE RANGE 
WHEN DEVICE TYPE A8 IS SELECTED THE FRIEND SUPERVISOR WILL REQUEST ir ae ENTER 
FOR THIS DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXAD Re IMAL LOCATION 1 
THE FOLLOWING MESSAGES WILL BE DISPLAYED FOR DA 61 A REPLY OF ee eee IS EXPECTED 
RANGE AIN NPUT rep 
SELECT COMMAND (S) FOR DA 61 0001 1 5V_ (SOLID TYPE) 
01 PREPARE +5V TO = BOOMY (REED RELAY) 
O02 READ DEVICE ID 0002 10 SOOMV 
03 RESET 0003 25 200MV 
04 DELAY 0003 50 100MV 
05 LOOP START 0005 100 SOMV 
06 LOOP END 0006 250 20MV 
QO7 CONVERT AI 0007 500 10MV 
08 READ ANALOG DIGITAL CONVERTER : 
09 CONVERT DIAGNOSTIC ZERO IF OPTIO 8 IS SELECTED THE MESSAGE WILL BE 
OA CONVERT DIAGNOSTIC VOLTAGE DO YOU WANT TO WRITE THE DATA TO THE CONSOLE LED'S? 
ENTER , ENTER 
TITHE COMMAND(S) NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. A YES CN) OR NO {0 ) IS EXPECTED 
WHEN THE COMMAND(S) HAVE BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE IF YE {0 ( ) IS SELECTED THE DATA IN THE SOO CEE LED'S WILL BE: LED 0 IS THE SIGN 
DEVICE ADDRESS SPECIFIED. IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE BIT OSITIVE 1 NEGATIVE) ,LED'*S 1-12 WILL BE A BINARY REPRESENTATION OF THE 
EXPECTED RESULT ONE OR BOTH OF THE FOLLOWING QUESTION(S) WILL BE DISPLAYED. INPUT (VOLTAGE, LED'S 13-15 WILL’ BE THE RANGE CODE 
Sian FEATURE AT THE BASE ADDRESS IS THIS 0O.K? ee a HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 


NO MULTIPLEXER AT THIS ADDRESS IS THIS 0O.K? 
‘ENTER ’ 
A NO (9) REPLY TO EITHER QU 
A YES (1) REPLY WILL PERMIT 


LEVEL TO INTERRUPT 
ENTER. 


A REPLY OF 0000,0001,0002 IS EXPECTED 


eco COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO 


oe” ‘It BIT REQUIRED 


S 

NT 

HE DEVICE UNDER TEST IS TO INTERRUPT THE 'I* BIT MUST BE SET ON IN THE 
ARE IDCB 
EN 
NT 


E ON WILL TERMINATE THE ROUTINE 


TI 
HE FOLLOWING MESSAGES 


S 
t 


I 
E 
IF T 
PREP 
LENGTH OF DELAY,IN MILLISECOND (S) 
ENTER 
A REPLY FROM 0001 TO 9999 IS EXPECTED 
A REPLY OF 0001 = 1 MILLISECOND 


HOW MANY TIMES THROUGH THE LOOP 
ENTER 


A REPLY FROM 0001 TO 9999 IS EXPECTED 
IF OPTION 06 IS SELECTED AND OPTION 05 WAS NOT THEN THE STATEMENT WILL BE 
LOOP NOT STARTED,START OVER 
IF OPTION 05 AND 06 WAS SELECTED THE MESSAGE WILL BE 
LOOP STARTED AT 3268 
LOOP ENDED AT 3288 
WHICH CHANNEL 
ENTER 
A REPLY OF 0000-0007 IS EXPECTED FOR THE REED RELAY MULTIPLEXER 
A REPLY OF 0000-0015 IS EXPECTED FOR THE SOLID TYPE MULTIPLEXER 


WHAT. IS THE SAMPLE RATE 
ENTER 


A REPLY OF 0001-0004 IS EXPECTED. THE SAMPLE RATE IS THE NUMBER OF TIMES PER 
SECOND THE CONVERT AI IS EXECUTED. THIS SAMPLE RATE IS VALID FOR THE REED RELAY 
MULTIPLEXER ONLY 

IS ZERO CORRECTION REQUIRED? 

ENTER 


A REPLY OF YES (1) OR NO (0) IS EXPECTED. THIS IS VALID FOR THE SOLID TYPE 
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MAP 0017-31 


12.00.00 ROUTINE DESCRIPTION (4982-A0) DEVICE TYPE A9. 


WHEN DEVICE TYPE AS IS SELECTED THE FRIEND SUPERVISOR WILL REQUEST, THE ROUTINE 
FOR THIS DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXADECIMAL LOCATION 1900. 
THE FOLLOWING MESSAGES WILL BE DISPLAYED FOR DA 62 

SELECT rpeerce th FOR DA 62 

01 READ DEVICE I 

O02 RESET 

03 AY 

O4 LOOP START 

05 LOOP END 

06 WRITE AO POINT 0 

O07 WRITE AO POINT 1 


DISCONNECT CUSTOMER INTERFACE 
ENTER 


*EKEKCAUTION** *€*¥*¥CAUTION**** *CAUTION* €***XCAUTION*****XCAUTION*¥*** 


WHEN OPTION 06 OR O7 IS SELECTED AND USED BY FRIEND THE SENSOR I/O SHOULD BE 


POWERED OFF AND THEN ON BEFORE THE CUSTOMER INTERFACE IS REINSTALLED 


READ ID EXPECTED 8040 ID WAS 0020 IS THIS O.K? 
ENTER 


A NO (9) REPLY WILL CAUSE THE ROUTINE TO TERMIN 
A YES (1) REPLY WILL PERMIT THE FOLLOWING MESSA 


LENGTH OF DELAY, IN MILLISECOND (S) 
ENTER 


A REPLY FROM 0001 TO 9999 IS EXPECTED 
A REPLY OF 0001 = 1 MILLISECOND 
HOW MANY TIMES THROUGH THE LOOP 
ENTER 


ATE 
GES 


A REPLY FROM 0001 TO 9999 IS EXPECTED 

IF OPTION 05 IS SELECTED AND OPTION O04 WAS NOT THEN THE STATEMENT WILL BE 
LOOP NOT STARTED,START OVER 

IF OPTION 04 AND 05 WAS SELECTED THE MESSAGE WILL BE 
LOOP STARTED AT 3268 
LOOP ENDED AT 3288 

WHEN OPTION 06 OR O7 IS SELECTED THE MESSAGES WILL BE 


VOLTAGE RANGE +5V TO -5V 
AT IS THE VOLTAGE 


WH 

ENTER 

F49902 344 ### THIS IS THE MAXIMUM POSITIVE VOLTAGE 
eee. VOLTAGE POSITIVE? 


A YES (1) OR A NO (0) IS EXPECTED 


2 WORDS OF DATA MUST BE ENTERED FOR THE VOLTAGES 
EXAMPLE: FXXXXXXXX = VeVVVVVVV VOLTS 
THEREFORE: F50000000 = 5.0000000 VOLTS 
AND F00097656 = 0.0097656 VOLTS 
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THE COMMAND(S) NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. 

WHEN THE 0 PoneAk HAVE BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE 
DEVICE ADDRESS SPECIFIED. IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE 
EXPECTED RESULT THE QUESTION WILL BE. 
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ie 2 ae fe af oc 2c akc 2 cafe 3c aie ak ofc kc ade aie ake ake ke 2 2 afc ae ate 2h 22 af ak ate i ac ae ic ac 2 ak ic ac 2c ak ak fc 2 2 3 


* AO BIT VALUES IN VOLTS * 
ee ae aie ae ae fe aie ate fee aoe afc fe afc ac afc ate ae ade fe ate fe a fe ae ake fk 2k a ie ce ate afc aie aie ca aoe ofeach afc ae i ae 3c oe 2c 
, bite +10V TO -10V* +5V TO -5V * 0 TO -10V : 
SOUR ee ee OUDNU0 
* 1 * 5.000000 * 2.500000 * 22500000 * 
* 2 * 22500000 * 1.250000 * 12250000 + 
* 3 * 72250000 * 2625000 * 7625000 * 
*-I-F--~ TE 2S0V0- FS T2500 TZU 
*5 * 2312500 * 1156250 * 2765250 * 
*6 * 2156250 * 1078125 * 3078125 * 
* 7 * 1078125 * 2039062 * 2039062 * 
*~B-R--~TOZIVGZ FTI SST OTIS 
#9 * 019531, * 5009765 * 3009765 _* 
24 he he ee 2h 2 she ah he ae ae a fe 2 ake ae 2 a ace ake ah af 2 ote he 2 2K fc ie ac 2 ik a ak 2k ic ae ic 3 ke af ae ak 2K ie 2k ok 
* *SIGN BIT= 'Q* POSITIVE VOLTAGES * 
* "1" FOR NEGATIVE VOLTAGES * 
3H fe ae We ae fe he shee fe ac ae ke he a 2h he ofeach ae ae ee ay 3h he he ae he a fe 2c a a 2 ic ac ae 2 2c 2k at 2 2c 3c 


He ie 9c ie 2h ae ate fe he fe ah ae ake af afc afc ae fe ae fe fc ae she fe ae aie fe 3 aie afk ok afc aie she ae ae fc ae ie afc ai af afe a aie 3c of akc 2k ae 


* VOLTAGE * MAXIMUM * CENTER * MINIMUM * 
* RANGE * VOLTAGE * VOLTAGE * VOLTAGE * 
ate ee a Re a Re aR a he ERC a a EC i Re he fe fe aK 4 28 2 af fc a 2 2 2 a aK ae 2 2 2c 


* +5V * * x * 
* TO * 4¢4,9902344 * 0 * -5 * 
* -5V % * * * 
ROR I a kf kk ke ak 2 a ke ic akc 2 ake af a ig ke a ac ate ak 2k a kc af a 2a ake ac ak 2 a ofc ak ae 2 a i akc ake 2 aK ok ak 
* +10V * * 2 ak 
* TO * +9.9804688 * 0 * -10 * 
* > 1 x x * 2x 
Me Ke Ree 2 a a ie ck akc of a 2 2 2k ae af ac fe akc ake a ak ake ake ic ak 2k ake ak ae 2c ae ake akc a ae aie afc 2c ak ok aft ak 2k 
* OV * * fe Xe 
* TO : #9.9902344 : 5 : 0 * 


* +10V * 
PS SSS SSS SSS SSS PS SSS SS SST CST STS SSS SS STS LS SSS TSE STS ES 


WHEN THE MESSAGE(S) HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE 
SUPERVISOR 


FRIEND 
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13.00.00 ROUTINE DESCRIPTION (4982-DI/PI) DEVICE TYPE BO. 14.00.00 ROUTINE DESCRIPTION (4982-D0) DEVICE TYPE B4. 
WHEN DEVICE TYPE BO IS SELECTED THE FRIEND SUPERVISOR WILL REQUEST, THE ROUTINE WHEN DEVICE TYPE Ba as SELECTED THE FRIEND SUPERVISOR WILL REQUEST, THE ROUTINE 
FOR THIS DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXADECIMAL LOCATION 1900. FOR THIS DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXADECIMAL LOCATION 1900. 
THE FOLLOWING MESSAGES WILL BE DISPLAYED FOR DA 63 THE FOLLOWING HESSAGES WILL BE DISPLAYED FOR DA 64 
SELECT COMMAND(S) FOR DA 63 SELECT COMMAND (S) FOR DA 64 
01 PREPARE 01 READ DEVI 
02 READ DEVICE ID 02 RESET 
03 RESET 03 DELAY 
04 DELAY 04 LOOP START 
05 LOOP START 05 LOOP END 
06 LOOP END 06 WRITE DO 
07 ARM DI EXTERNAL SYNC keke CAUTION **** 
08 READ DI DISCONNECT CUSTOMER INTERFACE 
09 ARM PI ENTER 
OA READ PI 
OB READ PI WITH RESET xe ECAC TIONS ** ** CAUTION*****XCAUTION*****CAUTION**** *CAUTION*#% KX 
C READ STATUS 
ENTER WHEN OPTION 06 IS SELECTED AND USED BY FRIEND THE SENSOR I 40 SHOULD BE POWERED 
OFF AND THEN ON BEFORE THE CUSTOMER INTERFACE IS REINSTALLED 
THE COMMAND(S) NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. 
WHEN THE COMMAND{S) HAVE BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE THE COMMAND(S) NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIHE. 
DEVICE ADDRESS SPECIFIED. IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE HHEN THE COMMAND S). HAVE BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE 
EXPECTED RESULT THE OUESTION WILL BE. DEVICE ADDRESS SPECIFIED. IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE 
XPECTED RESULT THE QUESTION WILL BE. 
NO DI/PI FEATURE AT THIS ADDRESS IS THIS O.K? 
ENTER READ ID EXPECTED 8018 ID WAS 0020 IS THIS O.K? 
NO {0 ) REPLY WILL CAUSE THE ROUTINE TO TERMINATE 
YES (1) REPLY WILL PERMIT THE FOLLOWING MESSAGES A NO (0) REPLY WILL CAUSE THE ROUTINE TO TERMINATE 
A YES (1) REPLY WILL PERMIT THE FOLLOWING MESSAGES 


LEVEL TO INTERRUPT 
ENTER LENGTH OF DELAY, IN MILLISECOND (S) 


ENTER 
A REPLY OF 0000,0001,0002 IS EXPECTED 
A REPLY FROM 0001 TO 9999 IS EXPECTED 
IF A PREPARE COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO 


LEVEL 2 A REPLY OF 0001 = 1 MILLISECOND 
IS THE "I BIT REQUIRED HOW MANY TIMES THROUGH THE LOOP 
ENTER ENTER 
IF THE DEVICE UNDER TEST IS TO INTERRUPT THE ‘I* BIT MUST BE SET ON IN THE 
PREPARE IDCB A REPLY FROM 0001 TO 9999 IS EXPECTED 
Ceree OF DELAY,IN MILLISECOND (S) IF OPTION 05 IS SELECTED AND OPTION O04 WAS NOT THEN THE STATEMENT WILL BE 
LOOP NOT STARTED,START OVER 
A REPLY FROM 0001 TO 9999 IS EXPECTED 
IF OPTION O04 AND 05 WAS SELECTED THE MESSAGE WILL BE 
A REPLY OF 0001 = 1 MILLISECOND LOOP STARTED AT 3268 
LOOP ENDED AT 3288 
HOW MANY TIMES THROUGH THE LOOP 
ENTER IF Saree IS SELECTED THE MESSAGE WILL BE 
A REPLY FROM 0001 TO 9999 IS EXPECTED ENTER 
IF OPTION 06 IS SELECTED AND OPTION 05 WAS NOT THEN THE STATEMENT WILL BE ROO EFEE” DATA TO BE WRITTEN TO THE DO REGISTER. DATA IS EXPECTED TO BE 
LOOP NOT STARTED,START OVER 
aa HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 


IF OPTION 05 AND 06 WAS SELECTED THE MESSAGE WILL BE 
LOOP STARTED AT 3268 
LOOP ENDED AT 3288 


IF OPTION 08,0A,0B IS SELECTED THE FOLLOWING MESSAGE WILL BE DISPLAYED 
Cates WANT fo WRITE THE DATA IN THE CONSOLE LED'S? \ 


A YES (1) OR NO (0) IS EXPECTED 

IF YES (1) IS SELECTED THE CONSOLE LED'S WILL CONTAIN THE 16 BITS OF USER DATA 
WHEN THE MESSAGE(S) HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 
SUPERVISOR 
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15.00.00 ROUTINE DESCRIPTION (4978) DEVICE TYPE 45. 16.00.00 ROUTINE DESCRIPTION (4966) DEVICE TYPE 4A. 


WHEN DEVICE TYPE 45 IS SELECTED THE FRIEND SUPERVISOR WILL REQUEST, THE ROUTINE 
E S DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXADECIMAL LOCATION 1900. 
T OWING MESSAGES WILL BE DISPLAYED FOR DA 04 


T ULT= WRIT L FOR DA O4 
7 oe UP 1 


~ Om 


PHIOCDOCOOOCOOCON 
Sroo Wo nile WwNasty Weg 


A he han ECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. 
ONMAN Bh ebe HAVE BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE 
gestae SPECIFIED. IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE 


ULT THE QUESTION WILL BE. 
EXPECTED O4OE ID WAS 0020 IS THIS O.K? 


ROUTINE TO TERMINATE 


( ) REPLY WILL C E 
S THE FOLLOWING MESSAGES 


AU 
) REPLY WILL PE 


LEVEL TO INTERRUPT 
ENTER 


A REPLY OF 0000,0001,0002 IS EXPECTED 


out oe COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO 


WILL ANY DCB*S BE CHAINED? 


SE TH 
RMIT 


ENTER 
A (0) REPLY WILL NOT PERMIT ANY MORE MESSAGES CONCERNING A CHAINED DCB 
A YES (1) REPLY WILL CAUSE THE FOLLOWING MESSAGE FOR EACH DCB 

DO YOU WANT THE CHAIN BIT ON? 


BI 
A REPLY OF NO (0) OR YES (1) IS EXPECTED 
TH OF DELAY,IN MILLISECOND (S) 


Ker fiG@ 
9] 


01 TO 9999 IS EXPECTED 
= 1 MILLISECOND 


M QO 
0001 
IMES THROUGH THE LOOP 


Y T 
A REPLY FROM 0001 TO 9999 IS EXPECTED 

BYTE COUNT 

ENTER 
THIS IS THE BYTE COUNT IN DECIMAL FOR THE DCB 

DO YOU WANT TO USE THE STANDARD DATA PATTERN? 

ENTER 

1) REPLY WILL CAUSE THE DEFAULT PATTERN TO BE MOVED TO THE DATA AREA 


NO > 1d) REPLY WILL CAUSE THE NEXT QUESTION 


DATA IS 
ENTER 


NOW ENTER THE DATA TO BE WRITTEN 

IF OPTION 08 IS SELECTED AND OPTION O07 WAS NOT THEN THE STATEMENT WILL BE 
LOOP NOT STARTED,START OVER 

IF OPTION O7 AND 08 WAS SELECTED THE MESSAGE WILL BE 
LOOP STARTED AT 3268 


LOOP ENDED AT 3288 


WHEN THE MESSAGE(S) HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 
SUPERVISOR 


21SEP79 PN4414043 
EC375482 PEC755448 
MAP 0017-35 


WHEN EVICE TYPE 4A IS SELECTED THE FRIEND SUPERVISOR WILL REQUEST, THE ROUTINE 
FOR THIS DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXADECIMAL LOCATION 1900. 
THE FO fS WILL BE DISPLAYED FOR DA FO 


D 

I 

LLOWING MESSAG 
LECT COMMAND(S) FOR DA FO 
PREPARE 


READ DEVICE ID 

RESET 

DELAY 

LOOP START 

LOOP END 

SEEK 

RECALIBRATE HOME 

RECALIBRATE HEAD 

RECALIBRATE HEAD NOT LOADED DISKETTE 
FORMAT neaGe 


% td 2-3 3 CQOOO OOOCQOOOOOO0ON 
KFWHSMOMWONQNWEPWOOWHNnNSWH-a Wr 
? 


FORMAT TRACK (BAD TRACK) 
ERTEY FORMAT (TRACK 
READ DATA 
READ VERIFY (CRC CHECK) 
READ VERIFY {DATA COMPARE) 
READ SECTOR ID, (MAP 
WRITE DATA (DAT 
WRITE DATA [RBAD VE IFY) 
** CAUTION **** 
SOME COMMAND (S) WHEN USED COULD DESTROY CUSTOMER DATA INTEGRITY 


THE COMMAND(S) NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. 

WHEN THE Soeece teh HAVE BEEN ENTERED THIS ROUTINE WILL DO A_ READ ID TO TH 
DEVICE ADDRESS ECIFIED. IF THE RESULT OF THE READ ID IS NOT EQUAL TO TH 
EXPECTED RESULT THE QUESTION WILL BE. 


READ ID EXPECTED 0126 ID WAS 0020 IS THIS 0O.K? 


E 
E 


ENTER 
NO (0) REPLY WILL CAUSE THE ROUTINE TO TERMINATE 
A YES (1) REPLY WILL PERMIT THE FOLLOWING MESSAGES 
LEVEL TO INTERRUPT 
ENTER 
A REPLY OF 0000,0001,0002 IS EXPECTED 
ete COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO 
paeee” ‘I* BIT REQUIRED 
IF THE DEVICE UNDER TEST IS TO INTERRUPT THE ‘I* BIT MUST BE SET ON IN THE 
PREPARE IDCB 
ie DCB'S BE CHAINED? 
A NO (0) REPLY WILL NOT PERMIT ANY MORE MESSAGES CONCERNING A CHAINED DCB. 
A YES (1) REPLY WILL CAUSE THE FOLLOWING MESSAGE FOR EACH DCB 
DO YOU WANT THE CHAIN BIT ON? 
ENTER 


A REPLY OF NO (0) OR YES (1) IS EXPECTED 
eae OF DELAY,IN MILLISECOND (S) 

A REPLY FROM 0001 TO 9999 IS EXPECTED 

A REPLY OF 0001 = 1 MILLISECOND 
HOW MANY TIMES THROUGH THE LOOP 


ENTER 
A REPLY FROM 0001 TO 9999 IS EXPECTED 


eugene oe EXCEPTION REQUIRED? 
A NO (0) OR A YES (1) IS EXPECTED 


S AUTOMATIC SEEK REQUIRED? 
(0) OR A YES (1) IS EXPECTED 


i 3) 


S THE MFM BIT REQUIRED? 
NTER 


I 
E 
A NO 
I 
E 
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A NO (0) OR A YES (1) IS EXPECTED 
TF ORBTON RE tE?)S 
IS | THIS A CONTROL AM? 
A NO {0} OR A YES (1) IS EXPECTED 
( j Oy), : UPERVISOR 
CONTROL AM MASK (00,01, 02) 
ENTER 
ENTER THE CONTROL. MASK FOR THE DCB 
SEEK DIFFERENCE 
ENTER 
ENTER THE NUMBER OF CYLINDERS TO SEEK(DECIMAL NUMBER) 
FORWARD SEEK? 
ENTER. 
(0) REPLY WILL CAUSE A NEGATIVE SEEK 
A YES (1) REPLY WILL CAUSE A POSITIVE SEEK 
CYLINDER NUMBER 
ENTER 
ENTER THE CYLINDER NUMBER(DECIMAL VALUE) 
SECTOR SIZE 
ENTER 
ENTER THE CORRECT SECTOR SIZE(0128/0256/0512) 
SECTOR NUMBER 
ENTER 
ENTER THE CORRECT SECTOR NUMBER (DECIMAL0001-0015) 
HOW MANY SECTORS . 
ENTER 
ENTER THE NUMBER OF SECTORS REQUIRED FOR THE COMMAND 


SELECTED THE MESSAGE WILL BE 


: HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 


ENTER 
ENTER THE CORRECT HEAD NUMBER(0000 OR 0001) 
ponee: WORD 
ENTER THE WORD TO USE TO FORMAT THE TRACK 
BYTE COUNT 
ENTER 
THIS IS fHE BYTE COUNT IN DECIMAL FOR THE DCB 
a cee WANT TO USE THE STANDARD DATA PATTERN? 


YES wi REPLY WILL CAUSE THE DEFAULT PATTERN TO BE MOVED TO THE DATA AREA 
NO (0) REPLY WILL CAUSE THE NEXT QUESTION 


gon ana WORDS OF DATA 

ENTER THE NUMBER OF WORDS OF DATA(DECIMAL NUMBER) 
DO YOU WANT TO COMPARE THE DATA JUST READ? 
ENTER 


A READ COMMAND WAS FOLLOWED BY A READ VERIFY (DATA COMPARE) IS THE DATA FROM THE 
READ COMMAND TO BE USED FOR THE COMPARE 


CutEn WANT TO WRITE THE DATA JUST READ? 


READ COMMAND WAS FOLLOWED BY A WRITE COMMAND IS THE DATA FROM THE READ COMMAND 
TO. BE USED FOR THE WRITE COMMAND 


DISKERTE POSITION NUMBER (DECIMAL NUMBER 0001-0023) 
ENTER THE DISKETTE POSITION TO BE USED IN THE DCB 
DATA IS | 
ENTER . 
NOW ENTER THE DATA TO BE WRITTEN 
FILE BYTE (Q0-FF) 
ENTER THE FILL BYTE TO BE USED IN A FORMAT COMMAND. 
VEREFY BYTE (00-FF) 
ENTER 
ENTER THE VERIFY BYTE TO BE USED IN A VERIFY COMMAND 
IF OPTION 08 IS SELECTED AND OPTION 07 WAS NOT THEN THE STATEMENT WILL BE 
LOOP NOT STARTED,START OVER 
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17.00.00 ROUTINE DESCRIPTION (4963) DEVICE TYPE 7A. eee NUMBER 


ENTER 
co, ; | ENTER THE CYLINDER NUMBER(DECIMAL VALUE) 
VICE TYPE 7A IS SELECTED THE FRIEND SUPERVISOR WILL REQUEST 


WHEN DE THE ROUTINE 
FOR THIS’ DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXADECIMAL LOCATION 1900. HOW MANY SECTORS 
THE FOLLOWING MESSAGES WILL BE DISPLAYED FOR DA FO ENTER 
ENTER THE NUMBER OF SECTORS FOR THE DCB 
SELECT COMMAND(S) FOR DA FO - 
01. PREPARE SECTOR NUMBER 
O02 READ DEVICE ID ENTER 
.Q3" RESET ; ENTER THE CORRECT SECTOR(EVEN DECIMAL NUMBER 0000-0032) 
O4 DELAY 
05 LOOP START HEAD 
06 LOOP END ENTER 
O07 SEEK ° ENTER THE CORRECT HEAD NUMBER IN DECIMAL 
08 RECALIBRATE 
09 READ VERIFY IS THIS A FIXED HEAD? 
OA READ DATA--0B REPEAT ENTER 
OC WRITE DATA--OD REPEAT A NO (0) OR A YES (1) IS EXPECTED 
OE READ SECTOR ID--OF EXTENDED 
10 WRITE SECTOR ID WITH READ VERIFY--11 EXTENDED BYTE COUNT 
12 WRITE DATA WITH READ VERIFY-~+13 REPEAT ENTER 
14 WRITE DATA SECURITY THIS IS THE BYTE COUNT IN DECIMAL FOR THE DCB 
15 SCAN EQUAL~-16 SCAN LOW/EQUAL--17 SCAN HIGH/EQUAL 
*¥ekXX CAUTION **** on mee WANT TO USE THE STANDARD DATA PATTERN? 
eee WHEN USED COULD DESTROY CUSTOMER DATA INTEGRITY 


vES gv REPLY WILL CAUSE THE DEFAULT PATTERN TO BE MOVED TO THE DATA AREA 
NO (0) REPLY WILL CAUSE THE NEXT QUESTION 
THE COMMAND(S) NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. 


rhe MANY WORDS OF DATA 
WHEN THE ae ee } HAVE BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE NTER 
DEVICE ADDRESS SPECIFIED IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE ENTER THE NUMBER OF WORDS OF DATA (DECIMAL NUMBER) 


EXPECTED RESULT THE QUESTION WILL BE. 
do, rou WANT TO WRITE THE DATA JUST READ? 


‘READ ID EXPECTED 3X06 ID WAS 0020 IS THIS O.K? 
ENTER READ COMMAND WAS FOLLOWED BY A WRITE COMMAND IS THE DATA FROM THE READ COMMAND 


A 
TO BE USED FOR THE WRITE COMMAND 
A NO (0) REPLY WILL CAUSE THE ROUTINE TO TERMINATE 

A YES: (1) REPLY WILL PERMIT THE FOLLOWING MESSAGES HOW MANY RECORDS 


TER 
LEVEL TO INTERRUPT ENTER THE NUMBER OF RECORDS TO BE USED FOR THE DCB 
ENTER 
A REPLY OF 0000,0001,0002 IS EXPECTED eunGES RECORD 1? 
eee COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO EACH SECTOR HAS RECORD 1 AND RECORD 2 DO YOU NEED RECORD RECORD 1 FOR THE DCB? 
DATA IS 


IS THE 'I* BIT REQUIRED ENTER 
ENTER NOW ENTER THE DATA TO BE WRITTEN 


F THE DEVICE UNDER TEST IS TO INTERRUPT THE *I* BIT MUST BE SET ON IN THE 
REPARE IDCB IF OPTION 08 IS SELECTED AND OPTION O07 WAS NOT THEN THE STATEMENT WILL BE 
WILL ANY DCB'S BE CHAINED? LOOP NOT STARTED,START OVER 


ENTER 
NO (0) REPLY WILL NOT PERMIT ANY MORE MESSAGES CONCERNING A CHAINED DCB. IF OPTION O7 AND O08 WAS SELECTED THE MESSAGE WILL BE 
SAGE FOR EACH DCB LOOP STARTED AT 3268 


SS 

YES (1) REPLY WILL CAUSE THE FOLLOWING MES 

LOOP ENDED AT 3288 

DO YOU WANT THE CHAIN BIT ON? WHEN THE MESSAGE(S) HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 
_ ENTER SUPERVISOR 
REPLY OF-NO (0) OR YES (1) IS EXPECTED 

‘LENGTH OF DELAY,IN MILLISECOND (S) 
A REPLY FROM 0001 TO 9999 ES EXPECTED 
REPLY OF 0001 = 1 MILLISECOND 

HOW MANY TIMES THROUGH THE LOOP 


t= 
= 


I 
P 


SE 


A REPLY FROM 0001 TO 9999 IS EXPECTED 
IS SUPPRESS EXCEPTION REQUIRED? 

A NO (0) OR A YES (1) IS EXPECTED 
IS AUTOMATIC SEEK REQUIRED? 

A NO {0} OR A YES (1) IS EXPECTED 
FLAG BYTE IS 


ENTER 
ENTER THE FLAG BYTE TO BE USED IN THE DCB 
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18.00.00 ROUTINE DESCRIPTION (4969) DEVICE TYPE 58. 


WHEN DEVICE TYPE 58 IS SELECTED THE FRIEND SUPERVISOR WILL REQUEST, THE ROUTINE 
FOR THIS DEVICE TYPE,TO BE LOADED INTO STORAGE AT HEXADECIMAL LOCATION 1900. 
THE FOLLOWING MESSAGES WILL BE DISPLAYED FOR DA FO 

SELECT COMMAND(S) FOR DA FO 

01 PREPARE 

02 READ DEVICE ID 

03 RESET © 

O4 DELAY 

05 LOOP START 

06 LOOP END 

07 READ RECORD 

08 WRITE RECORD 

09 WRITE TAPE MARK 

OA ERASE 

OB SPACE RECORD FORWARD 

OC SPACE TAPE MARK FORWARD 

OD SPACE RECORD REVERSE 

OE SPACE TAPE MARK REVERSE 

OF REWIND 

10 OFFLINE 

11 REWIND OFFLINE 

12 DEFAULT WRITE 

13 DEFAULT READ COMPARE 

*kKEKEK CAUTION ***x 

SOME COMMAND (S) WHEN USED COULD DESTROY CUSTOMER DATA INTEGRITY 


THE COMMAND(S) NECESSARY FOR THIS TEST MAY BE ENTERED AT THIS TIME. 

WHEN THE COMMAND(S HAVE BEEN ENTERED THIS ROUTINE WILL DO A READ ID TO THE 
DEVICE ADDRESS SPECIFIED. IF THE RESULT OF THE READ ID IS NOT EQUAL TO THE 
EXPECTED RESULT THE QUESTION WILL BE. 


READ ID EXPECTED 3X06 ID WAS 0020 IS THIS O.K? 
ENTER 


A NO (0) REPLY WILL CAUSE THE ROUTINE TO TERMINATE 
A YES (1) REPLY WILL PERMIT THE FOLLOWING MESSAGES 


Poor TO INTERRUPT 
A REPLY OF 0000,0001,0002 IS EXPECTED 


ee COMMAND IS NOT NECESSARY FOR THE TEST THE DEVICE WILL BE PREPARED TO 


IS THE "I* BIT REQUIRED 


ENTER 
IF THE DEVICE UNDER TEST IS TO INTERRUPT THE "I* BIT MUST BE SET ON IN THE 
PREPARE IDCB 
PNreR DCB'S BE CHAINED? 
A NO (0) REPLY WILL NOT PERMIT ANY MORE MESSAGES CONCERNING A CHAINED DCB. 
A YES (1) REPLY WILL CAUSE THE FOLLOWING MESSAGE FOR EACH DCB 


DO YOU WANT THE CHAIN BIT ON? 

A REPLY OF NO (0) OR YES (1) IS EXPECTED 
LENGTH OF DELAY, IN MILLISECOND (S) 

A REPLY FROM 0001 TO 9999 IS EXPECTED 

A REPLY OF 0001 = 1 MILLISECOND 
HOW MANY TIMES THROUGH THE LOOP 


ENTER 

A REPLY FROM 0001 TO 9999 IS EXPECTED 
A EXCEPTION REQUIRED? 

A NO (0) OR A YES (1) IS EXPECTED 
REPEAT COUNT 
ENTER 

A REPLY FROM 0001 TO 0255 IS EXPECTED 
IS THIS 800 BPI NRZI? 
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ENTER 
A NO (0) OR A YES (1) IS EXPECTED 
IS TEST READ MODE REQUIRED? 
ENTER 
A NO (0) OR A YES (1) IS EXPECTED 
IS READ THRESHOLD LOW REQUIRED? 
A NO (0) OR A YES (1) IS EXPECTED 
BYTE COUNT 
ENTER 
THIS IS THE BYTE COUNT IN DECIMAL FOR THE DCB 


DuaeR” WANT TO USE THE STANDARD DATA PATTERN? 
A YES (1) REPLY WILL CAUSE THE DEFAULT PATTERN TO BE MOVED TO THE DATA AREA 
A NO (0) REPLY WILL CAUSE THE NEXT QUESTION 


cee WORDS OF DATA 
ENTER THE NUMBER OF WORDS OF DATA(DECIMAL NUMBER) 


DO YOU WANT TO WRITE THE DATA JUST READ? 

READ COMMAND WAS FOLLOWED BY A WRITE COMMAND IS THE DATA FROM THE READ COMMAND 
O BE USED FOR THE WRITE COMMAND 

NO (0) OR A YES (1) IS EXPECTED 


eynee 
NOW ENTER THE DATA TO BE WRITTEN 
IF OPTION 08 IS SELECTED AND OPTION O07 WAS NOT THEN THE STATEMENT WILL BE 
LOOP NOT STARTED,START OVER 
IF OPTION O7 AND 08 WAS SELECTED THE MESSAGE WILL BE 
LOOP STARTED AT 3268 
LOOP ENDED AT 3288 


IF OPTION 12 IS SELECTED A 2016 BYTE RECORD WILL BE WRITTEN. 


2 A a ee a ae 2 a 2 ae ae ae ae ae ae aK CAUTION (2 26% ae ae ie oe afc a 2 fe ae akc 2k i aie at fc of 
THIS IS A STAND ALONE OPTION NO OTHER OPTION WILL BE SUPPORTED. 


IF OPTION 13 IS SELECTED THE 2016 BYTE RECORD WRITTEN BY OPTION 
AND DATA COMPARED. IF THE DATA DOES NOT COMPARE THE MESSAGE 
COMPARE ERROR! (SEE HALT CODE 58ED SECTION 02.02.00 THIS MAP). 


2 Be ote ake eo ak ae ake ak a eka a CAUTION 2% 92K 4 2K fe 2 2 a 2 oe ofc ak ok ak a ok 
THIS IS A STAND ALONE OPTION NO OTHER OPTION WILL BE SUPPORTED. 


WHEN THE MESSAGE(S) HAS BEEN ANSWERED CONTROL WILL BE RETURNED TO THE FRIEND 
SUPERVISOR 


dla 


ty 
=z 


ILL BE READ 


2W 
ILL BE ‘DATA 


1 
W 
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01.00.00 INTRODUCTION. 


THE PURPOSE OF THIS MAP IS TO DESCRIBE TO THE USER HOW TO SETUP AND USE THE ERROR 
DOCH RMAT AN PRINT PROGRAM. EACH RECORD FORMAT ASSEMBLED BY THE REAL TIME 


OGRAMMING SYSTEM AND EACH OUTPUT FROM THE ERROR RETRIEVAL AND PRINT PROGRAM 
WILL BE DESCRIBED. 
THE PURPOSE OF THIS PROGRAM IS TO PRESENT THE DATA ASSOCIATED WITH AN ERROR USING 
A READABLE OUTPUT FOR USE BY THE CUSTOMER OR CE. 


THE FOLLOWING RECORD TYPES ARE FORMATTED BY ERROR RETRIEVAL AN PRINT PROGRAM. 
CONTROL RECORD 
PROCESSING UNIT RECORDS 
MACHINE CHECK 
PROGRAM CHECK 
SOFT EXCEPTION CHECK 
DEVICE RECORDS 
DEVICE NOT RECOVERED 
DEVICE RECOVERED 
DEVICE SOFT ERROR 
DEVICE HARD ERROR 
DEVICE TIME-OUT 
NOT EXPECTED INTERRUPT RECORDS 
SYSTEM TERMINATION RECORDS 
USER RECORDS 
OTHER SYSTEM RECORDS 
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02.00.00 ERROR RETRIEVAL AN PRINT PROGRAM LOADING AND RUNNING 


SEE MAP 0015 SECTION 02.00.00 TO IPL THE SYSTEM TEST DISKETTE AND COME TO 'RDY 
ENTER* (MESSAGE CODE 3400). 


THE FOLLOWING ECP COMMAND(S) IS/ARE ACTIVE WHILE THE ERROR RETRIEVAL AN’ PRINT 
PROGRAM IS IN STORAGE. 


0 A NO RESPONSE TO A QUESTION 

YES RESPONSE TO A QUESTION 
TINUE RUNNING AT THE NEXT SEQUENTIAL INSTRUCTION 
P PROGRAM 


W ENTER, BY THE ALTERNATE CONSOLE, ‘B34E0". THIS WILL LOAD THE ERROR RETRIEVAL 
PRINT’ PROGRAM AND START A SERIES OF MESSAGES TO SETUP THE PROGRAM TO PROCESS 
E ERROR RECORDS FROM THE REAL TIME PROGRAMMING SYSTEM "SYSTEM ERROR LOG* DATA 


Es {ASSUME A DISPLAY IS THE ORIGINAL CONSOLE) 
THE RDY ENTER IS A RESULT OF THE IPL 


ENDING WITH A QUESTION MARK FOR EXAMPLE "IS ONE AVAILABLE?! MUST BE 
A YES OR NO. SEE MAP 0015 SECTION 03.00.00. 


SAGE "IS ONE AVAILABLE?! IS NECESSARY TO DETERMINE IF A PRINTER OR TTY IS 


L 

R 

0 

0 

oe CONSOLE IS PREFERRED - IS ONE AVAILABLE? 

M 

R 

E 

A FOR PRINTING THE ERROR RETRIEVAL AN PRINT PROGRAM OUTPUT. PRINTER IS 


OM tik 
c oMn 
ta 
=} 
- 
a 
pan} 


IF ONE IS AVAILABLE THEN ANSWER YES AND SUPPLY THE DEVICE ADDRESS. 


EXAMPLE: 
1 THIS IS A YES (1)-RESPONSE. 
ENTER PRINTER CONSOLE ADDRESS 


ENTER 
F014 
THIS DEVICE ADDRESS MUST BE THE ADDRESS OF ONE OF THE ECP CONSOLE SUPPORTED 
Ade OR TTY. THE ERROK RETRIEVAL AN PRINT PROGRAM WILL VERIFY THE DEVICE 
ADDRESS BEFORE CONTINUING. 
IF A PRINTER CONSOLE IS NOT AVAILABLE ANSWER NO AND ERROR RETRIEVAL AN _ PRINT 
PROGRAM USE THE DISPLAY TO OUTPUT THE ERROR DATA. USING SCREEN CONTROL WILL 
PREVENT THE LOSS OF DATA. 
EXAMPLE: 
0 THIS IS A NO (0) RESPONSE. 
ENTER SYSTEM DISK ADDRESS 
ENTER 
FOQ3 
ERROR RETRIEVAL AWN PRINT PROGRAM WILL USE THE DEVICE ADDRESS FOR THE DISK WHICH 
HAS THE SYSTEM ERROR LOG DATA SET. REAL TIME PROGRAMMING SYSTEM DISK FORMAT I5 
THE ONLY ACCEPTABLE SYSTEM FORMAT. 
CONTINUED ON NEXT PAGE. 
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EACH QUESTION CONCERNING RECORD FORMATTING AND THE INITIALIZATION OF THE 
ERROR LOG DATA SET. 


te 


Es 
D ALL RECORDS BE PRINTED? 


THIS IS A YES ae) RESPONSE. 
D SYSTEM ERROR LOG BE INITIALIZED? 


THIS IS YES i" ) RESPONSE. 
E VOLUME LABEL CONTAININ YSTEM ERROR LOG *SYSERLOG!? 


THIS IS (0 RESPONSE. 
EIGHT CHARACTER VOLUME BEL CONTAINING ERROR LOG 


2m S20uYF NWN 
HO HOR We 


SVL 
EIGHT CHARACTER SYSTEM ERROR LOG LABEL 


tite tott com fott pttt mw 
ty 


Onn ws Wa wary tt 
= 8) 
© 
QQ 


PW NAaBZNASa VN 
KHMK<eta tf 


Wnt 
wo 


R RETRIEVAL AN PRINT PROGRAM eee USE THE EIGHT CHARACTER LABELS RECEIVED TO 
CH WITH TO LOCATE THE TWO DATA TS. 


CONSOLE BEING CHANGED FOR FORMATTING 
ie afc fe 2c ak ake ae ak ake kc afc afc 2k ak af ac a ake afc afc ak ae fc akc a 2 ac ak ake 2 fc afc 2c 2c afc ac ake 3c ic 2c 2 fe 2 2 ate aie ake akc ate af atk afc ae oe fe fc ak oe ok ok 2c 2k 
* 


* 

* AT THIS POINT THE RECORD DATA WILL BE PRINTED. * 

. SEE THIS MAP SECTION 05.00.00 : 

FIO IOI III I II IOI ak 2k ak a ake ok 2k 2 a a iC i ke 2 2 2k 2k oe ae 2 2 ae ie a ake 2 fe i af a a i 2 ke 2c ie ak 

PT ( 

ENTER 
THIS IS [THE END OF AN ERROR RETRIEVAL AN PRINT PROGRAM RUN. SEE SECTION 03.00.00 
SAMPLE SESSION FOR ANY OPTION THE USER MAY SELECT. 
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02.01.00 ERROR RETRIEVAL AN PRINT PROGRAM OPERATIONAL MESSAGES AND CODES 


3450 


34E1 


34E2 


34E3 


34E4 


34E5 


34E6 


34E7 


34E8 


34E8 


34E8 


34E9 


* 
3401 


3407 


3408 


PRINTER CONSOLE PREFERRED - IS ONE AVAILABLE? 
IS THERE A PRINTER OR TTY ON THE SYSTEM. 


ENTER PRINTER CONSOLE ADDRESS 
te lea DEVICE ADDRESS OF THE PRINTER OR TITY TO BE USED FOR THE PRINTED 


ENTER THE SYSTEM DISK ADDRESS 
ENTER THE DEVICE ADDRESS OF THE DISK THAT HAS THE REAL TIME PROGRANHING 
SYSTEM AND THE SYSTEM ERROR LOG DATA SET. 


SHOULD SYSTEM ERROR LOG BE INITIALIZED? 
AFTER FORMATTING ALL OF THE RECORDS FOUND ON SYSTEM ERROR LOG DATA SET 
SHOULD THE CONTROL RECORD BE INITIALIZED TO INDICATE THE DATA SET IS EMPTY. 


SHOULD ALL RECORDS BE PRINTED? 
ARE ALL RECORDS TO BE PRINTED OR DO YOU WANT TO PRINT ONLY SELECTED RECORDS 
FROM THE SYSTEM ERROR LOG DATA SET. 


ENTER RECORD TYPES DESIRED 
ENTER FROM THE MENU THE RECORD TYPES TO BE PRINTED (MAXIMUH OF 7 
PERMITTED). 


SHOULD ALL DEVICE RECORDS BE PRINTED? 
SHOULD ALL OF THE DEVICE RECORDS BE PRINTED OR DO YOU WANT TO PRINT ONLY 
THE RECORDS FOR SELECTED DEVICE ADDRESSES. 


ENTER DEVICE ADDRESSES DESIRED 
ENTER THE DEVICE ADDRESSES FOR THE DEVICE RECORDS TO BE PRINTED (MAXIMUM OF 
10 PERMITTED) .« 


IS THE VOLUME foe 4 CONTAINING SYSTEM ERROR LOG *SYSERLOG*? 
AFTER RELEASE 1.1 OF THE REAL TIME PROGRAMMING SYSTEM THIS. QUESTION SH 
WO ives) . BEFORE THIS RELEASE THIS QUESTION SHOULD BE ANSW 


OULD 
ERED 


ENTER EIGHT CHARACTER VOLUME LABEL CONTAINING ERROR LOG 
ENTER THE LABEL THAT HAS BEEN ASSIGNED TO THE SYSTEM VOLUME WHICH CONTAINS 
THE SYSTEM ERROR LOG DATA SET (EIGHT CHARACTERS). 
a LOG LABEL 


ENTER EIGHT CHARACTER SYSTEM 
ENIER THE LABEL THAT HAS BE 
(EIGHT CHARACTERS) . 


N ASSIGNED TO THE SYSTEM ERROR LOG DATA SET 


THIS IS THE MESSAGE CODE USED WITH EACH LINE OF PRINTED OUTPUT THAT 
REPRESENTS RECORD DATA. 


THREE ECP MESSAGE CODES ARE USED WHEN THE CONSOLE IS CHANGED ** 


THIS CODE IS USED TO INDICATE THAT THE DISPLAY CONSOLE FAILED TO RESPOND 
CORRECTLY WHEN BEING RETURNED ONLINE. THE PROGRAMMER CONSOLE HAS BEEN 
ASSIGNED. 

CONSOLE BEING CHANGED FOR FORMATTING 
ae epeCTEtEGs HAS BEEN REMOVED AND WAS EXCHANGED WITH THE PRINTER OR 


CONSOLE RETURNED 
THE DISPLAY CONSOLE HAS BEEN RETURNED AND CAN AGAIN BE USED FOR ECP INPUT. 
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02.02.00 ERROR RETRIEVAL AN PRINT PROGRAM ERROR MESSAGES AND CODES 


S4EA 


34EB 


34EC 


34ED 


34EE 


34EF 


PRINTER CONSOLE NOT USABLE 
THE PRINTER CONSOLE SPECIFIED DOES NOT RESPOND TO NORMAL OPERATION OR 
FOORCHA Teo COULD NOT BE READ INTO STORAGE. THE PROGRAM WILL 


DATA SET ****kx***x NOT FOUND ON DISK 


THE 
BE 


THE '**exexee FTELD IN THIS MESSAGE WILL BE THE NAME OF A DATA SET WHICH 
SHOULD BE ON THE REAL TIME PROGRAMMING SYSTEM DISK. ERROR RETRIEVAL AN 
PRINT PROGRAM COULD NOT FIND THAT DATA SET AND THE PROGRAM WILL BE 


TERMINATED. 


DISK DOES NOT RESPOND TO INITIALIZE COMMANDS 
ONE OF THE FOLLOWING ERRORS OCCURRED DURING THE PREPARATORY SETUP OF THE 


REAL TIME PROGRAMMING SYSTEM DISK. 
- BAD OIO CONDITION CODE FROM PREPARE COMMAND. 
- BAD OIO CONDITION CODE FROM READ DEVICE ID COMMAND. 
Sie noe a ree FROM THE REAL TIME PROGRAMMING SYSTEM DEVICE INDICATED 
- BAD OILO CONDITION CODE FROM RECALIBRATE COMMAND. 
- BAD OIO CONDITION CODE FROM READ CYCLE STEAL STATUS COMMAND. 
-' BAD INTERRUPT CONDITION CODE FROM RECALIBRATE OPERATION. 
- BAD INTERRUPT CONDITION CODE FROM READ CYCLE STEAL STATUS OPERATION. 

DISK ERROR WHILE SEARCHING FOR DATA SET *¥*****%*x 
THE * ****¥Xeeet #FTELD IN THIS MESSAGE WILL BE THE NAME OF A DATA SET WHICH 
SHOULD BE ON THE REAL TIME PROGRAMMING SYSTEM DISK. ERROR RETRIEVAL AN 
PRINT PROGRAM RECEIVED AN ERROR RESPONSE FROM THE DISK WHILE SEARCHING FOR 
THE DATA SET AND THE PROGRAM WILL BE TERMINATED. 

DISK ERROR READING SYSTEM ERROR LOG 
ERROR RETRIEVAL AN PRINT PROGRAM RECEIVED AN ERROR RESPONSE FROM THE DISK 
WHILE READING RECORDS FROM THE SYSTEM ERROR LOG DATA SET. 

DISK ERROR WRITING SYSTEM ERROR LOG 
ERROR RETRIEVAL AN PRINT PROGRAM RECEIVED AN ERROR RESPONSE FROM THE DISK 
WHILE WRITING THE CONTROL RECORD IN THE SYSTEM ERROR LOG DATA SET. 
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03.00.00 ERROR RETRIEVAL AN PRINT PROGRAM SAMPLE SESSION 


### WILL INDICATE EACH ENTRY TO BE MADE BY THE OPERATOR 


03.01.00 SAMPLE SESSION #1 
ay ee SESSION TO PRINT ALL RECORDS ON A DISPLAY AND NOT INITIALIZE SYSTEM ERROR 


ot 


; THE SYSTEM TEST DISKETTE PER SECTION 02.00.00 MAP 0015 WITH SCREEN CONTROL 


R 

0 ## # 

0 LOADED 

oe CONSOLE IS PREFERRED - IS ONE AVAILABLE? 
tt # 

5 SYSTEM DISK ADDRESS 


tt # # 
LD ALL RECORDS BE PRINTED? 


HO FOWAH BH FEHKk 


tt # 
D SYSTEM ERROR LOG BE INITIALIZED? 


L 

R 

# t # 

a VOLUME LABEL CONTAINING SYSTEM ERROR LOG *SYSERLOG!*? 
t# # 

EIGHT CHARACTER VOLUME LABEL CONTAINING ERROR LOG 


Hit MOMHORMN at SiymMOomuUnNaWriwmW Ard 
ONa22 2nN 2M SB2M0O2Z42 SDRAWWwao 


RESVL ¢# # 
puneD EIGHT CHARACTER SYSTEM ERROR LOG LABEL 
FSYSERLOG tt 


He He RC 3 KC ie 3K ic ae ic 2c kk fe aK 2 2c ai aie 2 akc cafe oc 2c 2c 2 a oc cafe fe ak 2k ok ofc eae 2 a a af ac 2c ok afc ac ofc 2c 2c 2c 3K ae ak 2k 2 ofc ac ic 9K a 9k a 
* x 


* AT THIS POINT THE RECORD DATA WILL BE DISPLAYED. * 
: SEE THIS MAP SECTION 05.00.00 * 


* 
StF SS ELS SSS SS SPS SES SSS SSS SSL SSL SSS SSS SSS SSL SS SS SSS SSS SSS SSS SS 


PT 
ENTER 
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03.02.00 SAMPLE SESSION #2 


MAP 0018-8 


SAMPLE SESSION USING A DISPLAY CONSOLE AND CHANGE TO A PRINTER TO PRINT ALL 


RECORDS AND INITIALIZE SYSTEM ERROR LOG. 


IPL THE SYSTEM TEST DISKETTE PER SECTION 02.00.00 MAP 0015 WITH SCREEN CONTROL 


ON. 


B34E0 + ¢ # 
TER CONSOLE IS PREFERRED ~- IS ONE AVAILABLE? 
tt # 
PRINTER CONSOLE ADDRESS 
+ # # 
SYSTEM DISK ADDRESS 
+ # # 
D ALL RECORDS BE PRINTED? 
+  # 
D SYSTEM ERROR LOG BE INITIALIZED? 
+ + # 
E VOLUME LABEL CONTAINING SYSTEM ERROR LOG *SYSERLOG!*? 
i + # 
EIGHT CHARACTER VOLUME LABEL CONTAINING ERROR LOG 


SVL tH # 
EIGHT CHARACTER SYSTEM ERROR LOG LABEL 


tx 


tat 
© 


G + # # 
BEING CHANGED FOR FORMATTING 
FE ROK kr CK kei ak a ak ke a kkk ae 9 fc kek 2k 2 kk ak ake ke ic ak ak ok a i i fk ake at ac ai a ac ak ae ak ak a 


THIS POINT THE RECORD DATA WILL BE PRINTED ON THE 
VICE WITH AN ADDRESS OF 01. 
SEE THIS MAP SECTION 05.00.00 


He HE HEC 2 24 2 eee ke Ke 2 ae 2c he ee ae ae IE 2c ie afc ac ak a ae a 2h ie a ie af ak akc 2c ik i afc 2c aye af af a ak fe afc afc afc a afc 2c ak a ok akc af 2k 


3 oe SE a aaa Mmm wrt tom wi wh 


HREENKN* 


aaa RETURNED 
ENTER 
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03.03.00 SAMPLE SESSION #3 03.04.00 SAMPLE SESSION #4 
SAMPLE SESSION USING A TTY CONSOLE AND SELECTING TO PRINT ONLY MACHINE CHECK AND SAMPLE SESSION USING A DISPLAY CONSOLE AND CHANGE TO A PRINTER TO PRINT ONLY 
SOFT EXCEPTION CHECK RECORDS. DEVICE RECORDS FOR DEVICE ADDRESSES 00, 01, AND O4 
ton THE SYSTEM TEST DISKETTE PER SECTION 02.00.00 MAP 0015 WITH SCREEN CONTROL ane THE SYSTEM TEST DISKETTE PER SECTION 02.00.00 MAP 0015 WITH SCREEN CONTROL 
RDY RDY 
ENTER ENTER 
B34E0 +# # B34E0 # + # 
ooeee LOADED uae? LOADED 
S 
ENTER SYSTEM DISK ADDRESS PRINTER CONSOLE IS PREFERRED - IS ONE AVAILABLE? 
ENTER ENTER 
FQ3 # # 1 tt # 
SHOULD ALL RECORDS BE PRINTED? ENTER PRINTER CONSOLE ADDRESS 
ENTER ENTER 
0 + # F01 t # # 
ENTER RECORD TYPES DESIRED ENTER SYSTEM DISK ADDRESS 
01 - MACHINE CHECK ENTER 
02 - PROGRAM CHECK FQ3 + # # 
03 - SOFT EXCEPTION CHECK SHOULD ALL RECORDS BE PRINTED? 
04 - DEVICE ENTER 
05 ~+~ NOT EXPECTED INTERRUPT 0 + + # 
06 - SYSTEM TERMINATION ENTER RECORD TYPES DESIRED 
O07 - USER/OTHER SYSTEM O01 - MACHINE CHECK 
ENTER 02 - PROGRAM CHECK 
FO 103 tt # 03 - SOFT EXCEPTION CHECK 
IS THE VOLUME LABEL CONTAINING SYSTEM ERKOR LOG *SYSERLOG!*? O4 - DEVICE 
ENTER 05 - NOT EXPECTED INTERRUPT 
0 # # # 06 - SYSTEM TERMINATION 
ENTER EIGHT CHARACTER VOLUME LABEL CONTAINING ERROR LOG 07 - USER/OTHER SYSTEM 
ENTER ENTER 
FSYSRESVL #  # FOQ4 # # # 
ENTER EIGHT CHARACTER SYSTEH ERROR LOG LABEL SHOULD ALL DEVICE RECORDS BE PRINTED? 
ENTER ENTER | 
FSYSERLOG # # 0 it + # 
ENTER DEVICE ADDRESSES DESIRED 
III IOI ICC a ke ak ak a ak 28 2k akc a a akc ake 2k ke aR a 2k CR Ri a a ak a RC a ak a ak a ke a ae a a ak ae ENTER 
* x FQ000104 + # 
* AT THIS POINI THE RECORD DATA WILL BE PRINTED ON THE TTY. * IS THE VOLUME LABEL CONTAINING SYSTEM ERROR LOG 'SYSERLOG!*? 
i SEE THIS MAP SECTION 05.00.00 . Aeon vr 
FOR IORI CIRO I 1 a ak a Cat ak ke 2k ak ak 3 2k 3k a 2 ae af ak ak a ak a2 ea ac a ak a af a ae a a a a a akc a ak a a ak ak a ae a fe ENTER EIGHT CHARACTER VOLUME LABEL CONTAINING ERROR LOG 
ENTER 
PT FSYSRESVL tt 
ENTER Pucee ELGHT CHARACTER SYSTEM ERROR LOG LABEL 
FSYSERLOG 


+ + # 
CONSOLE BEING CHANGED FOR FORMATTING 


COSTAE CR ESEAL AT RRR ELSES TLE S AAAS TESTE AEST EY TAT Eee Reese 
* AT THIS POINT THE RECORD DATA WILL BE PRINTED ON THE 


* DEVICE WITH AN ADDRESS OF 01. 
: SEE THIS MAP SECTION 05.00.00 


ME 2 a eo aie aK ae he fe 3c fe ea 2 He 2 3c hc oe ae 2 2k ate ae he oe fe ae ae ae ak ah af 2c aie af afc af afc afc fc 2c kc ae oc 2c ae afc afc afc ak ae ofc ake af afc aie ic af of 
oe RETURNED 
ENTER 


Mee RH 
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04.00.00 FORMAT OF SYSTEM ERROR LOG RECORDS 
THIS SECIION WILL DESCRIBE THE FORMAT OF THE VARIOUS RECORDS TO BE FOUND ON THE 
SYSTEM ERROP LOG DATA SET. 
04.01.00 CONTROL RECORD 
FLAG FIELD 
BIT 10 - CONTROL RECORD 


BYTE 1 | BYTE 2 {| BYTE 3 | BYTE 4 | BYTE 5 {| BYTE 6 | BYTE 7 | BYTE 8 
i ADDRESS 
RECORD peer ACTIVE TCB KEY REGISTER 
LENGTH NUMBER FLAG FIELD ADDRESS (AKR) 
TIME OF DAY DATE | ACTIVE NOT 
(YYDDD) | LEVEL USED 








OLD RECORD ADDRESS 
RELATIVE RECORD # OLDEST RECORD 


NEXT RECORD ADDRESS 
RELATIVE RECORD # NEXT RECORD SPACE 





CURRENT RECORD ADDRESS 
RELATIVE RECORD # LAST RECORD READ | 


| 
| 
| (HHMMSS) 


04.02.00 PROCESSING UNIT CHECK RECORDS 








a FIELD 
BIT 0 ~ MACHINE CHECK RECORD 
BIT 1 - PROGRAM CHECK RECORD 
BIT 2 - SOFT EXCEPTION CHECK RECORD 
SN MR RE Ra te ee ke ee ee ee ee owe ee eee wwe ewe www www oe ~ewwwrewom em oem 
BYTE 1 | BYTE 2 | "BYTE 3 { BYTE q | BYTE 5 | BYTE 6 { BYTE 7 | BYTE 8. 
ADDRESS 
RECORD | PARTITION ACTIVE TCB KEY REGISTER 
LENGTH NUMBER FLAG FIELD ADDRESS | (AKR) 
TIME OF DA ACTIVE | NOT 
| (HHMMSS) | (YYDDD) LEVEL USED 
{ INSTRUCTION ADDRESS LEVEL 
| ADDRESS REGISTER | KEY REGISTER STATUS REGISTER 
FAILING ADDRESS | (TAR) (AKR) (LSR) 
{ 
REGISTER 0 REGISTER 1 REGISTER 2 | REGISTER 3 
(RO) (R 1) (R2) (R3) 
a@weoeoee@2eeeo @ @ Ee eae ee eawweww ee & eanawowea wee @ FO wee wwwrewwweseeowwese owe @e eee ee @ @ @ @ @ BWnDWweseeeae @ @ > 
{ { { { 
REGISTER 4 REGISTER 5 { REGISTER 6 { REGISTER 7 
(R4) | (R6 | (R7) 
| wee Rew e wmme wows @ eee woe Se see we wwewow ee ee eeewwoew owe aw ewe ew ee ow ww oe @ wow ewe e em oe weoeweww 
| TERMINATION | | | ADDRESS 
END CODE PROGRAM STATUS WORD KEY 
(CC) | (PSW) (ABK) 
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04.03.00 DEVICE RECORDS 
04.03.01 DEVICE ERROR/TIME-OUT RECORD 




















FLAG FIELD 
BIT 3 ~- DEVICE RECORD 
BIT 5 - DEVICE TIME-OUT RECORD 
BIT 9 - NOT RECOVERED ERROR FLAG 
BIT 12 - NOT COMPLETE RECORD (BITS 3 OR 5 ON) 
BYTE 1 | BYTE 2 | “BYTE 3 { BYTE 4 | BYTE 5 ( BYTE 6 | BYTE 7 | BYTE 8 
| | ADDRESS 
RECORD {PARTITION ACTIVE TCB KEY REGISTER 
| LENGTH | NUMBER FLAG FIELD ADDRESS (AKR) 
TIME OF DAY DATE | ACTIVE | NOT 
(HHMMSS) (YYDDD) | LEVEL | USED | 
| _en ap ae a= @ @ 2 a= o> & GP =D PD 2b Dee DBO OF Be we ® @ @ @ @® ww @ @ ® ww = a a ap oe oe ow oe aw ee 2 = = a qe «aD «oe ow aw 2 ee ee aw aw oe @ @ S&P ow SP a oe DP aw OD —> a 4 ap a» 
| IMMEDIATE DEVICE CONTROL BLOCK DEVICE RETRY 
| DEVICE READ ID (IDCB) ADDRESS COUNT 
[ { 
O10 INTERRUPT| INTERRUPT DEVICE STATUS | 
CONDITION|CONDITION] STATUS (6 BYTES) 
CODE CODE BYTE | 
DCB 
| COUNT CYCLE STEAL STATUS WORDS 
rN RECORD (CSSW) (10 BYTES) 
DEVICE CONTROL BLOCK S) 5 
(DCB) (UP TO FIVE) YTES® EACH) 


04.03.02 DEVICE SOFT ERROR RECORD 


FLAG FIELD 
BIT 12 - SOFT ERROR RECORD - DISK/DISKETTE 


Owe wwe ee we We @ wwe © OO @ © @ & @ @ 08 we OO @ @ @ @ OO ® @ 8 @ OO @ OO @ @  @® OF @® 8 @ @ @ @® Ow @® @ @ OO 4 8 we 8 8 ee wo 7 <a cee aw GD «® <a 








| RESIDUAL STATUS eLoce i 3 
(RSB) (UP TO THREE) YTES ° BACH) 


| BYTE 1 | BYTE 2 | BYTE 3 | BYTE 4 | _BYTE 5 | BYTE 6 | BYTE 7 {| BYTE 8 | 
{ ( | { ( ADDRESS 
RECORD PARTITION | ACTIVE TCB { KEY REGISTER | 
LENGTH NUMBER FLAG FIELD ADDRESS | (AKR) 
| IME OF OD | DATE ACTIVE NOT 
| (HHMMSS) (YYDDD) LEVEL USED 
( 
IMMEDIATE DEVICE CONTROL BLOCK DEVICE RETRY 
DEVICE READ ID (IDCB) ADDRESS COUNT 
= DCB 
INTERRUPT INTERRUPT COUNT | 
| CONDITION| CONDITION | STATUS IN RECORD { 
| CODE | CODE | BYTE | | 
DEVICE CONTROL By tte! 
(DCB) (UP TO THREE) é) ayTES EACH) 
| eer eewe ee we wees ew eww we we we Owe ew we ww ww ww oe wwe eww eee wee Swewoewo we wewweo ee eee eS 
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04.03.03 DEVICE HARD ERROR RECORD 
































FLAG FIELD 
BIT 13 - HARD ERROR RECORD - DISK/DISKETTE 
| BYTE 1 | BYTE 2 {| BYTE 3 | BYTE 4 | “BYTE 5 | BYTE 6 | “BYTE 7 | BYTE 8 
| ADDRESS _ 
CORD PARTITION ACTIVE TCB KEY REGISTER 
LENGTH NUMBER FLAG FIELD ADDRESS (AKR) 
| 
TIME OF DAY ATE ACTIVE NOT 
(HHMMSS) (YYDDD) LEVEL USED 
IMMEDIATE DEVICE CONTROL BLOCK DEVICE RETRY 
DEVICE READ ID (IDCB) ADDRESS COUNT 
{ DCB 
| O10 INTERRUPT | INTER s | COUNT 
CONDITION{CONDITION{ STAT IN RECORD | 
| CODE CODE { BYT { , 
DEVICE CONTROL EE eat | 
(DCB) (UP TO THREE) 16 BYTES EACH) 
nawenewoeweewe @ SW eP OC Dew We Dew eowweroanwoawe=a Pw ew we ee eww wwe Ww Ow ewww wee Bee eee 7 @ SO ow HOw eow@ 
RESIDUAL STATUS Bee het 2 
(RSB) (UP TO TWO) 12 B TES PACH) | 
| CYCLE STEAL STATUS WORDS 
(CSSW) (UP TO 13 WORDS) 
04.03.04 COMMUNICATIONS STATISTICS LOG RECORD 
FLAG FIELD 
BIT 11 = COMMUNICATIONS STATISTICS LOG RECORD 
| BYTE 1 | BYTE 2 | BYTE 3 {| BYTE 4 | BYTE a {| BYTE 6 | BYTE 7 | BYTE 8 | 
COUNT OF 
RECORD PARTITION LINE DEVICE CORRECT TEXT 
LENGTH NUMBER FLAG FIELD TYPE ADDRESS BLOCKS RECEIVED 
OR TRANSMITTED 
NT OF | COUNT OF | 
COUNT OF NOT VALID RESPONSES DATA COUNT OF | 
NAKS RECEIVED RECEIVED OVERRUNS TIHE-OUT 
COUNT OF i COUNT OF COUNT OF COUNT OF 
BLOCK CHECK MODEM CC/ISB VRC 
CHARACTER (BCC) ERRORS ERRORS ERRORS 
ERRORS 
PDP OO OO 2 OO OO BBE @ OB BDO BOD BW DBD W@W FO DP BP 8 OW O8 OO OO OS OC OOOO OO C8 OOO TW ODDO ODO DDO ODDO @ @B@@ww 28 @weea eo @ 
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04.04.00 NOT EXPECTED INTERRUPT RECORDS 














FLAG FIELD 
BIT 4 + NOT EXPECTED INTERRUPT RECORD 
BYTE 1 | BYTE 2 {| BYTE 3 | BYTE 4 {| BYTE 5 | BYTE 6 | BYTE 7 {| BYTE 8 
ADDRESS 
RECORD PARTITION ACTIVE TCB KEY REGISTER 
LENGTH NUMBER FLAG FIELD ADDRESS (AKR) 
IME ae DAY DATE AO eee NOT 
(HHMMSS) (YYDDD) EVEL USED 
wee 2 wee wm waew eo eww @ Pee weawoe wwe PO 8 OO OO OO OO OO 8 8 8 2 8 @ @ 2 OO OO @ OS OO BOO OOOO OHO QDD DODD OWT OeS 
INTERRUPT ID 
WORD 
04.05.00 SYSTEM TERMINATION RECORDS 
FLAG FIELD 
BIT 6 ~- SYSTEM TERMINATION RECORD 
BYTE 1 | BYTE 2 | _BYTE 3 { BYTE 4 | BYTE 5 | BYTE 6 | “BYTE a | BYTE 8 
ADDRESS 
RECORD PARTITION ACTIVE TCB KEY REGISTER 
LENGTH NUMBER FLAG FIELD ADDRESS (AKR) 
TIME OF DAY DATE | ACTIVE NOT 
(HHMMSS) (YYDDD) | LEVEL USED 
| TERMINATION 
| END CODE 
ce : 
04.06.00 USER/OTHER SYSTEM RECORDS 
FLAG FIELD 
BIT 7 - USER RECORD 
BIT 8 ~ OTHER SYSTEH RECORD 
BYTE 1 | BYTE 2 {| BYTE 3 | BYTE qG | BYTE 5 {| BYTE 6 | BYTE 7 { BYTE 8 
222 ewe oe ee ee © eee Oe We COM OO we we OO 8 Oe OO 8 OOO Ow tw ww ww Ow Oe ww OW we Oe eww wo we wweowo 
{ | 
RECORD PARTITION 
LENGTH NUMBER FLAG FIELD 
USER/OTHER SYSTEM DATA 
(124 BYTES MAXIMUM) 
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05.00.00 ERROR RETRIEVAL AN PRINT PROGRAM SAMPLE OUTPUT 


THIS SECTION WILL DESCRIBE THE PRINTED OUTPUT OF THE VARIOUS RECORDS PRINTED BY 
THE ERROR RETRIEVAL AN PRINT PROGRAM 


05.02.00 PROCESSING UNIT PROGRAM CHECK 
** PROCESSING UNIT PROGRAM CHECK LOG SUMMARY ** 


DATE/ LVL/ RO/ R1/ R2/ R3/ LSR/ PSH TCB/ AAK/ PART 
THE DATA USED IN THES SAMPLE IS NOT REAL ERROR DATA AND IS USED TO SHOW FORMAT TIME TAR R4& RS’ R6 RT’ AKR CC FADR 
77 182 02. 0000 1111 2222 3333 0000 0000 0000 00_ 00 
13.45.01 0000 4444 5555 6666 7777 0000 0000 0000 
77 190 -- +--- 
05.01.00 PROCESSING UNIT MACHINE CHECK 23.10.20 ---- ---- ---- 
** PROCESSING UNIT MACHINE CHECK LOG SUMMARY ** 
DATE/ LVL/ RO/ R1/ R2/ R3/ LSR/ PSW TCB/ AAK/ PART MEANING OF LABEL USED 
TIME TAR R4& R5 R6- RT? AKR CC FADR 
DATE - YEAR DAY {(YYDDD) 
77 182 02. 0000 1111 2222 3333 0000 0000 0000 00_ 00 TIME - HOUR MINUTE. SECOND  (HHMMSS) 
13.45.01 0000 4444 5555 6666 7777 0000 0000 0000 LVL - INTERRUPT LEVEL USE 
IAR - INSTRUCTION ADDRESS REGISTER 
77 190 --  <--- RO - REGISTER ZERO | 
23.10.20 ---- ---- ---- R1  - REGISTER ONE 
R2  - REGISTER TWO 
R3  ~- REGISTER THREE 
| R4 $- REGISTER FOUR 
MEANING OF LABEL USED R5  - REGISTER FIVE 
R6 ~~ REGISTER SIX 
DATE - YEAR DAY (YYDDD) R7  - REGISTER SEVEN 
TIME ~ HOUR MINUTE.SECOND  (HHMMSS) LSR - LEVEL STATUS REGISTER 
LVL - INTERRUPT LEVEL USE AKR - ADDRESS KEY REGISTER 
TAR - INSTRUCTION ADDRESS REGISTER PSH - PROGRAM STATUS WORD 
RO + REGISTER ZERO TCB - TASK CONTROL BLOCK 
R1  - REGISTER ONE CC - SYSTEM TERMINATION END CODE 
R2 - REGISTER TWO AAK - ACTIVE ADDRESS KEY 
R3  - REGISTER THREE FADR - FAILING ADDRESS 
R4  - REGISTER FOUR PART - SYSTEM PARTITION NUMBER 
R5  - REGISTER FIVE 
R6  - REGISTER SIX 
R7 = REGISTER SEVEN 
LSR - LEVEL STATUS REGISTER 
AKR - ADDRESS KEY REGISTER 
PSW - PROGRAM STATUS WORD 
TCB - TASK CONTROL BLOCK 
CC - SYSTEM TERMINATION END CODE 
AAK - ACTIVE ADDRESS KEY 
FADR - FAILING ADDRES 
PART - SYSTEM PARTITION NUMBER 
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05.03.00 PROCESSING UNIT SOFT EXCEPTION CHECK 
** PROCESSING UNIT SOFT EXCEPTION CHECK LOG SUMMARY ** 


MEANING OF LABEL USED 
DATE - YEAR DAY (YYDDD 


TIME - HOUR. MINUTE.SECOND (HHMMSS) 
LVL - INTERRUPT LEVEL USE 

TAR - INSTRUCTION ADDRESS REGISTER 
RO - REGISTER ZERO 

R1 - REGISTER ONE 

R2 - REGISTER TWO 

R3 ~ REGISTER THREE 

R4 - REGISTER FOUR 

R5 - REGISTER FIVE 

R6 ~ REGISTER 

R7 - REGISTER SEVEN 

LSR - LEVEL STATUS REGISTER 

AKR =~ ADDRESS KEY REGISTER 

PSW <- PROGRAM STATUS WORD 

TCB = TASK CONTROL BLOCK 

CC ~ SYSTEM TERMINATION END CODE 
AAK = ACTIVE ADDRESS KEY 

FADR - FAILING ADDRESS 

PART - SYSTEM PARTITION NUMBER 


K/ PART 


DATE LVL/ RO R1 R2 R3 LSR/ PSW TCB/ AA 
tHE’ TAR’ Ry Ra’ Re’ Ra/ ARR CC / FADR 
77 182 02. 0000 1111 2222 3333 0000 0000 0000 00 
13.45.01 0000 4444 5555 6666 7777 0000 0000 0000 
717190 -- 2-2 

23.10.20 ---- --<- ---- 
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05.04.00 DEVICE ERRORS - ALL TYPES 
** DEVICE ERROR LOG ** 
ADDRESS 09 


TYPE BSCA S.L. READ ID 1006 


DATE 77 182 LVL 00 TCB 0000 AKR 0000 PART 00 
TIME 13.45.01 OIOCC 88 RETRY 0 IDCB 0000 0000 

INTCC ISB 0 STATUS 112233445566 
NOT RECOVERED 
CSSW 1171 2222 3333 4444 5555 
DCB1 1111 2222 3333 4444 5555 6666 7777 8888 
DCB2 1111 2222 3333 4444 5555 6666 7777 8888 
DCB3 1111 2222 3333 4444 5555 6666 7777 8888 
DCB4 1111 2222 3333 4444 5555 6666 7777 8888 
DCB5 1111 2222 3333 4444 5555 6666 7777 8888 
DATE 77 190 LVL 00 TCB 0000 AKR 0000 PART 00 
TIME 23.10.20 OIOCC OO RETRY 00 rpcB 0000 0000 
TIME-OUT INTCC 00 ISB 00 STATUS 112233445566 
RECOVERED NOT COMPLETE RECORD 


** COMMUNICATIONS STATISTICS COLLECTED COUNTS *** 
ADDRESS 09 LINE TYPE BSCA PART 00 


COUNT OF RECORDS 10 

TEXT BLOCKS XMIT/RCV 123456789 

NAKS RCV 12345678 

NOT VALID RESPONSE 1234567 

DATA OVERRUNS 123456 

TIME-OUTS 12345 

BCC ERRORS 1234 

MODEM ERRORS 123 

CC/ISB ERRORS 12 

VRC ERRORS 1 

ADDRESS 13 TYPE DISK READ ID 3206 

DATE 77 182 LVL 00 CB 0000 AKR 0Q0O00 PART 00 

TIME 13.45.07 orocc 00 RETRY 00 IDCB 0000 0000 
IntTcc 00 ISB 00 

NOT RECOVERED 

CSSW 1111 2222 3333 4444 5555 6666 7777 8888 

9999 AAAA BBBB CCCC DDDD 

RSB1 1111 2222 3333 4444 5555 6666 

RSB2 1111 2222 3333 4444 5555 6666 

DCB1 1111 2222 3333 4444 5555 6666 7777 8888 

DCB2 1111 2222 3333 4444 5555 6666 7777 8888 

DCB3 1171 2222 3333 4444 5555 6666 7777 8888 
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ADDRESS 12 TYPE DISKETTE READ ID 3206 05.05.00 NOT EXPECTED INTERRUPT 

DATE 77 182 LVL 00 TCB 0000 AKR 0000 PART 00 ** NOT EXPECTED INTERRUPT LOG SUMMARY ** 

TIME 13.45.01 OIOCC 00 RETRY 00 ImpDcB 0000 0000 

aOSOyeRED INTCC 00 ISB 00 DATE TIME LVL TCB AKR PART ID 

RSB1 1111 2222 3333 4444 5555 6666 77 182 13.45.01 00 0000 0000 00 0000 

RSB2 1111 2222 3333 4444 5555 6666 

RSB3 1111 2222 3333 4444 5555 6666 717 190 23.10.20 -- ees 

DCB1 1111 2222 3333 4444 5555 6666 7777 8888 

DCB2 1111 2222 3333 4444 5555 6666 7777 8888 MEANING OF LABEL USED 

DCB3 1t11 2222 3333 4444 5555 6666 7777 8888 
DATE - YEAR DAY YYDDD ) 
TIME - HOUR. MINUTE.SEC ae py amess) 

ADDRESS 00 TYPE TTY READ ID 0010 LVL - INTERRUPT LEVEL 
TCB - TASK CONTROL BLock 

DAIE 77 182 LVL 00 fCB 0000 AKR 0000 PART OO AKR - ADDRESS KEY REGISTER 

TIME 13.45.01 Oorocc 00 RETRY 00 IDCB 0000 0000 PART - SYSTEM PARTITION NUMBER 

INTCC 00 ISB 00 STATUS 112233445566 -' INTERRUPT IDENTIFICATION 


NOT RECOVERED 


** DEVICE ERROR SUMMARY ** 


05.06.00 SYSTEM TERMINATION 
DEVICE COUNT OF COUNT OF COUNT OF COUNT OF COUNT OF 


ADDRESS RECORDS TIME-OUT TEMPORARY PERMANENT NOT COMPLETE ** SYSTEM TERMINATION LOG SUMMARY ** 
09 12 01 01 01 01 DATE TIME LVL TCB AKR PART TERM CC 
13 01 00 00 01 00 
12 01 00 01 00 00 77 182 «13.45.01 00 0000 0000 00 0000 
00 01 00 00 01 00 
77:°190 23.10.20 <-- === 
MEANING OF LABEL USED 
MEANING OF LABEL USED 
ADDRESS ~ DEVICE ADDRESS 
TYPE ~- DEVICE NAME DATE - YEAR DAY aes 
READ ID ~ DEVICE READ ID TIME - HOUR.MINU SEC ne aoe 
DATE ~ YEAR DAY (YYDDD) LVL - INTERRUPT LEVEL 
TIME - HOUR. MINUTE. vir he ON ac TCB - TASK CONTROL BLOCK 
LVL - INTERRUPT LEVEL AKR - ADDRESS KEY REGISTER 
OIOCC - OI0 INSTRUCTION CONDITION CODE PART ~ SYSTEM PARTITION NUMBER 
INTCC - INTERRUPT CONDITION CODE TERM CC - SYSTEM TERMINATION END CODE 
CB - TASK CONTROL BLOCK 
RETRY - RETRY COUNT ees Te DECIMAL) 
ISB ~ INTERRUPT STATUS BYT 
AKR - ADDRESS KEY REGISTER 
IDCB ~ IMMEDIATE DEVICE CONTROL BLOCK 
STATUS - DEVICE STATUS 
PART - SYSTEM PARTITION NUMBER 
TIME-OUT. - DEVICE TIME-OUT ERROR 
NOT RECOVERED - PERMANENT (NOT RECOVERED DEVICE ERROR) 
RECOVERED ~ TEMPORARY (RECOVERED DEVICE ERROR) 
NOT COMPLETE 
RECORD - NOT ENOUGH STORAGE TO pee THE FULL RECORD 
CSSW ~ CYCLE STEAL STATUS WORD 
RSB1/3 - RESIDUAL STATUS BLOCK (ee TO THREE) 
DCB1/5 - DEVICE CONTROL BLOCK (U P = FIVE) 
LINE TYPE - TYPE OF COMMUNICATION 
BCC - BLOCK CHECK CHARACTER 
VRC - VERTICAL REDUNDANCY CHECK 
21SEP79 PN4 414389 21SEP79 PN4414389 
EC375482 PEC755448 EC375482 PEC755448 
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MAP 0018-21 


ERROR RETRIEVAL AND PRINT PROGRAM USER'S GUIDE 


awaewewe @& eeete Be @ ew <-> <-> «<> we ee = ewe @we wee ee@ee _ <>. a @® 


21 


21 OF 


PAGE 


05.07.00 USER/OTHER SYSTEM DATA 


*k*k JSER/OTHER SYSTEM LOG *** 


DUMP OF EACH RECORD FOLLOWS ** 
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SYSTEM TEST ERROR MAP 
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O 
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OES FLAG = 0008 ? 


007 
SOFT EXCEPTION INTERRUPT ERROR 
LEVEL = 3 


bog 


DATA MOVE COMPARE ERROR 
tues = REGISTERS COMPARE ERROR 








Oo 


S FLAG = 0008 ? 


Qo 


sri aa INTERRUPT ERROR 


OMPARE ERROR 


VE C 
N COPY REGISTERS COMPARE ERROR 


S FLAG = 0008 ? 


Ow 


3 
SP ata INTERRUPT ERROR 


tO w= 


A MOVE COMPARE ERROR 
Sa ae he REGISTERS COMPARE ERROR 


Cod tx oe 


O—_ 
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FLAG = 0008 ? 


hHo— 
<j hj ON 


va gia a aed INTERRUPT ERROR 


Hd 


COMPARE ERROR 


tej Cd 


S CKPT = 0000 ? 





N 
019 
DOES CKPT = 0001 ? 
Y N 
| 920 
DOES CKPT = 0002 ? 
ie 
021 
DOES FLAG = 0008 ? 
YN = 
| 022 
: { SOFT EXCEPTION INTERRUPT ERROR 
| LEVEL = 3 Ss 
23 
DATA MOVE COMPARE ERROR 
FLOATING POINT MOVE THEN COPY 
REGISTERS COMPARE ERROR 
LEVEL = 3 
024 
DOES FLAG = 0008 ? 
Y N 
| 
ii] 
i tt 
3 33 
H J K 
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A g H J k FLOATING POINT MAP 3DE0-3 L i N FLOATING POINT MAP 3DE0-4 
' SYSTEM TEST ERROR MAP SYSTEM TEST ERROR MAP 
| | | | | PAGE 3 OF 4 | PAGE 4 OF 4 
| | bos 43 
SOFT EXCEPTION INTERRUPT ERROR SOFT EXCEPTION INTERRUPT ERROR 
LEVEL = 2 LEVEL = 1 
26 | buy 
| DATA MOVE COMPARE ERROR DATA MOVE COMPARE ERROR 
FLOATING POINT MOVE THEN COPY | FLOATING POINT MOVE DOUBLE THEN COPY 
{ REGISTERS COMPARE ERROR REGISTERS COMPARE ERROR 
| | | LEVEL = 2 LEVEL = 1 
27 45 
DOES FLAG = 0008 ? DOES FLAG = 0008 ? 
| | YN YN 
| 028 046 
| SOFT EXCEPTION INTERRUPT ERROR SOFT EXCEPTION INTERRUPT ERROR 
| LEVEL = 1 LEVEL = 0 
| { 929 47 
DATA MOVE COMPARE ERROR DATA MOVE COMPARE ERROR 
FLOATING POINT MOVE THEN COPY FLOATING POINT MOVE DOUBLE THEN COPY 
REGISTERS COMPARE ERROR REGISTERS COMPARE ERROR 
! LEVEL = 1 LEVEL = 0 
$30 
DOES FLAG = 0008 ? 
Y N 
031 
SOFT EXCEPTION INTERRUPT ERROR 
LEVEL = 0 
32 
DATA MOVE COMPARE ERROR 
FLOATING POINT MOVE THEN COPY 
{ REGISTERS COMPARE ERROR 
| LEVEL = 0 
33 
DOES CKPT = 0000 ? 
! N 
| 034 
DOES CKP® = 0001 ? 
ih 
if | 035 
| DOES CKPT = 0002 ? 
ae 
i | 036 
DOES FLAG = 0008 ? 
hk 
|| | 3% 
SOFT EXCEPTION INTERRUPT ERROR 
\ LEVEL = 3 
38 
DATA MOVE COMPARE ERROR 
| FLOATING POINT MOVE DOUBLE THEN COPY 
REGISTERS COMPARE ERROR 
| \ LEVEL = 3 
39 
DOES FLAG = 0008 ? 
ae 
| 040 
_| SOFT EXCEPTION INTERRUPT ERROR 
| | LEVEL = 2 
bu 
DATA MOVE COMPARE ERROR 
FLOATING POINT MOVE DOUBLE THEN COPY 
REGISTERS COMPARE ERROR 
| LEVEL = 2 
by 2 
| DOES FLAG = 0008 ? 
Y N 
{ | { 
: 21SEP79 PN4414329 21SEP79 PN4G14329 
L MN MAP 3DE0-3 MAP 3DE0-4 


TWO CHANNEL SWITCH SYSTEM 
TEST ERROR MAP 
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HIS MAP SHOULD NOT BE ENTERED UNLESS AN 

ERROR HAS OCCURRED WHILE EXECUT 

SYSTEM TEST, AND THEN ONLY WHEN THE 
DEVICE TYPE FIELD IS EQUAL TO HEXADECIMAL'3E!. 
NOTE: IF THE EXECUTION COUNT IS HIGHER THAN 
ONE THE STATUS OF THE ATTACHMENT IS KEPT IN 
AREA LABELED ‘DEV1'. ALSO IF THE OTHER 
PROCESSING UNIT 
LS SENDING RESERVES TO THE CONTROLLING 
ers aah UNIT THEN NOT EXPECTED INTERRUPTS 
THAN A RESERVE WILL CAUSE AN ERROR. 
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EJECT FROM ATTACHMENT CARD 
CK LED 


Se") 


AND ac ATTACHMENT CARD 
T TIMER (TEST MODE) 


ST MODE) 
S AND ISB 


Qty 


ND REJECT FROM ATTACHMENT CARD 
RE - LEVEL = 1 
TIMER (TEST MODE) 


> ty 
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3 D> 


RT TIMER (TEST ao Ee 
CK DCB, FLAGS AND ISB 


ECT FROM ATTACHMENT CARD 
EVEL = 0 
(TEST MODE) 
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RT TIMER (TEST aes 
CK DCB, FLAGS AND ISB 


S CKPT = 0000 ? 


27 
sa CKPT = 0001 ? 
028 
DOES I0 = O7 ? 
Y N 
| 029 
COMMAND REJECT FROM ATTACHMENT CARD 
| RESET 
30 
COMMAND REJECT ERROR 
CHECK DCB, FLAGS AND ISB 
31 
ena” REJECT FROM THE ATTACHMENT CARD 
HECK DCB, FLAGS AND ISB 
MAND REJECT FROM ATTACHMENT CARD 
PARE - LEVEL = 1 
CKPT = 0000 ? 
4 
ES I0 = 07? 
N 
035 
COMMAND REJECT FROM ATTACHMENT CARD 
READ STATUS 
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8 ; TWO CHANNEL SWITCH SYSTEM 
' TEST ERROR MAP 
| | PAGE 3 OF 3 
| b36 
{ LAST SIX BITS OF STATUS WORD DOES NOT 
| COMPARE WITH CONFIGURATION TABLE 
DEV1 = STATUS OF ATTACHMENT 
DEV2 = STATUS EXPECTED 
37 
DOES DEV3 = 0000 ? 
¥ N 
038 
WRONG DEVICE ID RECEIVED 
DEV3 = EXPECTED ID 
{ DEV4 = RECEIVED ID 
{ CHECK DCB, FLAGS AND ISB 
3 


9 
COMMAND REJECT FROM ATTACHMENT CARD 
PREPARE - LEVEL = 1 


RESET 
READ DEVICE ID 
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HIS MAP SHOULD NOT BE ENTERED UNLESS AN 
ERROR HAS OCCURRED WHILE EXECUTING 
SYSTEM TEST, AND THEN ONLY WHEN THE 
DEVICE TYPE FIELD IS EQUAL TO HEXADECIMAL*4O®. 
NOTE: IN THIS MAP 
CR = CARRIAGE RETURN 
LF = LINE FEED 
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FOR IDIDO PN=1635259 EC=754882 PAGE 04 
SOURCE STATEBENT COPYRIGHT IBM CORP 1976 
x 
* WRITE DO=4 CONTROL BLOCK 
WRDOY EQU * USE FOR DCB REPERENCE ONLY 
WRCTG D x'age CONTROL WORD 
WRDAG DC X'00? 
WRF DC "00008 
PSS ETS TSS SS SS SSS SS SS CS SSCS SSS SSCS CS CSCS OSCCS CSCC SPE SCCSCC TC Ce TST SL TST eT 
* ISSUE ALL I/O COMMANDS FROM A COMMON SUBROUTINE * 
* TO DISPLAY INSTRUCTIONS AND OPERATING PROCEDURES TO THE OPERATOR* 
‘ AND SET UP ANY REQUIREMENTS FOR OTHER 1/0 COMMANDS . 
* --> BAL XIOA1,R6 XEQ ARM PI DI=1 * 
* --> BAL XIOA2,R6 XEQ ARM PI DI=2 * 
* --> BAL XIOT1,R6 XEQ SET TEST 1 DI=1 * 
* --> BAL XIOT2°R6 XEQ SET TEST 1 DI=2 * 
* ~-> BAL XIOS1,R6 XEQ SET TEST 0 DI=1 * 
* --> BA XIOS2, R6 XEQ SET TEST 0 DI=2 * 
* --5 BAL XIOR1,R6 XEQ READ STATUS DI=1 * 
* --> BAL XIOR2,R6 XEQ READ STATUS DI=2 * 
* --> BAL XIOD1,R6 XEQ READ DI=1 * 
* --> BAL XIOD2/R6 XEQ READ DI=2 * 
* --> BAL YXIOE1,R6 XEQ ARM EXTERNAL SYNC DI=1 * 
* --> BAL  XIOE2,R6 XEQ ARM EXTERNAL SYNC DI=2 * 
* --> BAL XIOE3;R6 XEO ARM EXTERNAL SYNC DO=3 * 
* --> BAL XIOEGSR6 XEO ARM EXTERNAL SYNC DO=4 * 
* --> BAL XIOW3,R6 XEQ WRITE DO=3 * 
* --> BAL  XIOW4, R6 XEQ WRITE DO=4 + 
PEELS SS SESE SS SESE SSS SS SS SSS SSS SSS SECS SSCS SCS SCS CSS SCS SST eS eee eee ee te ee es 
XIOA1 MVA  ARMO1,R5 SET UP CONTROL BLOCK FOR SVC CALL 

J XIO BRANCH 
XIOA2 MVA  ARMO2,R5 SET UP CONTROL BLOCK FOR SVC CALL 

J XIO BRANCH 
XIOT1 MVA  TSTO1,R5 SET UP CONTROL BLOCK FOR SVC CALL 

J XIO BRANCH 
XIOT2 MVA  TSTO2,R5 SET UP CONTROL BLOCK FOR SVC CALL 

J XIO BRANCH 
XIOS1 MVA  _T5101,R5 SET UP CONTROL BLOCK FOR SVC CALL 

J XIO BRANCH 
XIOS2 MVA  7TS102,R5 SET UP CONTROL BLOCK FOR SVC CALL 

J XIO BRANCH 
XIOR1 MVA  RSTO1,R5 SET UP CONTROL BLOCK FOR SVC CALL 

TBTS (R4, Nf) SET NO INTERRUPT EXPECTED FLAG 

J I BRANCH 
XIOR2 HVA  RSTO2,R5 SET UP CONTROL BLOCK FOR SVC CALL 

TBTS (R4,N4) SET NO INTERRUPT EXPECTED FLAG 

J IO BRANCH 
XIOD1 HVA  REDO1,R5 SET UP CONTROL BLOCK FOR SVC CALL 

TBTS (Ra, Nt) SET NO INTERRUPT EXPECTED FLAG 

3 Io BRANCH 
XIOD2 HVA  REDO2,R5 SET UP CONTROL BLOCK POR SVC CALL 

TBTS (Rd, , NI) SET NO INTERRUPT EXPECTED FLAG 

J 10 BRANCH 
XIOE1 HVA  AEXO1,R5 SET UP CONTROL BLOCK FOR SVC CALL 

J XIO BRANCH 
XIOE2 MVA  AEX02,R5 SET UP CONTROL BLOCK FOR SVC CALL 

J XIO BRANCH 
XIOE3 MVA  AEX03,R5 SET UP CONTROL BLOCK FOR SVC CALL 

J XI BRANCH 
XIOEG MVA  AEXO4,RS SET UP CONTROL BLOCK FOR SVC CALL 

J XIO BRANCH 
XIOW3 HVA  WRDO3,RS SET UP CONTROL BLOCK FOR SVC CALL 

J IO BRANCH 
XIOW4 MVA  WRDOU,RS SET UP CONTROL BLOCK FOR SVC CALL 
~P PS SSE LESS SSS SSS ST STS SS SSS SP SSS SCS SSC Ee SS CCS CEP SS SSE SS SCSSS OSS Se See 2 2 oe 
* * 
* SOUBROUTINE * 
* EXECUTE INPUT AND OUTPUT COMMANDS + 
* PURPOSE : 
* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. x 
‘ THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 
* THE 1/0 COMMAND. * 
* 2. SAVES THE DCB BLOCK USED * 
* . RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 
* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 
* MYSTERY INTERRUPT (uz) CONTROL BIT IS SET. * 
%* 4. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE * 
a EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE NECESSARY IO. * 
* 5. AFTER ISSUING THE I/O COMMAND, TIMING * 
* STARTS TO DETERMINE A LOST INTERRUPT. * 
* 6. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF * 
* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * 
% 7. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. * 
% . CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * 
‘ . CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. + 
* CALLING SEQUENCE * 
. THIS ROUTINE HAS THE FOLLOWING ENTRIES: + 
* 52) 5 XIO XEQ ANY CYCLE STEAL COMMAND, MOD=0 * 
* RETURN CONTROL + 
* BXS (R6) RETURN TO USER NO ERROR * 
PES SLES SS SESS ETE SEES ES ESS SSS SESE SS SSS SPSS CSCC SSP Pee cere rere LS SL eS iS ee ee 2 2 eS 
XIO TBTR RY IN) CLEAR INTERPUPT RECEIVED CNTL BIT 

JON K BRANCH IF 

MV W RG OF STrO SAVE IAR FOR RETRY IF REQUESTED 

SHI 4 Estro POINT AT CORRECT INSTRUCTION 

MVA SBID, R LOAD ADDRESS OF START OF PROG 

SW LStro SUB TO OBTAIN LISTING ADDRESS 

HVA beBUF, R SET UP TO ADRS TO MOVE DCB TABLE 

MVBI 4 * THE NUMBER OF MOVES 

MVEN (6) se 3) MOVE 1 STATUS WORD AND ADJUST 

CB PUTEPE, TYPE23 TEST FOR PROCESSOR 

JNE  XIO05 BRANCH IF NOT EQUAL 
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FOR IDIDO PN=1635259 EC=754882 PAGE OMA 
SOURCE STATEMENT COPYRIGHT IBM ZORP 1976 
MVWI X'COOO',RS LOAD LOOP COUNT 
J XI06 BRANCH 
XIOS SW R5,R5 LOAD LOOP COUNT 
XI06 TBTS Gah XI) SET EXPECTED INTR CONTROL BIT 
IO cCBOF ISSUE I0 
BNCC 7,XIOER ERROR IF NOT CC=7 
xrog svc ILE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
TBT Ra TM) IS TERM BIT ON 
BON TERM BRANCH YES 
TBTR (Ra IN) HAS INT ERRUPT BEEN RECEIVED 
JON I0EK * YES, CHECK IF ALL WAS SATISFACTORY 
TBTR (R4,NI) Is THERE GOING TO BE A INTERRUPT 
BON R6f BRANCH 
AWI R ADVANCE ATIHE OUT COUNT 
JNZ  xf08 BCH IF TIME OUT NOT REACHED 
TBTS BER) SET ON ERROR CONTROL BIT 
TBTS (RO’LI SET ON LOST INTERRUPT CONTROL BIT 
B PRT BRANCH TO PRINT ERROR 
BORO IO IR ICI ORIG IOI RIO IOIOIO OR OR IOI OI IOI IGIOIOR RR IOI OI IOROR ISRO IORI OI ROI IR IOROR NOR IOI et 
* * 
* SUBROUTINE af 
. I/O EXECUTE ERROR HANDLING ROUTINE : 
* PURPOSE ! 
* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 
* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE * 
* SUEERVISOR AND IT WAS NOT ACCEPTED. + 
* CALLING SEQUENCE _ 
* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND : 
* RETIRN CONTROL + 
B $PRNT DUMP STATUS BEFORE TERMINATION * 
BRIO ROR IOI RIO IOI ROR IOI ROR IORI IO IORI OR IOI RIOR IOI IORI ORI IIR OFOR IOI I atc 
XIOER CPLSR R3 SAVE CONDITION CODE ON I/O ERROR 
SRL 13, POSITION CC CODE TO BITS 13-15 
MVB R3, Bo oIN * PUT IN LOG OUT AREA 
B PRNT ANCH TO PRINT ERROR 
SPSS SSS SS LES SES SESS SES SSS SSSE SL SCS SSCS SSS SSS eSCeCeeecesceceeceecercecrceceereet eet £2 2 2 3 
% * 
* SOUBROUTINE * 
* FRROR INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL* ‘ 
* PURPOSE * 
* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR x 
% OR THE INTERRUPTING CONDITION CODE DOFS NOT AGREE WITH THE * 
* EXPECTED CODE. ‘ 
* CALLING SEQUENCE * 
+ SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT ‘ 
* RETURN CONTROL ‘ 
+ SVC EXIT RETURN TO USER VIA SUPVR * 
sO OIRO OR OOO IO OK mom Gm II IK IRR OI gOR Ib IOI i iO ia kak koioteaiaio ako ak ak 
INTER CPLSR R3 SAVE INDICATORS 
SRL = 13,R3 POSITION INDICATORS IN R3 
MVA  OPTN1,RU SET UP BASE ADR 
TBTS (R4,ER) SET ERROR ON 10 COMMAND CNTL BIT 
Inth1 BRANCH 
PPS 2S SSS SSL SESE LE SSS SESS SCS SS CSCS SSeS SSC SSCSCSLOSSCCeSCSCeecCLSeCe LS eS ee . ef 
«x * 
* SOUBROUTINE ‘ 
* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL ‘$INTL! + 
* PURPOSE * 
* TO CHECK THE INTERRUPT AND CONTINUE THE TEST . 
* CALLING SEQUENCE + 
* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 
* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * 
* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 
+ COMMON SECTION IS HANDLED HERE. * 
* RETURN CONTROL + 
* SVC EXIT RETURN TO USER VIA SUPVR ‘ 
PSS S SSS SSE ESL LE SS SES SELES ES SSS SSS SSS SSS SS SLL ES SCSCSSCLSSSLCLCOCSCLSCOSCSCS SESS Ss 2 
INTOK CPLSR R3 SAVE INDICATORS 
SRL 13,R3 POSITION INDICATORS IN R3 
MVA OPTN1,R4 SET UP BASE ADRS 
TBT (Ra x £) IS AN ERROR EXPECTED 
JOFF INTR1 BRANCH NO 
TBTS (R4Y,GI SET GOOD INTERRUPT BIT 
INTR1 TBTS (RG-IN SET INTERRUPT RECEIVED 
MVB 3.$10 N+1 SAVE INTERRUPTING CC CODE 
MVW R7-$SISB SAVE INTR STATUS AND DEV ADRS 
INTR2 CPCL RS COPY INTERRUPT LEVEL TO CHECK 
SLL 4,R5 POSITION INTR LEVEL AND PUT 
ABI 1,R5 * IN 'I* BIT 
CW SINTL, RS IS THIS THE CORRECT INTR LEVEL 
JE INTR3 * YES. GO EXIT THIS LEVEL 
SLL  4&,R5 SET LEVEL IN HIGH ORDER BYTE 
MVW R5, DEV3+2 STORE IN DEV4G 
BTS RA LE) SET INTR LEVEL ERROR CONTROL BIT 
INTR3 TBTR (¢R4’XT WAS INTERRUPT EXPECTED 
ON NTRX * YES, EXIT OFF THIS INTR LEVEL 
TBTS (Ra MI) * NO, SET MYSTERY INTR CONTROL BIT 
INTRX SVC out EXIT THIS LEVEL VIA SUPVR TO PGM 
pS ESSSS SESS SESE SE SESS SSS SSE SSS SSE SS SSCL SSCL SC SCSOCSCSCSCSCSCC CS CCC SSeS SSS SS SS 
*x * 
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EAQEO --- SYSTEM TEST EXERCISOR FOR IDIDO 
CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 


DECLARED NAME 

0 -R1. 

0 -R2. 

0 «R3. 

0 ~R4. 

0 ~R5. 

0 -R6. 

0 -R7. 

60 S$CKPT 
106 3 $CONC 
1080 SCONK 
1053 SCONR 
1066 SCONU 
1083 $SCONV 
101 SDATA 
124 SDVAD 
130 $DVID 
131 $DVOD 

126 $DV2 

127 $DV3 

128 SDV4 
135 SHTOE 
129 SINTL 
98 $IOIN 
99 SISB 
132 SMXSL 
139 SOUTN 
153 $PENT 
197 $PEN1 
55 S$PID 
1112 $PRNT 
1124 SPRN1 
1123 $PRN2 
199 $PUPD 
252 SPUPS 
218 SRETI 
209 $RET1 
212 SRET2 
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269 SRTAD 
59 SRINE 
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eeNeii ete 


EC=754882 
380 385 390 
422 433 438 
367 370 393 
UU6 
817 860 861 
957 1066 1067 
1115 
317. 320 391 
501 506 £508 
552 554 747 
829 831 #835 
920 930 9314 
954 959 1114 
263 734 £736 
752 755 £758 
820 822 822 
929 1113 1116 
287 316 318 
430 456 463 
498 500 502 
537 540 #542 
811 832 958 
1112 1117 
212. 215 220 
242 244 245 
299 303 307 
371 89373020375 
424 426 428 
530 532 534 
1072 1075 1077 
CSECT (EAO EO \ LENGTH (2) 
461 472 496 
CSECT(EAOQEO ) LENGTH (1) 
CSECT(EAOEO ) LENGTH(1) 
CSECT(EAQEO ) LENGTH(1) 
CSECT(EAQEO ) LENGTH(4) 
CSECT(EAOEO ) LENGTH(4) 
CSECT(EAOEO ) LENGTH(2) 
CSECT (EAQEO L LENGTH (2) 
172 «(«174—Ct—i«*2:*272CG 
CSECT(EAOEO ) LENGTH (2) 
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LENGTH (2) 


LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 


LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 


LENGTH (10) 
LENGTH (10) 


EAOQEO --- 


DECLARED 


206 
223 
228 
233 
238 
673 
680 
687 
694 
671 
678 
685 
692 
601 
608 
599 
606 

38 

51 
104 


105 
109 
102 
103 
36 
86 
572 
579 
5 86 
593 
571 
578 
5 85 
992 
39 
573 
580 
587 
594 
94 
41 
133 
134 
42 
88 
147 
69 
1002 
1009 
10 16 
10 23 
8 86 
914 
934 
920 


SYSTEM TEST EXERCISOR FOR IDIDO 
CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 


NAME 


STERM 
STER1 
S$TER2 
$TER3 
STERY 
AEDA1 
AEDA2 
AEDA3 
AEDAY 
AEXO1 
AEXO2 
AEXO3 
AEXO4 
ARDA1 
ARDA2 
ARMO1 
ARMO2 
CICB 
CPUTYPE 
DCBUF 


DCB2 
DCB6 
DEV3 
DEV4 
EAOEO 
ER 
ERCT1 
ERCT2 
ERCT3 
ERCT4 
ERDC1 
ERDC2 
ERDC3 
ERDC4 
EXIT 
E1DA 
E2DA 
E3DA 
E4DA 
GI 
HTOE 
H0000 
HO001 
IDLE 
IN 
INARA 
IND 
INTBL 
INTB2 
INTB3 
INT B4 
INTER 
INTOK 
INTRX 
INTR1 
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PN= 1635259 


197. 252 253 258 

ADDRESS. HEX LOCATION(0000019E) IN 
392 445 828 1126 

ADDRESS. HEX LOCATION (000001E6) IN 
ADDRESS. HEX LOCATION(Q000001FE) IN 
ADDRESS. HEX LOCATION(00000216) IN 
ADDRESS. HEX LOCATION (0000022E) IN 
ADDRESS. HEX LOCATION (00000625) IN 
ADDRESS. HEX LOCATION (00000629) IN 
ADDRESS. HEX LOCATION (0000062D) IN 
ADDRESS. HEX LOCATION (00000631) IN 
ADDRESS. HEX LOCATION (00000624) IN 
ADDRESS. HEX LOCATION (00000628) IN 
ADDRESS. HEX LOCATION (0000062C) IN 
ADDRESS. HEX LOCATION (00000630) IN 
ADDRESS. HEX LOCATION(QOOO05FD) IN 
ADDRESS. HEX LOCATION (00000601) IN 
ADDRESS. HEX LOCATION(O00005FC) IN 
ADDRESS. HEX LOCATION(00000600) IN 
ABSOLUTE. HEX VALUE (00000014) 

055 1057 1059. 1 

ABSOLUTE. HEX VALUE (00000232) 

818 1119 

ADDRESS. HEX LOCATION (00090022) IN 
183 381 382 386 387 34 
815 824 

ADDRESS. HEX LOCATION(00000024) IN 
467 470 74. 477. 504 3 
ADDRESS. HEX LOCATION(0000002C) IN 
ADDRESS, HEX LOCATION (0000001E) IN 
262 263 329 333 336 0 
ADDRESS. HEX LOCATION(00000020) IN 
331 338 480 482 #516 

CSECT. START (00000000) LE 
ABSOLUTE. HEX VALUE (00000021) 

835 889 947 951 

ADDRESS. HEX LOCATION (QOOO0SEC) IN 
ADDRESS. HEX LOCATION (000005F0) IN 
ADDRESS. HEX LOCATION (OQO0005F4) IN 
ADDRESS. HEX LOCATION(000005F8) IN 
ADDRESS. HEX LOCATION (OOOQOSEC) IN 
ADDRESS. HEX LOCATION (000005F0) IN 
ADDRESS. HEX LOCATION (000005F4) IN 
ADDRESS. HEX LOCATION (000005F8) IN 
ABSOLUTE. HEX VALUE (00000006) 
ADDRESS. HEX LOCATION(OOOO005ED) IN 
ADDRESS. HEX LOCATION (000005F1) IN 
ADDRESS. HEX LOCATION (O00005F5) IN 
ADDRESS. HEX LOCATION(000005F9) IN 
ABSOLUTE. HEX VALUE (00000029) 

919 959 

ABSOLUTE. HEX VALUE (0000001A) 
ADDRESS. HEX LOCATION(0000007C) IN 
ADDRESS. HEX LOCATION(0000007E) IN 
ABSOLUTE. HEX VALUE (00000002) 

298 384 389 437 442. 826 
ABSOLUTE, HEX VALUE (00000023) 

809 829 920 

ADDRESS. HEX LOCATION(OQOO00BE) IN 
ABSOLUTE. HEX VALUE(0000000E) 

196 403 526 

ADDRESS, HEX LOCATION(000007A4) IN 
ADDRESS. HEX LOCATION(000007AC) IN 
ADDPESS. HEX LOCATION(000007B4) IN 
ADDRESS. HEX LOCATION(000007BC) IN 
ADDRESS. HEX LOCATION (00000708) IN 
004 1011 1018 1025 

ADDRESS, HEX LOCATION (00000714) IN 
003 1010 1017 1024 

ADDRESS. HEX LOCATION(00000746) IN 
ADDRESS. HEX LOCATION(00000722) IN 


CSECT (EAOEO 
CSECT (EAOEO 
CSECT (EAO EO 
CSECT (EAOEO 
CSECT (EAOEO 
CSECT (EAO EO 
CSECT (EAOEO 
CSECT (EAQEO 
CSECT (EAOEO 
CSECT (EAOEO 
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LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


EAQEO --- SYSTEM TEST EXERCISOR FOR IDIDO 
CROSS-REFERENCE LISTING 


DECLARED 


931 
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974 
984 
993 
967 
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IOBLK 
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IODCB 
IODC2 
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IOERR 
IOER2 
IOER3 
IOER4Y 
IORSP 
IORS2 
IORS3 
IORS4Y 
ISWRP 
ITST4 
LE 
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MI 

MSGO1 
MSG11 
NI 
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PREP 
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QUES 
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REDA2 
REDO 1 
REDO2 
RESET 
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ATTRIBUTES AND REFERENCES 


LOCATION (00000740) 


375 
LOCATION (0000078C 
94 307 426 
Loc ATION (00000798 
LOCATION (00000778) 
64. 1077 
LOCATION (00000784) 
65. 1078 


LOCATION (00000790) 
081 

HEX 

10 


1094 
LOCATION (0000079C) 
82. 1095 
LOCATION (00000776) 
LOCATION (00000782) 
LOCATION (0000078E) 
LOCATION (0000079A) 
LOCATION (00000775) 
LOCATION (0000078A) 
LOCATION (00000796) 
LOCATION (000007A2) 
LOCATION (0000018A) 


LOCATION (000002A2) 


HEX VALUE (00000025) 

HEX VALUE (00000026) 

HEX LOCATION (00000018) _IN 
814 1 1 


1069 


068 
HEX VALUE (00000020) 
HEX LOCATION (00000092) IN 
HEX LOCATION (QOQOOOOBA) IN 
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DRESS 

9 

DRESS. 

7 190 

SOLUTE. HEX VALUE(0000002B) 

7 320 462 464 497 

: 539 541 543 545 747 
DRESS. HEX LOCATION (OQOQOQ000E) IN 
8 199 916 1118 

DRESS. HEX LOCATION(00000012) IN 
7 430 957 1066 1083 1112 
SOLUTE. HEX VALUE (00000001) 
DRESS. HEX LOCATION (00000042) IN 
SOLUTE. HEX VALUE (0000000C) 

2 227 232 237 1074 1076 
SOLUTE. HEX VALUE (00001818) 
SOLUTE, HEX VALUE (0000000D) 
DRESS. HEX LOCATION (00000615) IN 
DRESS. HEX LOCATION (00000619) IN 
DRESS. HEX LOCATION (00000614) IN 
DRESS. HEX LOCATION (00000618) IN 
SOLUTE. HEX VALUE (00000008) 

08 211 14 217 291 293 
76 427 29 458 460 493 
33 535 
BSOLUTE. HE VALUE (00000013) 
G0 =. 243 46 249 
BSOLUTE. HE VALUE (00000009) 

00 304 08 312 
DDRESS. HEX LOCATION(0000060D) IN 
DDRESS. HEX LOCATION (00000611) IN 
DDRESS. HEX LOCATION(0000060C) IN 
DDRESS. HEX LOCATION (00000610) IN 
DDRESS. HEX LOCATION (00000294) IN 
DDRESS. HEX LOCATION(00000328) IN 
DDRESS. HEX LOCATION (0000033E) IN 
DDRESS. HEX LOCATION(0000034C) IN 
DDRESS. HEX LOCATION (00000360) IN 
DDRESS. HEX LOCATION (00000334) IN 
DORESS. HEX LOCATION (0000033A) IN 
DDRESS. HEX LOCATION (00000358) IN 
DDRESS. HEX LOCATION(0000036E) IN 


CSECT (EAOEO 
CSECT(EAQEO 
492 528 
CSECT ( EAQEO 
494 § 530 
CSECT (EAO EO 

1090 

CSECT (EAOEO 
109 

CSECT (EAO EO 
CSECT (EAO EO 
CSECT(EAOEO 
CSECT (EAOEO 
CSECT (EAOEO 
CSECT (EAQEO 
CSECT (EAOEO 
CSECT (EAQEO 
CSECT (EAOEO 
CSECT (EAOEO 
CSECT(EAQEO 
CSECT (EAOEO 
CSECT (EAOEO 


CSECT (EAOEO 


CSECT (EAQEO 
CSECT (EAO EO 


501 506 
750 753 
CSECT (EAOEO 
CSECT (EAO EO 

1117 


CSECT (EAOEO 


1091 1093 


CSECT (EAQEO 
CSECT (EAQEO 
CSECT (EAOEO 
CSECT (EAOEO 


295 297 
495 529 


CSECT (EAOEO 
CSECT (EAQEO 
CS ECT (EAO EO 
CSECT (EAQEO 
CSECT(EAOEO 
CSECT (EAQEO 
CSECT(EAOEO 
CSECT (EAOEO 
CSECT(EAOEO 
CSECT (EA0 EO 
CSECT(EAOEO 
CSECT (EAOEO 
CSECT (EAOEO 
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) LENGTH (2) 

LENGTH (2) 
abs LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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LENGTH (1) 
LENGTH (1) 
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LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
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403 
456 
480 
482 
491 
5 16 
5 26 
550 
565 
380 
4 33 

46 
66 
615 
623 
6 13 
621 
656 
663 
658 
665 
148 
701 
708 
699 
706 
702z 
709 
67 
89 
87 
809 


7134 
736 
943 
949 
953 
956 
$57 
7152 
755 
660 


758 
760 
762 
764 
959 
746 
749 
742 
744 
738 
740 
766 
768 
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OBJECT TEXT STMT SOURCE STATEHENT COPYRIGHT IBM CORP 1976 OBJECT TEXT SOURCE STATEHENT COPYRIGHT IBM CORP 1976 
472 * TO DISPLAY INSTRUCTIONS AND OPERATING PROCEDURES TO THE OPERATOR* 588 AHI 1,R5 ADVANCE TIME OUT COUNT 
473 * AND SET UP ANY REQUIREMENTS FOR OTHER I/O COMMANDS * 589 JNZ XxI08 BCH IF TIME OUT NOT REACHED 
u“7yy * * 590 TBTS RY,ER SET ON ERROP CONTROL BIT 
475 * --> BAL XIODG, R6 XEQ DIAG. HOD = D COMMAND * 591 TBTS RG,LI SET LOST INTERRUPT CONTROL BIT 
476 * ~=-> BAL XIODR, R6 XEQ DIAG. HOD = D COMMAND * 592 PRAT * BCH TO FINISH ERROR SEQUENCE 
477 * <--> BAL XIOSC, R6 XEQO DIAG. HOD = 8 COMMAND * AMET SLOOS SECS SS SECC OCCLCCSCSCO CCS CSS SS CSS Se CLS SLL S Se ee Te Se ST Te SSeS eS ee ee ee ee 
478 * --> BAL XIOWT, R6 XEQ DIAG. HOD = 6 COMHAND * 595 * * 
479 * --> BAL XIORD, R6 ea DIAG. MOD = A COHHAND * 596 * SUBROUTINE * 
480 * --> BAL XIOCR, R6 XEQ DIAG. SOD = D COMMAND * 597 * % 
nee . --> BAL XIOWR, R6 XEQ DIAG. HOD = 6 COHHAND - ae : I/O EXECUTE ERROR HANDLING ROUTINE * 
x 
Ae ARO III III IOI iOlG OR i i i goioic i tole goatee ete i kota a ieee de ie ak age ae aie ake afc ak 600 * PURPOSE * 
O0O03D4 4020 0558 0374 484 XIODG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 601 * * 
Q0003DA 4020 O55A OOO0D 485 HVWI xXx'OD*,IOMOD MOVE MODIFIER INTO CONTROL BLOCK 602 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 
O0OO03EO 5036 486 J XIO1 BRANCH 603 * PROBLEA THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE * 
QO003E2 4020 0558 0354 487 XIODR HVA DRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 604 * SUPERVISOR AND IT WAS NOT ACCEPTED. * 
O003E8 4020 055A O00D 488 MVWI xX*OD*,IOMOD MOVE MODIFIER INTO CONTROL BLOCK 605 * * 
OOO3EE 502F 489 J XIO1 BRANCH 606 * CALLING SEQUENCE * 
OOO03FO 4020 0558 O3A4 490 XIOSC HVA SCDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 607 * * 
OOO03F6 4020 055A 0008 491 MVHWI x'0O8*, IOMOD MOVE MODIFIER INTO CONTROL BLOCK 608 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN 1/0 COMMAND * 
OO03FC 5028 492 J XIO1 BRANCH 609 * * 
OOO3FE 4020 0558 03B4 493 XIOWT HVA WTDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 610 * RETORN CONTROL * 
000404 4020 055A 0006 494 MVWI xX'O06', IOMOD MOVE MODIFIER INTO CONTROL BLOCK 611 * * 
OOO4OA 5021 495 J XIO1 : BRANCH 612 * B $PRNT DUMP STATUS BEFORE TERMINATION * 
00040C 4020 0558 0394 496 XIORD MVA_ RDDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 613 * * 
000412 4020 O55A OOOA 497 MVWI X'OA*, TOMOD MOVE MODIFIER INTO CONTROL BLOCK 614 3k IO OR Ol ORO III IR IOI oi RRR RI IOI OI OR OI Og RR ki teak ie ak 
000418 501A 498 J XxIO1 BRANCH OOO4AC TO6E 615 XIOER CPLSR R3 SAVE CONDITION CODE ON I/0 ERROR 
OOO4U1A 4020 0558 0384 499 XIOCR MVA CRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL OOOYAE 336A 616 SRL 13,R3 POSITION CC CODE TO BITS 13-15 
000420 4020 055A OO00D 500 MVWI xX‘'OD*, IOMOD MOVE MODIFIER INTO CONTROL BLOCK 0004B0 C328 0014 617 MVB R3,$I0OIN * PUT IN LOG OUT AREA 
000426 5013 501 J XIO1 BRANCH OOO4YBY 6802 05A2 618 B SPRNT BRANCH TO PRINT ERROR 
000428 4020 0558 03c4u 502 XIOWR MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 620 32 ORI RRR ROR ORO IR IOI oR IO RR IORI RIOR RGR I kk aki ak kok ak kai aga ak ak atc ate 
OO042E 4020 O55A 0006 503 MVHI xX'06', IOMOD MOVE MODIFIER INTO CONTROL BLOCK 621 * * 
000434 500C 504 XIO1 BRANCH 622 * SOUBROUTINE * 
506 2 ORR IOI OR OIG I RIOR Rigi itor Oi RR I kr RR Rk toi a aka afc ak 623 * * 
S07 * * 624 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL ‘$INTL* * 
508 * SOUBROUTINE * 625 * * 
509 * * 626 * PURPOSE * 
510 * EXECUTE INPUT AND OUTPUT COMMANDS * 627 * * 
511 * * 628 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 
512 * PURPOSE * 629 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * 
513 * * 630 * EXPECTED CODE. * 
514 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. * 631 * * 
eae . THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: : eae : CALLING SEQUENCE . 
517 * 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 634 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT * 
518 * THE I/O COMMAND. * 635 * * 
519 * 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS * 636 * RETURN CONTROL * 
520 * ISSUED BY THIS SUBROUTINE. * 637 * * 
521 * 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE * 638 * SVC EXIT RETURN TO USER VIA SUPVR * 
522 * START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. % 639 * * 
523 * 4“. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 640 eC IO IO IO IC ORO iO iO ii Oi io IK i i gk aiOK toi i i ak teats ake at ake ak 
524 * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 0O004UBB TO06E 641 INTER CPLSR R3 SAVE INDICATORS 
525 * MYSTERY INTERRUPT (uty CONTROL BIT IS SET. * OOOYBA 336A 642 SRL 13,R3 POSITION INDICATORS IN R3 
526 * 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE * OOO4BC 4424 OO0DE 643 MVA OPTN1, RY SET UP BASE ADRS 
527 * EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE *SVC_ START'®. * OOO4CO 4C27 644 TBT see c§) IS CS IN PROGRESS 
528 * 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING * 0004C2 1006 645 JOFF NtéT * NO 
529 * STARTS TO DETERMINE A LOST INTERRUPT. * OOO4C4K Y4C68 646 TBTS gas eet. TURN ON CYCLE STEAL INTER ERROR 
530 * 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF * 0004C6 6FO0D 0040 647 NVW 7,€ST 8 SAVE CS ERR ISB VALUE, BITS 0-7 
531 * WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * OOO4YCA C328 0041 648 MVB R3,CSTL8+1 * AND THE COND CODE 
532 * 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. * OOO4CE 5009 649 J INTR1 BRANCH 
533 * 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * OOO4DO 4C61 650 INTET TBTS ee ER) SET ERROR ON I/O COMMAND CNTL BIT 
534 * 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETORN. * O0004D2 5007 651 J R14 BRANCH 
535 * 11. CHECK IS A CYCLE STEAL OPERATION WAS £N PROGRESS THAT WAS * 653 3k RRR OR KORO oR i KO RR ir OR RROR k Roig koko ak 
536 * ISSUED BY THIS SUBROUTINE. * 654 * * 
537 * 12. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A * 655 * SOUBROUTINE * 
538 * CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON,* 656 * * 
ZAG : COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. : eek ‘4 OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL'* “i 
541 * CALLING SEQUENCE * 659 * PURPOSE * 
S42 * * 660 * * 
eb : THIS ROUTINE HAS THE FOLLOWING ENTRIES: : ea : TO CHECK THE INTERRUPT AND CONTINUE THE TEST : 
545 * --> B XIO XEQ ANY CYCLE STEAL COMMAND, MOD=0 * 663 * CALLING SEQUENCE * 
546 * --> BAL XIOCS, R6 XEQ START CYCLE STEAL STATUS, MOD=F * 664 * * 
547 * * 665 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 
548 * RETURN CONTROL * 666 * THE ERROR INTERRUPT HANDLFR WILL BRANCH TO THIS ROUTINE * 
Sug * * 667 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 
550 * BXS (RO) RETURN TO USER NO ERROR * 668 * COMMON SECTION IS HANDLED HERE. * 
551 ok Ook io OR CO RI oi ii ig iii kai ii tik tok katoi i bok ak kek 669 * * 
000436 4CA8 553 TBTR RY, CE RESET CS STATUS INTER ERROR INDICAT. 670 * RETURN CONTROL * 
000438 4C67 554 TBTS 4,CS SET "CYCLE STEAL STATUS! IN PROGRESS 671 * * 
OO0O043A 4020 558 0364 555 XIOCS AVA SDCB ODCB SET UP CONTROL BLOCK FOR SVC CALL 672 * SVC EXIT RETURN TO USER VIA SUPVR * 
000440 4020 O55A OOOF 556 MVWI X'OOOF*, IOMOD SET CYCLE STEAL MODIFIER 673 * * 
000446 4C27 557 TBT set CS) IS CS IN PROGRESS, ERROR CONDITION 674 om OO IO IR RO III ROR RII RO IOI IOI IORI IOI ROR RIOR OR IR II IR ROR IR ig RRR RO ai ak 
000448 1216 558 JON to} * YES, BYPASS SAVING I/O ADRS OOO4D4 T706E 675 INTOK CPLSR R3 SAVE INDICATORS 
OOOY4A 4C23 559 TBT cc IN) TEST FOR INTERRUPT O0OO04D6 336A 676 SRL 13, R3 POSITION INDICATORS IN R3 
O0044C 125F 560 JON rock BRANCH IF YES 0004D8 4424 OO00E 677 HVA OPTN1,R4 SET UP BASE ADRS 
OOOYLE 6E0OD 0018 561 XIO1 HVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED OOO04DC 4&4C24 678 TBT fen xf) TEST EXPECTED ERROR BIT 
000452 402E 0018 0004 562 Swi 4 LSTIO DECREMENT FOR LAS INSTRUCTION OOO4DE 1001 679 JOFF nr k1 BRANCH IF OFF 
000458 4324 0000 563 NVA $bID R3 LOAD ADDRESS OF PROGRAM START 0004 E0 4C69 680 TBTS R4,GI SET GOOD INTERRUPT BIT 
00045C CB2F 0018 564 Sa R3 L§TIO SUB TO OBTAIN LISTING ADDRESS QOOOYE2 4C63 681 INTR1 TBTS RG,IN SET INTERRUPT RECEIVED 
000460 4324 0022 565 HVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE OOOYEH 4C27 682 TBT R4,CS IS 'CS IN PROGRESS! ON 
000464 6D08 0558 566 MVU TODCB,R5 * AND THE FROM ADRS, ALONG WITH OOO4YE6 1204 683 JON NTR? * YES, BCH AROUND UPDATE 
000468 OF1O 567 MVBI 16,R7 * THE NUMBER OF MOVES OOOYEB C328 0015 684 MVB R3,$10IN+1 SAVE INTERRUPTING CC CODE 
OOO4U6A 2D64 568 MVFN SR) 4R3) MOVE 1 STATUS WORD AND ADJUST OOOYEC 6FOD 0016 685 MVW R7,SISB SAVE INTR STATUS AND DEV ADRS 
OO0046C OBFF 569 MVBI 55,8 CLEAR CYCLE STATUS BUFFER OOOYFO 78B9 686 INTR2 CPCL RS COPY INTERRUPT LEVEL TO CHECK 
OOO46E 4524 0032 570 HVA CSBOF, RS * TO ALL ONES * OOO4F2 3521 687 SLL 4,R5 POSITION INTR LEVEL AND PUT 
000472 OF10 571 MVBI 16,R7 * OOOUF4 0501 688 ABI 1,R5 * IN "It BIT 
000474 2BAC 572 FFN R3, (R5 * OOO4YF6 CD24 0056 689 CW S$ENTL, RS IS THIS THE CORRECT INTR LEVEL 
000476 4CA3 573 XIO02 TBTR (R41 CLEAR INTERRUPT RECEIVED CNTL BIT OOOYFA 1004 690 JE INTR3 * YES GO EXIT THIS LEVE 
000478 1249 574 JON IOCK BRANCH IF ON OOO4FC 3521 691 SLL u,R5 POSITION RECEIVED LEVEL 
OOOYUTA 4724 0554 575 NVA IOBLK, R7 SET UP CONTROL BLOCK FOR SUPVR OOO4YFE 6D0D 0020 692 MVW p56, DEV3+2 STORE INTO DEVY 
QOOOYTE 802B 0232 0060 576 CB CPUTYPE, TYPF23 CHECK FOR PROCESSOR 23 000502 4C65 693 TBTS R4,LE SET INTR LEVEL ERROR CONTROL BIT 
000484 1803 577 JNE XIO5 BRANCH NOT EQUAL 000504 4CA2 694 INTR3 TBTR R4,XI WAS INTERRUPT EXPECTED 
000486 4524 0000 578 MHVWI X'O000!,R5 LOAD LOOP COUNT 000506 1201 695 JON nT RX * YES, EXIT OFF THIS INTR LEVEL 
QOOO4Y8BA 5001 579 J X1I06 BRANCH 000508 4&Cc60 696 TBTS te MI) * NO, SET MYSTERY INTR CONTROL BIT 
O0048C 75AA 580 xIO5 SW R5,R5 LOAD LOOP COUN OO050A 6006 697 INTRX SVC xt EXIT THIS LEVEL VIA SUPVR TO 
OOOUBE 4C62 581 XI06 TBTS gRi XI) SET EXPECTED INTR CONTROL BIT 699 otto tok i ek RR ORO ORI IOI ROR ROI SOR IOK IK RR ga 
000490 600A 582 SVC TART CALL SUPVR FOR I/0 COMMAND 700 * 
000492 6002 583 xIO8 SVC IDLE ALLOW OTHER PROG TI 701 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
O00494 4C03 584 TBT gee TM) IS TERMINATE BIT ON 7102 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
000496 6A00 OOAO 585 BON TERM BRANCH IF ON 703 * RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
OOOUSA 4CA3 586 TBTR 183 IN) HAS INTERRUPT BEEN RECEIVED 704 * 
00049C 1237 587 JON ToeK * YES, CHECK IF ALL WAS SATISFACTORY 705 eI III III IOI RIOR IORI RO IIR ROIOR RRR RRO ROKR a 
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NAME 
eR. 


-R2. 


~R3. 


~R4. 


~R5. 


-R6. 


R77. 


$CKPT 


$SCONC 
SCONR 
$SDVAD 
$SDVID 
SINTL 
SIOIN 
$ISB 

SMXSL 
SPENT 
SPEN1 
$PEN2 
$PEN3 
$PID 

SPRNT 


$SPRN1 
SPRN2 
SPUPD 
SPUP8 
SRETI 
$RTAD 
SRTNE 
$TERM 
S$TER1 
CE 
CICB 
CPUTYPE 
CRCTB 
CRCTE 
CRDCB 


CS 
CSBUF 
CSDCB 
CSRTN 
CSTL8 
DC BUF 
DE V1 
DEV2 
DEV3 
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BSYSTEM SYS. TST. EX PNR=4412858 EC=755104 
CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 

ABSOLUTE. HEX VALUE (00000001) 

138 = 139) 1401400142144 145146187 
227 228 229 233 234 «©6235 239 £4240 ~~ 241 
245 246 247 352 353 354 361 £362 °&365 
ABSOLUTE. HEX VALUE (00000002) 
264 267 270 273 #4281 343 345 347 #349 
ABSOLUTE. HEX VALUE (00000003) 

311 313 317 #4357 £4563 564 $565 568 #569 
572 615 616 617 #£42.641 642 648 #=675 #&£676 
684 725 780 784 787 +1788 ~& 809 
ABSOLUTE. HEX VALUE (00000004) 

152. 153. -3315)=)S 5553) 554) 557) 36559 )~=—5573—S—«*S5 81 

584 586 590 591 £4643 644 646 650 #4677 
678 680 681 682 693 694 696 706 #£«2708 
710 712 714 #716 #=$718 $721 #4#=+1727 «29730 #8808 
ABSOLUTE. HEX VALUE (90000005) 

179 180 181 182 183 279 £49312 £313 316 

566 568 570 572 #578 ##+$§|§580 580 588 #686 
687 688 689 691 692 807 #4810 815 817 
ABSOLUTE. HEX VALUE (00000006) 

151. 178 184 #185 206 210 220 £225 #4226 
261 276 =293 295 304 #306 308 327 #329 
333 3360s 33393356 )=— 360) 5610S 7130S 72602) 729 
732. 778 $.785 790 806 811 
ABSOLUTE. HEX VALUE (00000007) 

159 163 166 £167 «211 213 310 567 ~~ #571 
575 647 685 776 782 810 
ADDRESS. HEX LOCATION (0000000c) IN CSECT (EEO EO L LENGTH (2) 
179 221 275. 294 305 07 309 328 332 

ADDRESS. HEX LOCATION (00900572) IN CSECT(EEOEO ) LENGTH(1) 
210 225 261 293 304 
ADDRESS. HEX LOCATION (00000568) IN CSECT(EEQEO ) LENGTH(1) 
ADDRESS. HEX LOCATION(0000004C) IN CSECT(EEQEO ) LENGTH(2) 
58 138 66 736 745 

ADDRESS. HEX LOCATION (00000058) IN CSECT(EEOEO ) LENGTH(2) 
ADDRESS. HEX LOCATION(00000056) IN CSECT(EEOEO ) LENGTH(2) 
1501 209. 222 24 689 781 
ADDRESS. HEX LOCATION (00000014) IN CSECT(EEQEO ) LENGTH(2) 
ADDRESS» HEX LOCATION (00000016) IN CSECT(EEOEO ) LENGTH(2) 
ADDRESS. HEX LOCATION(0000005A) IN CSECT(EEOEO ) LENGTH (2) 
ADDRESS. HEX LOCATION (00000082) IN CSECT(EEOQEO ) LENGTH (6) 
ADDRESS. HEX LOCATION (00000062) IN CSECT(EEOEO ) LENGTH (4) 
ADDRESS. HEX LOCATION (00000074) IN CSECT(EEOQEO ) LENGTH (4) 
ADDRESS. HEX LOCATION(0000007E) IN CSECT(EEOEO ) LENGTH(4) 
ADDRESS. HEX LOCATION (00000000) IN CSECT(EEOQEO ) LENGTH(4) 
ADDRESS. HEX LOCATION (00000522) IN CSECT(EEQEO L LENGTH (4) 
219 232 238 #244 °& 250 85 318 367 #370 

592, 618 720 724 731 

ADDRESS. HEX LOCATION(000005D0) IN CSECT(EEOEO ) LENGTH (2) 
ADDRESS. HEX LOCATION(000005CC) IN CSECT(EEOQEO ) LENGTH(4) 
ADDRESS. HEX LOCATION (00000098) IN CSECT(EEOEO ) LENGTH (4) 
ADDRESS. HEX LOCATION(000000D0) IN CSECT(EEQEO ) LENGTH(6) 
ADDRESS. HEX LOCATION (QOOOOOQAC) IN CSECT(EEQEO ) LENGTH(6) 
ADDRESS. HEX LOCATION (OOOO00FC) IN CSECT(EEOEO ) LENGTH (2) 
ADDRESS, HEX LOCATION(O000000A) IN CSECT(EEOEO ) LENGTH (2) 
151. 172 #2173. +2178 

ADDRESS, HEX LOCATION (O00000A0) IN CSECT(EEOEO ) LENGTH (6) 
ADDRESS. HEX LOCATION (000000C4) IN CSECT(EEOEO ) LENGTH(4) 
ABSOLUTE. HEX VALUE (00000028) 

553 646 

ABSOLUTE. HEX VALUE (00000014) 

ABSOLUTE. HEX VALUE (00000232) 

ADDRESS. HEX LOCATION (0000083A) IN CSECT(EEQEO ) LENGTH(12) 
ADDRESS. HEX LOCATION(000009A8) IN CSECT(EEOEO ) LENGTH(1) 
ADDRESS. HEX LOCATION (00000384) IN CSECT(EEQEO L LENGTH (1) 
339 331 336 337 354 55 357 358 359 
ABSOLUTE. HEX VALUE (00000027) 

554 557 44 682 =2=7 

ADDRESS, HEX LOCATION (00000032) IN CSECT(EEOQEO ) LENGTH(1) 
ADDRESS. HEX LOCATION (00000364) IN CSECT(EEOEO ) LENGTH(1) 
ADDRESS. HEX LOCATION(0000054C) IN CSECT(EEQEO ) LENGTH(2) 
ADDRESS, HEX LOCATION (00000040) IN CSECT(EEOQEO ) LENGTH(2) 
ADDRESS. HEX LOCATION (00000022) IN CSECT(EEOEO ) LENGTH(2) 
ADDRESS. HEX LOCATION(0000001A) IN CSECT(EEQEO ) LENGTH (2) 
ADDRESS. HEX LOCATION (0000001C) IN CSECT(EEQEO ) LENGTH (2) 
ADDRESS. HEX LOCATION (009000 1E) IN CSECT(EEOEO ) LENGTH(2) 
182 218 231 237 ~=©243 49 283 365 368 


EEQEO -- 


DECLARED 


103 
399 
859 


375 
36 
85 
41 
93 

129 

130 
42 
87 

745 

641 

650 

675 

697 

681 

6 86 

694 

736 

738 


737 
739 
741 
209 
220 
251 
245 
239 
233 
89 
90 
99 
84 
837 
62 
72 
121 
94 
43 
50 
424 
47 
44 
48 
206 
261 
282 
293 
304 
327 
365 
368 
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NAHE 
DEVY 
DGDCB 
DR BUF 


DRDCB 
EEO EO 
ER 
EXIT 
GI 
HO000 
H0O001 
IDLE 
IN 
INTBL 
INTER 
INTET 
IN TOK 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOERR 
IOMNOD 
IORSP 
ITST4 
ITst5 
ITST6 
ITst?7 
ITST8 
ITST9 
LE 

LI 
LSTIO 
HI 
MLOAD 
OPTN1 
OPTN3 
PCTR 
PE 
PREP 
PRNTRTN 
RDDCB 
RESET 
RICB 
RID 
RTO1 
RTO2 
RTO2E 
RTO3 
RTOY 
RTO5 
RTO5E 
RT5E1 


SUBSYSTEM SYS. TST. EX 


PN=44 12858 


CROSS~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


ADDRESS. HEX eee noo eek IN 
18 7 366 69 
hee HEX LOCATION (00000374) IN 
DRESS. HEX fair ea a cy tas» IN 
228 231 233 234 37 
246 249 277 279 282 
362 366 369 383 407 
RESS. HEX eee et elas taadad | IN 
262 265 268 271 87 
CT. START(00000000) LENGTH (247 
OLUTE. HEX Se 
90 650 710 721 
OLUTE. HEX VALUE (00000006) 
OLU Es HEX VALUE (00000029) 


HEX LOCATION(0000005C) IN 
. HEX LOCATION(0000005E) IN 
HEX VALUE (00000002) 
HEX VALUE (00000023) 
586 681 
HEX LOCATION(00000560) IN 
HEX LOCATION (000004B8) IN 
HEX LOCATION (000004D0) IN 
HEX LOCATION (000004D4) IN 
HEX LOCATION(0000050A) IN 
SS. HEX LOCATION (000004E2) IN 
651 679 
RESS. HEX LOCATION(O00004FO) IN 
SS. HEX LOCATION (00000504) IN 
HEX LOCATION (00000554 IN 
HEX LOCATION (00000558) IN 
484 487 490 93 


mam w ma Ww 
wy wy J ot 
Yn 
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HEX POCATION (00000556) IN 
. HEX LOCATION (O00Q05SA) IN 
SS. _HEX LOCATION (0000055E) 
31 HEX LOCATION (00000118) IN 
HEX LOCATION (00000146) IN 
HEX LOCATION(000001C6) IN 
HEX LOCATION (000001AE) IN 
HEX LOCATION (00000196) IN 
HEX LOCATION(0000017E) IN 
HEX VALUE (00000025) 
E. HEX VALUE (00000026) 
HEX EOCATH gH (00990018) 3" 
HEX VALUE (00000020) 
HEX LOCATION (0000061E) IN 
HEX LOCATION(OOOQO00E) IN 
HEX LOCATON (00000012) IN 
HEX LOCATION (00000042) IN 
. HEX VALUE (0000002a) 
HEX VALUE(0000000C) 
HEX VALUE (0000181E) 
RESS. HEX LOCATION(00000394) IN 
OLUTE. HEX VALUE (00000008) 
OLUTE HEX VALUE (00000013) 
OLUTE. HEX VALUE(00000009) 
RESS. HEX LOCATION (00000108) IN 
RESS. HEX LOCATION(000001CA) IN 
RESS. HEX LOCATION(00000226) IN 
ESS. HEX LOCATION(0000023C) IN 
ESS. HEX LOCATION (0000024E) IN 
ESS. HEX LOCATION (0000028C) IN 
ESS. HEX LOCATION (00000336) IN 
ESS HEX LOCATION (00000344) IN 
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CSECT (EEOEO 
CSECT (EEOEO 


CSECT (EEOEO 
239 240 
283 311 
419 432 

CSECT (EEOEO 


2) ESDID(0) 


CSECT (EEO EO 
CSECT (EEO EO 


CSECT (EEOEO 
CSECT (EEOEO 
CSECT (EEOEO 
CSECT (EEOEO 
CSECT (EEO EO 
CSECT (EEOEO 
CSECT (EEOEO 
CSECT (EEOEO 
CSECT (EEO EO 
CSECT (EEOEO 
496 499 
CSECT (EEOEO 
CSECT (EEQEO 


N CSECT(EEOEO 


CSECT (EEO EO 
CSECT (EEOEO 
CSECT (EEOEO 
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275 R2TST ADDRESS. HEX LOCATION (0000020) IN CSECT(EEOEO ) LENGTH (6) 
351 RSTST ADDRESS; HEX LOCATION (000002 F8) IN CSECT(EEOEO ) LENGTH (6) 
4 36 SCDCB ADDRESS. HEX LOCATION(000003A4) IN CSECT(EEOEO ) LENGTH(1) 
832 SCNTB ADDRESS. HEX LOCATION (QOOOOSFE) IN CSECT(EEQEO ) LENGTH(10) 

45 START ABSOLUTE. HEX VALUE (00000003) 

46 TERM ABSOLUTE. HEX VALUE (00000007) 

66 TM ABSOLUTE. HEX VALUE(00000003) 
831 TST# ApaRESS. “HEX LOCATION (000005FC IN CSECT(EEOERO ) LENGTH(2) 
8 30 TSTAD ADDRESS, °uEx. LOcaTEON (000005FA aN CSECT(EEQEO ) LENGTH(2) 
829 TST5 ADDRESS. HEX LOCATION(OQO00SF4) IN CSECT(EEOEO ) LENGTH (6) 
8 28 TST6 ADDRESS. HEX LOCATION(OQQOOSEE) IN CSECT(EBZOEO ) LENGTH (6) 
827 TST7 ADDRESS. HEX LOCATION (000005E8) IN CSECT(EEOEO ) LENGTH (6) 
8 26 TST8B ADDRESS. HEX LOCATION(000005E2) IN CSECT(EEOEO ) LENGTH (6) 
131 TYPE23 ADDRESS, HEX LOCATION (00000060) IN CSECT(EEOEO ) LENGTH (2) 
460 WRDCB ADDRESS. HEX LOCATION (000003C4) IN CSECT(EEOEO ) LENGTH(1) 
448 WIDCB ADDRESS. HEX LOCATION (000003B4) IN CSECT(EEOEO ) LENGTH(1) 

88 XE ABSOLUTE. HEX VALUE (00000024) 

86 XI ABSOLUTE. HEX VALUE (00000022) 
706 XIOCK ADDRESS. HEX, LOCATION (0000050C) IN CSECT(EEQEO ) LENGTH(2) 
712 XIOCM ADDRESS. HEX LOCATION (00000518) IN CSECT(EEOEO ) LENGTH(2) 
499 XIOCR ADDRESS. HEX LOCATION (0000041A) IN CSECT(EEQEO ) LENGTH(6) 
555 XIOCS ADDRESS. HEX LOCATION (0000043A) IN CSECT(EEOEO ) LENGTH(6) 
724 XIOCU ADDRESS, HEX_LOCATION (00000538) IN CSECT(EEQEO ) LENGTH(4) 
721 XIOCV ADDRESS. HEX LOCATION (00000530) IN CSECT(EEOEO ) LENGTH (2) 
725 X1OCX ADDRESS. HEX LOCATION (0000053C) IN CSECT(EEOEO ) LENGTH(4) 
484 XIODG ADDRESS. HEX LOCATION (000003D4) IN CSECT(EEOEO ) LENGTH (6) 
487 XIODR ADDRESS. HEX LOCATION(000003E2) IN CSECT(EEOEO ) LENGTH(6) 
615 XIOER ADDRESS. HEX LOCATION (QOOOO4AC) IN CSECT(EEOEO ) LENGTH(2) 
727 XIOGI ADDRESS. HEX LOCATION (00000544) IN CSECT(EEOEO ) LENGTH(2) 
496 XIORD ADDRESS. HEX LOCATION (0000040C) IN CSECT(EEQOEO ) LENGTH(6) 
490 XIOSC ADDRESS. HEX LOCATION (000003F0) IN CSECT(EEOEO ) LENGTH (6) 
502 XIOWR ADDRESS. HEX LOCATION(00000428) IN CSECT(EEQEO ) LENGTH(6) 
493 XIOWT ADDRESS. HEX LOCATION (000003FE) IN CSECT(EEOEO ) LENGTH (6) 
561 X101 ADDRESS. HEX LOCATION (OO0QQ44E IN CSECT(EEOEO ) LENGTH (4) 
573 XI02 ADDRESS. HEX LOCATION(00000476) IN CSECT(EEQEO ) LENGTH(2) 
580 X105 ABDRESS. HEX LOCATION (0000048C) IN CSECT(EEOEO ) LENGTH(2) 
581 X106 ADDRESS. HEX LOCATION (Q000048E) IN CSECT(EEOEO ) LENGTH (2) 
583 XI08 ADDRESS. HEX LOCATION(00000492) IN CSECT(EEOEO ) LENGTH (2) 
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E3DEO --- SYSTEM TEST EXERCISOR FOR THE 3920 FLOAT PN=44194311 EC=754882 
| CROSS-REFERENCE LISTING 
DECLARED NAME ATTRIBUTES AND REFERENCES 
0 .FRO. ABSOLUTE, HEX VALUE (00000000) 
0 -PR1. ABSOLUSE. HES VALUE 30000001) 
0 -FR2. ABSOLUTE HBX’ YaLUE (90000002) 
0 .FR3. ABSOLUTE, HEX VALUE (00000003) 
: ones RBSoLuae, ioe) Aenea 1 ee 1) 204 204 #205 £207 
: oe ABSOLUTE, saat iam toy Ba 309 311 313 315 
.R3. ABSOLUTE. HEX VALUE (00000003) 
294 295 339 342 352° 377 
a 103. 103 BET 69. 370) 371 376 380 387 
ees tee 582 FE tee fp ffogRe>) 351 375 378 383 
: Oe ABSOLUTE, saat 1 tee 1S a Sa 190 191 198 202 
206 225 229 230 236 240 243 «259 #8 263 
264 270 274 #2377 +298 318 346 374 379 
: au 187 187 iat Than 2) hee th 202 211 #42+212 226 
226 228 236 237 £240 242 245 246 #260 
260 262 270 271 «2°1274 +276 279 «280 8 292 
293 296 338 341 343 343 345 351 372 
60 $CKPT ADDRESS. HEX LOCATION(0000000C) IN CSECT(E3DEO ) LENGTH(2) 
123 $DVAD ADDRESS. HEX focat#ox (0000004C) IN CSECT(E3DEO ) LENGTH(2) 
127 $MXSL ADDRESS. HEX LOCATION (0000005A) IN CSECT(E3DEO ) LENGTH(2) 
140 $PENT ADDRESS, HBX LocaTToy (0099907C ay" re hae ee ) LENGTH (6) 
55 $PID ADDRESS. HEX LOCATION(00000000) IN CSECT(E3DEO ) LENGTH(4) 
386 $PRN1 ADDRESS. HEX LOCATION (000002A6) IN CSECT(E3DEO ) LENGTH(2) 
385 $PRN2 ADDRESS. HEX LOCATION(000002A2) IN CSECT(E3DEO ) LENGTH(4) 
149 $PUP2 ADBRESS. HEX LOCATION (000000A6) IN CSECT(E3DEO ) LENGTH(2) 
159 $PUPS ADDRESS. HEX LOCATION (000000B8) IN CSECT(E3DEO ) LENGTH(6) 
172 $RTAD ADDRESS. HEX LOCATION (000000D4) IN CSECT(E3DEO ) LENGTH (2) 
59 $RTNE ADDRESS; HEX, LOCATION (0000000A) IN CSECT(E3DEO ) LENGTH (2) 
154 STERM ADDRESS. HEX LOCATION(OOOQOOOAA) IN CSECT(E3DEO ) LENGTH (1) 
398 ARRAY ADDRESS, HEX LOCATION (00900288) IN CSECT(E3DEO )_ LENGTH (2) 
319 321-323) 325 = 327.3329. 339347 
399 ARR1 ADDRESS. HEX LOCATION (000002BA) IN CSECT(E3DEO ) LENGTH(8) 
435 ARR1A ADDRESS. HEX LOCATION (000003DA) IN CSECT(E3DEO ) LENGTH(2) 
403 ARR2 ADDRESS, HEX LOCATION (000002DA) IN CSECT(E3DEO ) LENGTH(8) 
4 36 ARR2A ADDRESS. HEX LOCATION (000003DC) IN CSECT(E3DEO ) LENGTH(2) 
407 ARR3 ADDRESS. HEX LOCATION (000002FA) IN CSECT(E3DEO ) LENGTH(8) 
437 ARR3A ADDRESS. HEX LOCATION(000003DE) IN CSECT(E3DEO ) LENGTH(2) 
412 ARR4 ADDRESS, HEX LOCATION (00000322) IN CSECT(E3DEO ) LENGTH(8) 
438 ARR4A ADDRESS. HEX LOCATION(000003E0) IN CSECT(E3DEO ) LENGTH(2) 
417 ARRS ADDRESS. wEx LOCATION (0000034A) IN CSECT(E3DEO ) LENGTH(8) 
439 ARR5A ADDRESS. HEX LOCATION (000003E2) IN CSECT(E3DEO ) LENGTH (2) 
422 ARR6 ADDRESS. HEX LOCATION (00000372) IN CSECT(E3DEO ) LENGTH(8) 
427 BUFFR ADDRESS, HEX LocaTTON (0090039A) IN CSECT(E3DEO ) LENGTH(8) 
431 BUF 1 ADDRESS, HEX LOCATION (000003BA) IN CSECT(E3DEO ) LENGTH (8) 
432 BUF2 ADDRESS. HEX LOCATION(000003C2) IN CSECT(E3DEO ) LENGTH(8) 
433 BUF3 ADDRESS, HEX LOCATION (000003CA) IN CSECT(E3DEO ) LENGTH(8) 
434 BUPF4 ADDRESS. HEX LOCATION (000003D2) IN CSECT(E3DEO ) LENGTH(8) 
337 CHECK ADDRESS. HEX LOCATION (00000230) IN CSECT(E3DEO ) LENGTH(1) 
340 CHEK1 ADDRESS. HEX LOCATION (00000236) IN CSECT(E3DEO ) LENGTH(4) 
347 CHK WD ADDRESS. HEX LOCATION(0000024A) IN CSECT(E3DEO ) LENGTH(6) 
51 CPUTYPE ABSOLUTE. HEX VALUE (00000232) 
371 ERROR ADDRESS. HEX LOCATION (00000270) IN CSECT(E3DEO ) LENGTH(2) 
132 EXCAS ADDRESS. HEX LOCATION(00000064) IN CSECT(E3DEO ) LENGTH(2) 
36 E3DE0 ESECT. | START (00000000) LENGTH (998) ESDID(0) 
96 FI ABSOLUTE. HEX VALUE (0000002D) 
95 FP ABSOLUTE. HEX VALUE (0000002C) 
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FOR THE 3920 FLOAT PN=4414311 
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C34A1 - PARITY TEST FOR FIRST 16 K OF STORAGE 4414305 EC=754882 PAGE 01 C34A1 - PARITY TEST FOR FIRST 16 K OF STORAGE 4414305 EC=754882 PAGE O1A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 ** C34UA1 EC HISTORY ** * 52 
4 Se a a a ea a eg oe eee eee eee eae eee ae, noeoed Seine oo0o0oc 135 2DISK a Opeep PREPARE OPERATION (ALLOW ENTERERP TS — 
5 * * 123 * 
3 - ee x PREREQUISITES KK : 124 ae SEEK TO PROPER TRACK AND READ PROGRAM 
: NONE : 900068 880C 3048 126 ZGO Io ZSEEK+H3012 SEEK OPERATION 
YQ 2K 2K ae ae a 2 2 2K ee ie a 2 fe a ik 2c ic ae af oe 2c 2K 3c of fc 2 2c afc ik cafe otc ae ae ae fc af ae af fe ae ic oe ae ik af afc 2k afc ke af afc akc akc oie ake ofc ke oc ate oe 2 oie 2k 2c ok 2k oe ok ok pone ce Pant ee ecete Boe OnE PARSER ATE Coos upae 
11 * * 000070 712A 130 SW R1,R1 ZERO 
12 * KK MODIFICATIONS a * 000072 0101 131 BEGN2 ABIL ONE, R1 INCREMENT FOR COUNT 
13 * * 000074 1I8FE 132 JNZ  BEGN2 BRANCH TO DELAY 
a : NONE : pouOTe ery 133 BEGN1 MVB GRA) RS CHECK FOR PARIT 
16 He fe 3h ak oe Oe fe ak afc oe fe oe ake af ake ake aK oh oie ake ake of aK oi ofc afk ak ate ake ae ak ake oe ake afc ale ofc afc ake ae aie afc ofc ake af ole afc age ake ake ait ofc ofc aie ake ae ake ake ake ake afk ak ae ake ofc ofc afc kk afc ae oie Be OOTK 7906 “ood ise ee OOOO LRT ee een dae oupee ooo 
17 * x QOOOO7TE 18F8 136 JNE BEGN1 BRANCH 
18 * He REA'S INCORPORATED 6 a8 000030 6201 137 WRITE EN ONE ENABLE ALL INTERRUPTS 
19 * * 000082 4124 3032 138 MVWI H3032,R1 LOAD START ADDRESS OF RELOCATED CODE 
20 * NONE * 000086 4224 0020 139 MVWI HOO20, R2 LOAD FROM ADDRESS OF 
21 * * 00008A 4724 OOFO 140 MVWI HOOEO,R7 LOAD LENGTH OF MOVE 
22 ae ee ae 2K akc afe of ake ae fe afc ak afe ake afc ae ac oe fe af afc afc ate ok aie ote ote fe 2c ke ofe aie aie ak ote aie ake ate ak ole afc 2k aie ofc ak ake ake ofc ote he ik ate af afc ake oe ate ake ofc ak ok als ofc fe ofc ake ote ak aie ke OOOO8E 2A24 141 MVFN (BZ), (RT MOVE THE CODE 
23 * * 000090 6802 3034 142 B 30 BRANCH TO CODE ENTRY POINT 
24 #3 SPECIAL INSTRUCTIONS aoe * 000094 6908 O00CO 143 MCK16 MVW LSBR1, R1 RELOAD R1 
25 * * 000098 4224 342E 144 MVWI H342E,R2 LOAD LED MSG 
eo ; NONE : 00909 7830 145 SECON R2 OUTPUT MSG 
2B AA RK a ie eK 2K 2 Ke aK OK 2 ie 2 ae ee 2 a ie 2 af Hee 2 ae ie ic fc i 2 fe ae ac 2c oe 2c ae a 2c ae oie aie ake a 2 ak fe fe af ae ae ae ok ok 2k 2k 2k 2k 2k ok ok ok ok Soon aL rt OO1E 00A8 aac a Boeuve CONT SO, GNeeccuore ee POINTER 
29 * ae i OO0OOA6 SOFF 148 HANG J HANG WAIT FOR INTERRUPT 
43 a ees glk ° * QOOOAC 4020 Ode 0080 gg 860) NN WBE ee! Coupe SET UL CONSULS SHEERRGDE POIN 
: U O INTERRUPT TER 
32. DATE 15SEP77 DATE DATE DATE * JOOOB2 7830 151 SECON R1 7 OUTPUT DATA 
aE : E.C. 754882 E.C. E.C. E.C. : O000BY4 6201 152 EN ONE FNABLE INTERRUPTS 
35 So Pet ee Se SSP SLL SS SSS SSS SSS SLE SLL SSL SESS SSS SS SSS SS SSS SSS SS SSS SESS SSS LSS SS 2 5 000086 SOFF ee HANG J HANG1 HANG FOR EVER 
See ae a6 one cn ar ee. Ave ee ADDRESS 139 a AREA ALLOCATED TO SAVE ACTUAL LSB DURING CLASS INTERRUPTS 
C00020 39 HOO20 EQU X'0020! START ADDRESS OF RELOCATED CODE O000BB8 157 LSB EQU x 
000030 40 HO0030 EQU X¥'0030'! INTERRUPT TABLE FILL BYTE 0000B8 158 LSTIAR EQU * IAR 
0000R0 4&1 HOOEO EOU X*OOEO! LENGTH OF CODE MOVE O0OOO0BA 159 LSAKR EOU *ED AKR 
000200 42 HO200 EQU X'*0200° LENGTH OF INTERRUPT TABLE FILL Q000BC 160 LSLSR EOQU *+4 LSR 
003030 43 H3030 EQU X¥'30308 LOCATION USED FOR INTERRUPT POINTER VOOOBE 161 LSBRO EQU x46 RO 
003032 44 H3032 EQU X¥'*3032!' START ADDRESS OF RELOCATED CODE 0000CO 162 LSBR1 EQU *x+8 R1 
0030 34 45 H3034 EOQU X'*3034' BRANCH POINT INTO RELOCATED CODE 0000C2 163 LSBR2 EOU *+10 R2 
003012 46 H3012 EOQU X¥*3012!' RELOCATION DATA CONSTANT 0000c4 164 LSBR3 EQU +12 R3 
003013 47 H3013 ROU ¥'*3013' RELOCATION DATA CONSTANT 0000C6 165 LSBR4 EQU +14 RY 
O¢ 4000 48 H4000 EQU X'4QOO8 LAST ADDRESS FOR TEST 00008 166 LSBRS EOQU *+16 R5 
ERE 3 aude pou feauda LED BeEon cope apne: eee ey ee rg 
ooo0occ 168 LSBR7 EOU *+20 R7 
gpagee 443g 20 gh START Bung, HyeAte ENED BEB TASS°T EE a 
R 000000 170 END ST 
000006 5033 54 J BEGIN RESTART BRANCH we 
55 *** CLASS INTERRUPT "LSB' AND "SIA* POINTERS 
000003 00B8 56 DC A tee) MACHINE CHECK LSB POINTER 
OOOO0A 0094 22 NCKPT DC A (MCK 16) * tt tt 6STA we 
00000c 6000 59 ZPREP DC X'6000!8 "PREPARE!" IDCB 
QOOO000ER 0001 66 20001 DC X'0001°8 * (LEVEL 0, ENABLED) 
62? AK oe ok fe fe 2 fe ake ak fe fe oe ok 2c ake ofc ofc ae ke ae fe afc oe aie ie ok ae ake oe 2c oc afc ofc ak ae ake fc ae ole oe of a afc oc ae fe ake afc ae 2c ofc 2h ak oc afc ae ae oe ac fe he ae ee oe ac ok oie ok 3 
63 * 
6h as CONS *** CONSOLE INTERRUPT SERVICE SUBROUTINE 
66 I AK 3 fe a ae ofc oe ae a 2 ake ok oie ok oe aK ok ie ke ae ofc ok oie oie ic ate afe ote 2c aie ake ate oe oe ake ok ole ak ake ai ofc 2k of ate ok ofc oie ake 2c 2K oie afc afc ae oe ac fe oe ae ak fe 2h 2k oie oie ake ok ake ake oie 
000010 6580 67 CONS DIAG x*8s0o! CLEAR DATA BUFFER 
000012 0021 68 DC X'0021! * 
000014 0000 69 DC X'00008 * 
000016 7819 70 CPCL RO GET CURRENT LEVEL 
000018 5826 OOB8 71 SELB R0O,LSB RETURN TO MAIN PROGRAM 
72 ie ate ae 2k ac ake afk ic oe aie ae ok ak ote ate ake ae ake ake fe fe afe fc ae oie ok fk oie 2k aie ae oe ote afc fe ak aie akc ofc ae ae aie oc ok oie ac oie ok abe ok of ole fc ofc ofc ae ik aie ae of oft ofc ok ik ic oie ok ak oe ok ok 
QO000C1C OOB8 73 pc A ieeue CONSOLF INTERRUPT LSB POINTER 
QOOO1TE 0010 74 CONPT DC A (CONS) * tt ‘et TA tt 
75 He He Hee eK ae ie ak oie of ae ke ak oe akc ake oie he fe he oie 3 of 28k oie ake fe aie oie oie ake oe ake aie age aie ac oi ate oie ok ae ake oi ae afc afc ae ak ak ote oie ake oe ae ae ie fe ic oe ik ie oe akc ae ae akc ote he ae 
000020 501C 76 J ZG FIRST INTERRUPT ENTRY 
000022 4124 0030 77 MVWI HOO30,R1 LOAD REG WITH FILL BYTE 
000026 4724 0200 78 MVWI HO200,R7 LOAD REG WITH LENGTH 
OOO0O2A 7144 719 MVW R1, R2 LOAD REG WITH START ADDRESS 
00002C 294C 80 FFN R1 §E2), FILL IN TABL 
QO0O2E 4020 3030 3032 81 MVWI H3632,H3030 INIT INTERRUPT ADDRESS 
000034 6101 82 ONE LEVEL EXIT 
83 PtP PPS SSS SSS SLES SLES SS LSS SES SSS SSS SSS SSS SSS LS SESS SSS SPSS SL LSS SSS SS SSS SSF: 
85 
BG — DISK I/O IDCB*S AND DCB'S 
BQ Km na a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a = a ee ee 
89 * 
000036 7000 90 ZSEEK DC X'7000! 'SEEK' IDCB 
000038 304C 2) . DC A (ZSEE+X*3012') * 
ag cc as UR geese per Aa 
00003A 8005 95 ZSEE DC x'goos? 'SEEK' DCB (CONTROL WORD) 
00003c 0004 96 ZDIFA DC X'O0048 SEEK DIFF. 
00003E 0000 97 pc A (*-* 
000040 0000 98 DC A (*-* 
000042 0000 99 ZDIFB DC A (*-* 
QO00044 305C¢ 100 DC A(ZREA+X*3012°) CHAIN ADDRESS : 
000046 0000 101 DC A (*-* 
000048 0000 102 DC A ++} 
103 * 
104 *------------------------------- -- +++ +--+ + + + + + + 
105 * 
QO004A 2009 106 ZREA DC X*2009!8 "READ* DCB (CONTROL WORD) 
00004C 00000000 107 DC 2A (*—*) * NOT USED 
000050 1004 108 ZREA1 DC X' 1004 * SECTOR LENGTH CYLINDER ADDRESS 
000052 0001 109 ZREA2 DC X*OOO18 * HEAD/RECORD NUMBE 
000054 0000 110 DC A (+4) * NOT USED 
000056 OFGO 111 ZREA3 DC X*OFOO® * BYTE COUNT {FUL TRACK) 
000058 0000 112 ZREAYW DC A (START) * DATA ADDRES 
114 (RRO OI OO OR IC OR OI IRI OR IOI IOI IOI I I ICI I i tei kak fC ake ake ke ake ake ake he akc ie ake kc af ake ake ake fe afc 
115 * 
16 ia ZG ****** ROUTINE FOR FETCHING THE NEXT PROGRAM FROM THE IPL DISK 
LER t tt SSS PSSST SSS TSS EST SS PSS TESST ST SESE SS SES SSL SS SSS SSE SSS SSS SS SS SSS SSS 2 8 Ss 
Q0005A C728 OOOD 119 ZG MVB R7,ZPREP+ONE MOVE *DA* OUT OF R7 INTO SAVE LOCAT 
00005B C728 3049 120 MVB R7, ZSEEK+H3013 * 
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C34A2 - CPU PARITY TEST INTERNAL STORAGE 16K AND U 4414307 §EC=754882 PASE 01 
OBJECT TEXT 


SOURCE STATEMENT COPYRIGHT IBM CORP 1976 


** C34A2 EC HISTORY ** * 
KEARERER ERED CRREOEGRED HOES ESS EOEN EEEES OE EERSR CARER LEER EEW RENE SER CRS ERS 


** % PREREQUISITES ee 
NONE 
FOIORIOIOIOIO RIGO IOI I OI OO OOK OR I iim kkk tok dk 


HHH HH 
HHH HH 


* tok MODIFICATIONS 4K * 
. NONE : 
rok ROR io tok kk Rk ok tok joka kk kok kk kok kk kok tok kook ak ic ak ak fe ake ke a ke te tea ake ae take ak ake te oie ie a ae ok ok 
: tk PREA'S INCORPORATED ok * 
. NONE * 
PSS SS SSS SSS SCS SSS SSS SL SSS SSS SSS SS SE SSS SE SESE SSS SS STS SSS ESE STS ESSE SS SS SS SF 
‘ #4 SPECIAL INSTRUCTIONS kK * 
* (NONE * 
Tee Ce CCCSCICCSCSCLCCe CTCL CCS L CCC CCST CTS OCC CCC CCS CLIC SC SPSS CST TST St ee S| 
* 1K E. C. HISTORY OR ; 
| BAEF S305B77 page par ae 

* 


(OOO GO or iO iG ig ORO ii iO IR ii io i ik II iii io 
C34A2 aaa X*Q000"* 


ENTNM E ‘28008 POINTER TO START OF TABLE 
TBST EOQU ENT NMS POINTER TO START OF DATA 
MOVO1 EOU X"3PEES PROG TO MOVE ECP START ADDRESS 
MOVO2 EQU X*"3FF2! a or a 
MOVO3 EOU  X'3FF6* re 
MOVOG EQU X*3FFAt 
MOVOS EQU X*3FFC veo ee enone 
ZERO EQU O 0 
MONE EQU. -1 -1 
ONE EQU 1 1 
THO  EQU 2 2 
THREE EQU 3 3 
SIX EOQU 6 6 
SEVEN EQU 7 7 
HOOFF EQU  X*OOFF® IPL DEV ADDRESS MASK FOR R7 
HO100 EOU X'01008 ERROR COUNTER 
HO230 EQU  X*0230° ADDRESS WITHIN ECP FOR PARMS 
HOFFF EQU  X'OFFF® MASK FIELD 
HFFFC EOU X'FFFC® * 
H2000 EQU X¥'20008 HIGH ORDER PROCESSOR NUMBER 
H1E00 EOU  X*1E00® LENGTH OF MOVE OF 
H3000 EOU x*30008 STGCT = FOR 16K MACHINE 
H34A2 EQU X*'34A2° PID FOR LEDS 
H3FEE EQU X*3FEE! BRANCH TO ADDRESS FOR MOVING ECP 
H3FFE EQU X‘'3FFEt MASK USED TO CHECK FOR 32K 
H3FFF EQU X'3FFF® MASK TO BUMP 16K BLOCK INC. 
H4000 EQU x*4O008 START ADDRESS OF TEST 
HTFFE EQU X'7FFE® MASK USED TO CHECK FOR 48K 
HBFFE EQU  X*BFFE! MASK USED TO CHECK FOR 64K 
HFOOO EQU X'FOOO' 64K MASK 
He KK ok kok PS SSS SSCL ES SSS ES SSS PLS TESTS SESS SSS SESE SS SET ST SSS SSS SES SS SSS SS SS, 
* * 
* * 
+ ALL PROGRAMS FROM THIS POINT START HERE . 
* * 
FO OO RO ORO OR Gi Rigi Rg RI OR RIOR IO io koi i kok tc 
START B STRT RESTART BRANCH 
ZPREP DC X'60008 'PREPARE!* IDCB 
20001 DC x 00018 * (LEVEL 0, ENABLED) 
*** CLASS INTERRUPT "LSB* AND ‘SIA* BOINTERS 
DC A LSB) MACHINE CHECK LSB POINTER 
MCKPT DC A (ERSTP) x tt m A te 
DC A LSB) PROGRAM CHECK LSB POINTER 
PGMPT DC A (ERSTP) * tt A = 
DC A LSB) SUPERVISOR CALL LSB POINTER 
DC A (ERSTP) x out te 6ST tt 
DC A LSB) POWER/THERMAL LSB POINTER 
DC A (ERSTP) * ve STA ut 
DC A LSB) TRACE LSB POINTER 
DC A (ERSTP) * tt ST ve 
DC A(LSB CONSOLE INTERRUPT LSB POINTER 
CONPT DC A (CONS) x Ut ts SIA ue 
DC A (LSB SOFT EXCEPTION LSB POINTER 
DC A (ERSTP) ST 
Sea REe CRMRE Cen, Chey SURE Gd eateries 50 COREE ek kes baee ce ces 
* 
ZDDB_ DC A (ZG02) IPL DEVICE 'DDB' (DEVICE DATA BLOCK 
ZINIT DC A (ZG) COMMON DDB (INITIALLY SET TO THE ADDR 
* OF 'ZG* PON ENTRY EACH TRANSFER 
VECTOR POINTS TO "ZINIT'. INSURING 
* THAT ANY DEVICE ADDRESS FROM WHICH 
* THE IPL WAS RECEIVED WILL BE SERVICED 
* BY THE ROUTINE 'ZG'. WITHIN THE '7G! 
* ROUTINE, THE IPL DEVICE VFCTOR IS SET 
* TO 'ZDDB* AND *ZINIT' IS SET TO 
* ERSTP FOR ANY UNEXPECTED INTERRUPTS. 
STGCT DC A (*-*) BITS 0-3 = HIGHEST INSTALLED INNER 
* * STG SIZE (SET BY CIUA2) 
* BITS 4-15 = NUMBER OF 16K STG BLKS IN 
* * OUTER STG (SET BY CI4A3) 
ZADDR DC A (*-*) CONTENTS OF R7 ARE SAVED HERE DURING 
* * THE POST-IPL INTERRUPT SERV 
* * (DEVICE ADDRESS OF THE IPL DEVICE) 
ECPNX DC A (*-* FLAG AREA TO INDICATE ECP IS 
LSTAD DC A (k—* ADDRESS SAVE AREA FOR BUILDING TAB 
ROR IOI IORI OR i oi bOI OR iii I Or i oR RI rR RIOR gO; aR a gO kok 


TRE CSCI SC CC SCC SCTOCTOCSCC£ CSCC LSE SSCS CT TS CT CTC TT TCT ETT SCS TTS eT TT eee et ee 
ae 
*4* DEVICE DDB POINTERS FROM: DA = 00 ( DDB POINTER = 0030 ) 


=~ 
Lye) 
So 


Sooooecoccoc]e 
OOodoceoooc0cccoco 
CoOCeCecoececooce 
NWNMONNNNNNNDN 
FESWWwwwwuww 
FNC NRPOHDENCO 
OOQOCOCOCCOSO 
OCOCOCCOCOCCOO 
efoleleloleleiloleloale) 
elelelelelelelolealeleo 


DOoOreceocne 
COooocceoo 
ojo} elololelea\e} 
MNMNMNMNNPN 
OMNNnn NE 
OREN O 1)» 
COCOCOCOMw 
OOonoco0ococe 
COMCoCCOoOoO 
OOrOOonuw 


Oo 
o>) 
© 
om) 


eccooceoc 
OoOoooooo 
ooooeceo 
DONDODNDA 
BAAAHAWN 
ONDENOOKTN > 
oCoocea0o7 
NANO OOCOO 
YONRnCOOCO 
OCOyr aNnOwW 


DDOODND 
Oooooeo 
ooo0o°o 
PONHPNhd 
NAIIDOD 
HAE 


OOIQOo0oce 
Ooocooo 
[mn Lest an Taman] any ar 
NOPONMIPODINIDO 
ODmDmDMMM~)~) 
ONENON SY 
—=OOOON 
a iIOwOOS 
Hq¥OOOCCSoO 
COOooa{arTowo 


Oooeoc 
oooo°o 
ooosdo 
PON RRND 
WwW Cccwc 
NOMN> 
MNQIOON 
CODOooOW 
No Once 
HAOO2O© 


elolelelelola) 
OODOCOO 
DAN tye OV 
COOLSOONS 


OOOoo0eo SF COMODO 
© 
oO 
> 
© 


olalolelelels) 
DPOOOCCOS 
QANNANwwwD DW Perrone 
URAAARWIAQ: £ Swann 
OCOmDONOsN CO Cm Jy NOW 
TMHOOOCANN NO HDONMNOCO 
EQ = OOM 


NOMDDRNNPA BR KPHKNNHL 
FON OM RA 


CoOoce eceoc 
OCcoo COCO 
rOoODO VCOON 
Ne DEON 
ANNAN PNA 


RONPONM POND 
COMmMomr mOrmoO 
Soovc opmoo 
NDiee meMNOlCM 


CoCoe cCcoo 
Cay Lad bed Ld Gd GUND PURO NOD DD RD A a ae ced od ed oad cd ed td et OO OO OOOO OOM MOO HOO OOO WMO ODDO OO s)} ~) SII SI IID ANAND ANAHAHININNANNANNNNSSEE ESS SEWWWWWWWwWWWNNNNDDPND 


DONE WI tO DONA WN OW DO SIU WA et OUD SOU EWN et OW OY OUIE WN OD YON EWN AOD DO SAU WD BOOM ON DUNE WN es OW ONAN WN BOD OQAN ES WOU ONOAUIE WA) BOW OWNIANMN EN 


ROMDPRSCRODPDDNDOD KL POD NAN ND PDDD DDD NANIDDRODIDNIDDDID aed and aed cd cad ce ced ce cd wth cad cee a ek ea ceed ceed ech oath ceed ch cae eth ced cee ca cnet ee ca ce cect ce er cere ee eh cnet cee eh ca eth cc ca ce ced ea mee cee ce eh coe ane ce co caf eh ch ae cath a pee od coach cath lh cael ceed contd cas edd od aa are ced 


CPU PARITY TEST INTERNAL STORAGE 16K AND U 4414307 EC=754882 PASE O1A 
OBJECT TEXT 


SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
* TO: DA = FF ( DDB POINTER = 022E ) 
DDBPT DC 128A (ZINIT 

DC 128A (ZINIT 


* 
-SPESS ESL SESS SS SLES ESS ESE L SST ESSE SL SESE SE SES SESS SES SSE SESS ESSE ESTES ESL EE SE FS 


* 
pie AREA ALLOCATED TO SAVE ACTUAL LSB DURING CLASS INTERRUPTS 


LSB EQU  * 
LSTAR DC A (*-* TAR 
LSAKR DC A (*-* AKR 
LSLSR DC A (*-* LSR 
LSBRO DC A (*-% RO 
LSBR1 DC A (*-* R1 
LSBR2 DC A (*-* R2 
LSBR3 DC A (*-* R3 
LSBR4 DC A (*-% Ry 
LSBR5 DC A (e—* R5 
LSBR6 DC A (*-% R6 
LSBR7 DC A (*-* R7 
* 
*** DISK I/0 IDCB'S AND DCBIS 
a carmrnemens Seo Ree See ee ee wma e See e eee ate ee Re eee ee ewe eee eee 
* 
ZSEEK DC X'7000! ‘SEEK* IDCB 
: DC A (ZSEE) * 
ke See weet ee eee See eee eS eee eee ee Se eee ee wee eee Se eee SS Ce eee ees 
* 
ZSEE DC X'8005' "SEEK' DCB (CONTROL WORD) 
ZDIFA DC X*0002' SEEK DIFF. 
DC A (*-* NOT USED 
DC A (*-* NOT USED 
ZDIFB DC A (*-* NOT USED 
DC A (ZREA) CHAIN ADDRESS 
DC A (*—* NOT USED 
m DC A (*-* NOT USED 
ies wes lease ee a ee eae ona eee ae eee se Bee eee oe es ee eee 
* 
ZREA DC X*"AQ09! 'READ' DCB (CONTROL WORD) 
DC 2A fe) * NOT USED 
ZREA1 DC X' 1006 * SECTOR LENGTH/CYLINDER ADDRESS 
ZREA2 DC X*0001' * HEAD/RECORD NUMBER 
DC A (SEEK2) * CHAIN ADDRESS 
ZREA3 DC X'OFOO® * BYTE COUNT (FULL TRACK) 
ZREAW DC A (STRT) * DATA ADD 
ae aa a a a aha ama acu acc wa ee a lca eee cat as a sea 
* 
SEEK2 DC x'8005" (SEEK! DCB (CONTROL WORD) 
DC EL bese NOT USED 
DC X'0 100 SELECT HEAD 1 
DC A (READ2) CHAIN ADDRESS 
: DC 2A (*-*) NOT USED 
konce ae eee se Ose Se eee eee eee ae ek eee eee eee ee eee kee 
* 
READ2 DC x"'2009°8 "READ! DCB (CONTROL WORD) 
DC 2A (#—#) * NOT USED 
DC X'1006 * SECTOR LENGTH/CYLINDER ADDRESS 
DC X'O1018 * HEAD/RECORD NUMBER 
DC A (+ *) * NOT USED 
DC X"OFOO * BYTE COUNT. (FULL TRACK) 
C A (STRT+X*OFOO') * DATA ADDRES 


D 
ee ee eer pea tare Seah he PEA LA LSE poi oer ara me rope ver eT 
* 


vias CONS *** CONSOLE INTERRUPT SERVICE SUBROUTINE 
SOOO OG iO OG OR OR iO iO II OR I IO Fr i IO I IOI IR tO i i 


CONS DIAG xX'!80° CLEAR DATA BUFFER 
DC X*Q021° * 
DC X*0000° * 
CPCL RO GET CURRENT LEVEL 
RO, LSB RETURN TO MAIN PROGRAM 


SEL 
ROI OI TG OO IO OIG IGG IG IOI IOIIGIOICI IGG IGI II IOI sar OI OIOiot 
* 


vt ZG ****** ROUTINE FOR FETCHING THE NEXT PROGRAM FROM THE IPL DISK 
SOI IORI IO IO III IGIOIOI III OR IOI IOI IOI IOI I ICROI RIOR IOI ROR IRR IOC HE i 


ZG BCC THREE,ZG1 TEST IF CC OK 
ERRST B ERSTP IF NO 
ZG1 MVB  R7,ZADDRtONE MOVE "DA' OUT OF RV INTO SAVE LOCAT 
NWI HOOFF,R7 DEVELOP ADDRESS OF IPL-DEVICE VECTOR 
MV OR * (X'DA? 2) + X#30! 
SLL ONE,R * AND SAVE D.A. IN R7 
ZG2  MVA DDB. (RI, DDBPT) SET *DDB' ADDRESS INTO IPL-DEVICE 
rs * TRANSFER VECTOR 
MVA  ERSTP,ZINIT SET TRAP FOR UNEXPECTED INTERRUPTS 
* * INTO REMAINING VECTORS 
MVB  R7,ZPREP+1 * 
HVB RI ZSEEK+1 * 
J sTkt BRANCH TO START PROGRAM 
ZDISK EN ONE ENABLE SUMMARY MASK (ALLOW INTERRUPT) 
10 ZPREP PREPARE OPERATION (ALLOW INTERRUPT) 
BCC SEVEN,ZGO TEST IF CC OK 
: J ERRST IF NO 
*** SEEK TO PROPER TRACK AND READ PROGRAM 
ZGO 10 ZSEEK SEEK OPERATION 
BCC SEVEN,ZGO1 TEST IF CC IS OK 
J ERRST. IF NO 
ZGO1 LEX ONE WAIT FOR SEEK END 
wk * (SERVICE INTERRUPT AT 'ZGO2") 
ZGO2 BCC  THREE,ZGOA BRANCH IF GOOD INTERRUPT 
J ERRST BRANCH IF NOT 
ZGOA MVW  ECPNX,RO TEST IF NEXT PGM IS ECP SUPP 
JZ STRT IF NO GO TO RESTART POINT 
*** MOVE THE ECP SUPR (LOADED AT 'STRT') DOWN TO LOCATION X*0000'. 
**k*k AFTER MOVING, BRANCH TO LOCATION X'0000! 


SCOSTOHOSCOSSHSSCOSSOCOSOSSOOSSOSCOSOCOOO SOSSOSSOSOo 


OFS ESSE SWWWWWWW ty WW WWW Wo Wd We Wo WI Ws Ws Gd os a WW ol Wo Wo WW Wd a WWW WW WW WWWWNDRNDNDN 
CammmOOOCOs AANA OODONNQNQNQNQOQWWWWW SP > Sy OOOO OO ASIA ASAAAONINNES & EB WWWNDD ot ot at sO OO rg 9 Ye tg 
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CPU PAKITY TEST INTERNAL STORAGE 16K AND U 4414307 §EC=754882 PAGE 02 C34A2 - CPU PARITY TEST INTERNAL STORAGE 16K AND U0 4414307 EC=754882 PAGE O2A 


OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
237 * DECLARED NAME ATTRIBUTES AND REFERENCES 
9028 0028 0520 238 ZGOB MVD STGCT,STRT+HO230 SET 'STGCT' AND *ZADDR' INTO SUPERV. 
6802 3FEE 239 B H3FEE PASS CONTROL TO "MOVE! ROUTINE, SET 0 .RO. ABSOLUTE. HEX VALUE (00000000) 
240 * * INTO HIGH STORAGE BY PREVIOUS PGM 198 199 232 286 314° 315 
242 * 0 Rg ABSOLUTE. HEX VALUE (00000001) 
243 *** UNEXPECTED CLASS INTERRUPT TRAP 209. 2102s 271. -s«245)——i HG CO2TSsCiaHBCé«S A t:té«éi'S'S 
6400 244 ERSTP STOP UPEXPECTED ERROR TRAP 256 258 259 £4261 £4262 £49271 «#2276 «277 ~=«=©278 
4124 34A2 245 STRT MVWI f34A2,R1 LOAD PROG ID 288 288 289 294 #+%.295 +%302 #310 #311 312 
7830 246 SECON R41 SET IN LEDS 0 R2: ABSOLUTE. HEX VALUE (00000002) 
4124 0000 247 MVWI ZERO,R1 SET MAX COUNT 256 259 262 276 #295 296 297 #42298 °# 299 
O1FF 248 STRTO ABI MONE-RI1 DECREMENT COUNT 307 
18FE 249 INZ  StRTO BRANCH IF NOT DONE 0 .R4. ABSOLUTE. HEX VALUE (00009004) 
75AA 250 SW R5,R5 ZERO RS 272. «-.273')—~=*«=«<“STHSC‘“‘«‘(TBSCOC820 
D125 2800 251 MVDZ ENTNM,R1 ZERO TABLE START 0 .R5. ABSOLUTE. HEX VALUE (90000005) 
4020 OO2ZE 2806 252 MVWI TBST, LSTAD INIT DATA POINTER 250 250 #317 «320 
4020 OOOA 031E 253 MVA  STRT4,MCKPT INIT MACHINE CHECK POINTER 0 .R6. ABSOLUTE. HEX VALUE (90000006) 
4020 OOOE 0342 254 MVA  PGMCK,PGMPT INIT PROG CHECK POINTER 299. 300 306 £307 #318 °° 320 
4124 3FFE 255 MVWI H3FFE,R1 SET UP FOR TEST OF 32K 0 .R7. ABSOLUTE. HEX VALUE (00000007) 
6A28 0002 256 MVW gat 2 ,R2 DO TEST 207. -208~=o209.~S—=«TH iH S319 
4020 000A 032C 257 STRT1 MVA TRE2, ACKPT INIT MACHINE CHECK POINTER 321 BRNC ADDRESS. HEX LOCATION(00000418) IN CSECT(C34A2 ) LENGTH(4) 
4124 7FFE 258 MVWI H7FFE,R1 SET UP FOR TEST OF 48K 284 
6A28 0002 259 MVW (Ri 2{ R2 DO TEST 310 BUMP ADDRESS. HEX LOCATION (000003F2) IN CSECT(C34A2  ) LENGTH(4) 
4020 OOOA 033A 260 STRT2 MVA TRE3,ACKPT INIT MACHINE CHECK POINTER 301 
4124 BFFE 261 MVWI HBFFE.R1 SET UP FOR TEST OF 64K 276 CKBYT ADDRESS. HEX LOCATION (00000376) IN CSECT(C34A2 ) LENGTH(2) 
6A28 0002 262 MVW ga 2{ R2 DO TEST 279 
4020 0028 FOOO 263 STRT3 nVWI HeO60, St6cr SET 6UK INDICATOR 278 CKBY1 ADDRESS. HEX LOCATION (0000037C) IN CSECT(C34A2  ) LENGTH(2) 
8828 0238 0028 265 PGMCK MVW  ZLSBR1,STGCT RESTORE R 195 CONS ADDRESS. HEX LOCATION (0000028A) IN CSECT(C34A2  ) LENGTH(2) 
402D 0028 OFFF 266 RBTWI HOFFF,STGCT MASK OFF UNUSED BITS 91 
6201 267 TSTSG EN ONE ENABLE INTERRUPTS 37 C34A2 CSECT. START(00000000) LENGTH(1052) ESDID(0) 
4020 OOOE O2EE 268 MVA ERSTP,PGMPT INIT PROG CHECK POINTER 37° 322 
402F 0028 3000 269 CWI #H3000;STGCT CHECK FOR 16K OF STORE 121 DDBPT ADDRESS. HEX LOCATION (00000030) IN CSECT(C34A2 ) LENGTH(2) 
6800 0380 270 BE LDNXT BRANCH IF ONLY 16K 211 
4124 4000 271 MVWI H4O00,R1 INIT R1 113 EC PNX ADDRESS. HEX LOCATION(0000002C) IN CSECT(C34A2 ) LENGTH(2) 
6C08 0028 272 MVW  STGCT, RG INIT RG 232 
7083 OFFF 273 OWL HOFFF,R4G POINT RG AT LAST ADDRESS OF MACHINE 38 ENTNM ABSOLUTE. HEX VALUE (00002800) 
7¢81 0001 274 AWI  ONE,RG * 39. «2512s 298~)— 305 
4020 000A 03B6 275 MVA  MCKBT,MCKPr INIT MACHINE CHECK POINTER 206 ERRST ADDRESS. HEX LOCATION(0000029A) IN CSECT(C34A2 ) LENGTH(4) 
C240 276 CKBYT MVB (R1) ,R2 MOVE A BYTE AT A TIME 221 227.231 
7921 0001 277 AWI ONE.K1 INCRE R1 244 ERSTP ADDRESS. HEX LOCATION (000002EE) IN CSECT(C34A2 ) LFNGTH(2) 
7185 278 CKBY1 CW R1,k4 IS TEST DONE 81 83 85. 87 8 93 206 +213 #4268 
18FB 279 JNE  cCKbYt BRANCH IF NO 66 HBFFE ABSOLUTE. HEX VALUE (0000BFFE) 
9028 O4OA 3FEE 280 LDNXT MVD  LDRS,MOVO1 RELOCATE PROG THAT WILL MOVE ECP 261 
9028 O4OE 3FF2 281 MVD  LDR6,MOVO2 * 56 HF FFC ABSOLUTE. HEX VALUE (0000FFFC) 
9028 0412 3FF6 282 MVD  LDR7,.MOVO3 * 297 
8828 0416 3FFA 283 MVW  LDR8,MOVOY * 67 HF 000 ABSOLUTE. HEX VALUE (0000F000) 
9028 0418 3PFC 284 MVD_  BRNC, MOV05 * 263 
6504 285 DIAG X*0 FIND THE TYPE OF CPU 55 HOFFF ABSOLUTE. HEX VALUE (00000FFF) 
CORB OO2A 286 MVB RO,ZADDR LOAD INTO SAVE AREA 266 4273 
402C 002A 2000 287 Owr #H2600,ZADDR OR IN TO INDICATE 2X TYPE 52 HOOFF ABSOLUTE. HEX VALUE (000000FF) 
712A 288 SW R1,R1 ZERO R1 208 
7830 289 SECON R1 ZERO LEDS 53 HO100 ABSOLUTE. HEX VALUE (00000100) 
582F 0244 290 CPPSR LSBR7 CLEAR PSW 305 
6802 02C0 294 B ZDISK BRANCH 54 HO230 ABSOLUTE. HEX VALUE (00000230) 
6 201 293 MCKBT EN ONE ENABLE INTERRUPTS 238 
6908 0238 298 MVW LSBRI,RI1 RELOAD R1 58 H1E00 ABSOLUTE. HEX VALUE (00001E00) 
7144 295 MVW =o R1,R2 SAVE R1 INTO R2 319 
3210 296 SLC —- TWO, R2 SHIFT TO ISOLATE WHICH 16K BLOCK 57 H2000 ABSOLUTE. HEX VALUE (00002000) 
7FA%4 FFFC 297 RBTWI HFPFC,R2 RESET ALL OTHER BITS 287 
7A41 2800 298 AWI ENTNM,R2 ADD TO START OF TABLE 61 H3FEE ABSOLUTE. HEX VALUE (00003FEE) 
C680 299 MVB (R2),86 LOAD THIS BYTE 239 
F691 300 CBI ONE,R6 HAS THERE BEEN AN ERROR ALREADY 62 H3FFE ABSOLUTE. HEX VALUE(00003FFE) 
1012 304 JE BUMP BRANCH YES 255 
691D 002E 302 MVW  R1,LSTAD* STORE INTO DATA FIELD 63 H3PFF ABSOLUTE. HEX VALUE (00003FFF) 
6CO8 023E 303 MVW  LSBRG, RY RESTORE R4 310 
4UO2E OO2ZE 0002 304 SWI TWO,LSTAD DECREMENT ADDRESS TO INDICATE TYPE 59 H3000 ABSOLUTE. HEX VALUE (00003000) 
4€29 2800 0100 305 AWL HO160-ENTNM ADD ONE TO TOTAL ERROR COUNT 269 
0601 306 ABI ONE, RO BUMP R6 60 H34A2 ABSOLUTE. HEX VALUE (000034A2) 
2688 307 MVB = R6 R2) LOAD NUM INTO DATA AREA 245 
4030 002E 0000 308 MVWI ZERO, LSTAD* ZERO INDICATOR BITS 64 H4000 ABSOLUTE. HEX VALUE (00004000) 
4029 OO02E 0006 309 AWI SIX, £STAD BUMP TO POINT TO NEXT DATA FIELD 271. 31 
7924 3FFF 310 BUMP RBTWI H3FFF,R1 RESET ADDRESS BITS IN Rt 65 H7FFE ABSOLUTE. HEX VALUE (00007FFE) 
7921 4000 311 AWI  H4000-R1 BUMP TO NEXT 16K BLOCK 258 
690D 0238 312 MVW  R1,LSBR1 INDICATE NEW ADDRESS TO TEST 280 LDNXT ADDRESS. HEX LOCATION (00000380) IN CSECT(C34A2  ) LENGTH(6) 
4020 0230 037C 313 MVA  CKBY1,LSIAR INDICATE ADDRESS TO BRANCH TO 270 : 
7819 314 CPCL RO GET LEVEL 317 LDRS5 ADDRESS. HEX LOCATION (OO00040A) IN CSECT(C34A2  ) LENGTH(4) 
5826 0230 315 SELB R0O,LSB BRANCH VIA LSB 280° 
4524 02F0 317 LDRS MVA  STRT,RS LOAD START OF ECP 318 LDR6 ADDRESS. HEX LOCATION (OOO004OE) IN CSECT(C34A2 ) LENGTH(4) 
4624 0000 318 LDR6 MVWI ZERO,R6 LOAD TO ADDRESS 284 
4724 1E00 319 LDR7 MVWI H1E060,R7 LOAD LENGTH 319 LDR? ADDRESS. HEX LOCATION (00000412) IN CSECT(C34A2 ) LENGTH(4) 
2DC4 320 LDR8 MVFN fB5) « (RO) MOVE ECP 282 
6802 0000 321 BRNC B AD ZERO BRANCH TO START ECP 320 LDR8 ADDRESS. HEX LOCATION (00000416) IN CSECT(C34A2 ) LENGTH(2) 
129 LSB ADDRESS. HEX LOCATION (00000230) IN CSECT(C34A2 _} LENGTH(1) 
RO 82 84 92.199 315 
134 LSBR1 ADDRESS. HEX LOCATION (00000238) IN CSECT(C3GA2 ) LENGTH(2) 
137 LSBR4& ADDRESS. HEX LOCATION (0000023E) IN CSECT(C34A2  ) LENGTH(2) 
140 LSBR7 ADDRESS. HEX LOCATION (00000244) IN CSECT(C34A2  ) LENGTH(2) 
130 LSIAR ADDRESS. HEX LOCATION (00000230) IN CSECT(C34A2 ) LENGTH(2) 
114 LSTAD ADDRESS. | HEX LOCATION (00Q0002E) IN CSECT(C34A2 ) LENGTH(2) 
293 MCKBT ADDRESS. HEX LOCATION(000003B6) IN CSECT(C34A2  ) LENGTH(2) 
81 MCKPT ADDRESS. HEX LOCATION (0000000A) IN CSECT(C34A2  ) LENGTH(2) 
253 257 #260 £275 
46 MONE ABSOLUTE. HEX VALUE (FFFFFFFF) 
40 MOVO1 ABSOLUTE. HEX VALUE (00003FEE) 
41 MOVv02 ABSOLUTE. HEX VALUE (00003FF2) 
42 MOV03 ABSOLUTE. HEX VALUE (00003FF6) 
43 NOVO ABSOLUTE. HEX VALUE (0U003FFA) 
44 MOVOS ABSOLUTE. HEX VALUE (00003FFC) 
47 ONE ABSOLUTE. HEX VALUE (00000001) 
207 210 218 £4228 ##267 ° #2=+274 +«&2«&3r277+ «22293 ~=©300 
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66 
297 
338 
302 
298 
293 
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189 
197 

51 

en 
61 
71 
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OUTER STORAGE PARITY CHECKER 
CROSS-REFERENCE LISTING 


NAME 
H8000 
LDNXT 
LOADN 
LSAKR 
LSB 
LSBRO 
LSBR1 
LSBR2 
LSBR7 
LSIAR 
LSTAD 
MCKPT 
MCKST 
MCKS1 
MCKS2 
MONE 
ONE 
PASCT 
PGM PT 
RESRT 
RETST 
RTN 
RTNO1 
RVIAL 
SG15B 
SG16A 
START 
STGCT 
STG18 
STG19 
STG22 
STG24 
STG27 
STG28 
STG30 
STRT 
ST RT 1 
TABST 
TCLIG 
TCLI1 
TCLI2 
TELB 
TRANS 
TSTCN 
TSTMK 
TSTNX 
TSTRN 
TSTSG 
TWO 
WREG 
WREGS 
ZADDR 
ZDIFA 
ZDISK 
ZERO 
ZREA1 


ABSOLUTE. 
307 
ADDRESS. 
116 118 
ADDRESS. 
268 304 
SOLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 


OLUTE. 
311 


Oo oO 
ct oS. cet 
a a ge 
tHj—t3 
teat tt 

s e 


ts 

Nn 

ONS a 

t wo a 
Wwe Ww 


ESS. 
3 
ESS. 
LUTE. 
257 
LUTE. 
279 
RESS. 
267 
OLUTE. 
120 
RESS. 
RESS. 
RESS. 


RESS. 
22 
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oO BD Ba BD OO 


DRESS. 
caine 
SOLUTE. 
1 227 
peer 
ata 
DRESS. 
0 19 


~ 


DRESS. 
DRESS. 
DRESS. 


DRESS. 
RESS. 
RESS. 
RESS. 


RESS. 
RESS. 
RESS. 
34 
RESS. 
RESS. 
OLUTE. 
272 


R 
RESS. 
OLUTE, 
273 
OLUTE. 
OLUTE. 
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HEX 


ATTRIBUTES AND REFERENCES 


VALUE (00008000) 


PN=4414309 


HEX LOCATION (00000458) IN CSECT (C343 
HEX LOCATION (000004DA) IN CSECT(C34A3 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
3 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
3 
HEX 
2 
HEX 
1 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
2 
HEX 
HEX 
HEX 
HEX 


VALUE (00000232) 
VALUE (00000230) 
VALUE (00000236) 
VALUE (00000238) 
VALUE (0000023A) 
VALUE (00000244) 
VALUE (00000230) 
3¥ALUE (90009028) 
VALUE (0000000a) 
LOCATION (00000500) 
LOCATION (00000528) 
LOCATION (00000524) 
VALUE (FFFFFFFF) 
VALUE (00000001) 
LOCATON (00000438) 
VALUE (90000008) 
LOCATION (00000572) 
LOCATION (00000320) 
LOCATION (000003FC) 
LOCATION (00000408) 
LOCATION (0000053) 
LOCATION (000003BC) 
LOCATION (00000386) 
LOCATION (000002F0) 
g VALUE (00000028) 
LOCATION (000003CC) 
LOCATION (00000442) 
LOCATION (00000422) 


LOCATION (00000426 

202. 203 223 

54 HEX, LOCATION (00000428) IN 

DRESS. HEX LOCATION (0000043A)_IN 
210 212 16 18 


340 


IN 
IN 
IN 


IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 
IN 
IN 
a 


214 
HEX LOCATION (00000450) IN 


HEX 
HEX 


HEX 
HEX 
HEX 


2 

HEX 

OLUTE, HEX eee oe 
259 264 319 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


LOCATION (000002F4) 
LOCATION (000002FE) 


SOLUTE. HEX oe eS oeeN) 
350 351 352 


LOCATION (00000494) 
LOCATION (00000480) 
LOCATION (000004 7E) 
LOCATION (0000049) 


LOC ATION (00000488) 
LOCATION (00000546) 
LOCATION (000004C2) 
LOCATION (000004BA) 
LOCATION (0000048) 
VALUE (00000002) 


IN 
IN 


IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 
IN 


ESS. HEX Botton sea tk IN 
154 157 160 163 66 


HEX LOCATION(000003B2) IN 


HEX 

3 
HEX 
HEX 


HEX 
5 1 


HEX 


VALUE (00000022) 
VALUE (0000024C) 
VALUE (000002C0) 
VALUE (90000000) 

46 149 
VALUE (00000260) 


341 342 


CSECT (C34A3 
CSECT (C34A3 
CSECT(C34A3 


CSECT (C34A3 


CSECT (C34A3 
CSECT(C34A3 
CSECT(C34A3 
CSECT (C34A3 
CSECT(C34A3 
CSECT(C34A3 
CSECT (C34A3 
CSECT(C34A3 


CSECT (C34A3 
CSECT(C34A3 
CSECT(C34A3 
CSECT (C34A3 
cSECr (C34R3 
CSECT(C34A3 
CSECT(C34UA3 
CSECT(C34A3 
CSECT(C34A3 


CSECT (C34A3 
CSECT(C34A3 
CSECT(C34A3 
CSECT(C34A3 
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LENGTH (4) 
LENGTH (4) 


LENGTH (2) 
LENGTH (4) 
LENGTH (4) 


LENGTH (2) 


LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 


LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 


LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 


LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 


LENGTH (1) 
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LENGTH (4) 
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CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES 
314 
59 ZREAS aESCROTE: HEX VALUE (00000280) 
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U34EO - ERROR RETRIEVAL AND PRINT (ERAP) RPS SUPPO P/N=4414317 EC=754882 PAGE 01 
OBJECT TEXT 


SOURCE STATEMENT COPYRIGHT IBM CORP 1976 


U34EO START 6144 
BIO R IOI RRO ROR IO I ROR RO ROI IO OR I RIOR i fi Ok Rg dg tO oi tok ok ee 


**% PREREQUISITES xe 


LEVEL & PROCESSOR 
REALTIME PROGRAMMING SYSTEM (RPS) 


FOG I ROIOR GIO IGG Oi OG IOI OR goo gota doi Ig gofog aokotoiogogoiaoi og ak 


* * 
* * 
* * 
* * 
* * 
* * 
* * 
x * 
: salad MODIFICATIONS dled : 
‘ NONE : 
CORO IIOR IOI IO RIO III IO RR RR tO ROR ik gig todo tok gag go kodak get get toate dete aie af age 
* * 
: # ke REA'S INCORPORATED we : 
‘ NONE : 
ROR OO OR OR OI ORR IGOR IG mgm im gg aki ga iota a ko gag iotg i took 
* * 
: # SPECIAL INSTRUCTIONS  *** : 
: NONE * 
PES ESTEE SSE SES TES ESS TS TESTS TEE TTS SSS S STE ST SSE ST STS TS PETS ESTE SE SS 8S SS SG 
* * 
: #% E. C. HISTORY #% : 
* DATE 15SEP77 DATE DATE DATE * 
E.C. 754882  E.C. ELC. E.C. . 


Lift Se SS SS STS SES ES SPSS ESE ST SS SS SS SESS ST LS TS SESS STS TES SL SST ES SS SES SSS SSS 
Pi SSeS EES ESS SSE SE SSS LS SLES SES ES SESE SS ESS SESE SES SS ST SS SSS SS SS 3S SSS SS SSS 


NAME U34EO - ERROR RETRIEVAL AND PRINT (ERAP) 
**¥%x TO SUPPORT REALTIME PROGRAMMING SYSTEM (RPS) ONLY *** 
PURPOSE TO LOCATE THE ERKOR LOG ON THE RPS DISK AND 


RETRIEVE THE ERROR RECORDS AND PRINT THEM ON 
THE PPINTER OR TTY. 


METHOD THE PROGRAM WILL LOCATE THE RPS SYSTEM TABLE OF 
CONTENTS po eye ON THE DISK. FROM THE STOC IT WILL 
LOCATE THE SYSTEM ERROR VOLUME. 

USING THE SYSTEM ERROR VOLUME TABLE OF CONTENTS 
aces ERAP WILL LOCATE THE SYSTEM ERROR LOG. 
DATA SET. THIS DATA SET WILL THEN BE SCANNED FOR 
VARIOUS TYPES OF ERROR RECORDS. THESE RECORDS WILL 
BE GROUPED BY RECORD TYPE AND DEVICE ADDRESS AND 
EDITTED TO A HARDCOPY DEVICE. 
IF THE ECP ALTERNATE CONSOLE IS A DISPLAY THEN 
ERAP WILL ASK FOR A_ HARDCOPY DEVICE THAT IS ECP 
CONSOLE SUPPORTTED AND OVERLAY THE ECP CONSOLE. 
UPON COMPLETION OF ERAP THE ORIGINAL CONSOLE WILL 
BE RFSTORED AND CONTROL RETURNED TO ECP. 
THE RECORD TYPES CURRENTLY SUPPORTTED ARE: 
1. PROCESSOR ERROR RECORD 
MACHINE CHECK 
PROGRAM CHECK 
SOFT EXCEPTION CHECK 
2. DEVICE ERROR RECORD 


DEVICE NOT RECOVERED ERROR A eeeae 
DEVICE RECOVERED EPROR (TEMPORARY) 
DEVICE TIME OUT 

3. NULL INTERRUPT RECORD 

4G. SYSTEM TERMINATION RECORD 


5. USER RECORD 


Ce ee 
RHR MRK EHH HHH HHH HHH HH HH HH HHH HH HH HF 


PEP P te SSeS SLE LS EE SST SE TLS ESET TTS SS STS TSS SES TS TES SESS SES TTL S SETS SE SLE SS FS 
Pete SS SS SES SESS SESE LES SLL SSE SE SESE LES SSS TSS SLES ES SSS TES ESE SST ESS TS SS 


PROGRAM OPERATION: 


1. THIS PROGRAM IS LOADED VIA ECP (B34E0) AND USES STAND 
ALONE I/O TO READ AND WRITE THE DISK. 
IF THE DISPLAY IS BEING USED AS A CONSOLE AN ATTEMPT 


WILL BE MADE TO CHANGE IT TO A HARDCOPY DEVICE. 
2. ALL OPERATOR COMMUNICATION IS VIA THE ECP CONSOLE. 
3. NORMAL PROCESSING OPERATOR CODED MESSAGES ARE: 
"34E0" HARDCOPY CONSOLE PREFERRED - IS ONE AVAILABLE? 
*34E1" ENTER HARDCOPY CONSOLE ADDRESS 
‘"34E2" ENTER RPS DISK ADDRESS 
"34E3" SHOULD SYSTEM ERROR LOG BE INITIALIZED? 
"34E4* SHOULD ALL RECORDS BE PRINTED? 
"34E5* ENTER RECORD TYPES DESIRED 
"34E6" SHOULD ALL DEVICE RECORDS BE PRINTED? 
'34E7" ENTER DEVICE ADDRESSES DESIRED 
"34E8* SYSTEM DATA SET LABELS 
"34E9" LINE OF FORMATTED OUTPUT 


HHEHHSHRHEHEEHRHRHRHHRHRHREHRHBHHE HHH HK HHH 
HREM HHHHKHHHHRHH HHH HEHE HEH HHH HHH 


ad A LW LU LA GUND DN DO NID DO DODD aed act et ced ceed ed aed od ot AO O OOOO ODO DOM DDO OOO DOD DODOD OOO ~) 5) AJ SIS NSINISINANANDAANAHAGMNNININIVINNINNNS SSeS eee SS WWW WWWWWWNDDRNRAR = 
DNS WH DOWN A EWN tO DODDAD NES WH et OW DWI DUNE WI AO DONIONNE WH ot OW ODN EWN AOU DWAAMNES WN BOD DNUNE WN AOU WOU EWA BOO DIAN EW OV DANUIEWN AO DDO EWN Ow 
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U34EO - ERROR RETRIEVAL AND PRINT (ERAP) RPS SUPPO P/N=4414317 EC=754882 PAGE O1A 
OBJECT TEXT 


SOURCE STATEMENT COPYRIGHT IBM CORP 1976 

* * 
* *3407" CONSOLE BEING CHANGED FOR ERAP FORMATTING + 
‘ "3408" CONSOLE RETURNED . 
% * 
* * 
* * 


(EERE ESE LESS SES ELSES ESET EES ESET ESE SESS ES SSE SES SS TSS ESE SESE ESE LETS EEE SS SS 
PEE SE RST ESET TTS TST ESTE TESS TESS SESE STS SST ESSE SETS SS ESET SESE SESE SE SS LSS SS 


* * 
: PROGRAM STOPS AND MESSAGES: : 
* '34EA" HARDCOPY CONSOLE NOT USABLE * 
* AN ERROR HAS OCCURRED ATTEMPTING TO LOAD THE * 
: CONSOLE OVERLAY OP DEVICE RESPONDED INCORPECTLY. : 
* ‘34EB" DATA SET XXXXXXXX NOT POUND ON DISK * 
* PROGRAM COULD NOT LOCATE THF DATA SET INDICATED 
* IN ONE OF THE RPS TABLE OF CONTENTS (STOC/VTOC). * 
* ERAP WILL TERMINATE. : 
* '34EC' PREPARE DISK ERROR * 
* AN ERROR HAS OCCURRED ATTEMPTING TO PREPARE THE 4 
* RPS DISK. ERAP WILL TERMINATE. : 
* '34ED* DISK ERROR WHILE SEARCHING FOR DATA SET XXXXXXXX * 
* AN ERROR HAS OCCURRED READING ONE OF THE RPS * 
# TABLE OF CONTENTS (STOC/VTOC) IN SEARCH OF THE * 
+ DATA SET INDICATED. ERAP WILL TERMINATE. : 
* '34EE" DISK ERROR READING SYSTEM ERROR LOG * 
* AN ERROR HAS OCCURRED READING ONE OF THE RECORDS * 
® ON THE SYSTEM ERROR LOG. ERAP WILL SKIP THAT x 
* RECORD AND CONTINUE. THE SYSTEM ERROR LOG WILL * 
NOT BE INITIALIZED. : 
* '34EF* DISK ERROR WRITING SYSTEM ERROR LOG * 
* AN ERROR OCCURRED WRITING THE INITIALIZED RECORD * 
¢ ON SYSTEM ERROR LOG. ERAP WILL TERMINATE. * 
x x 
* *3401" ERROR ATTEMPTING TO RESTORE ORIGINAL CONSOLE ‘ 
* AN ERROR OCCURRED READING THE CONSOLE OVERLAY OR * 
: THE DEVICE RESPONDED INCORRECTLY. : 


yok doko kk kK kkk kk kk kik ok kako koko doi ROK a fOr kk tO RO gk kok kot gag go tk ak dtc 
BO IO KR ga ao kak gk lok kak glk ok ok kok kk i kk qa RR kan Rk ii gio ack kkk too 


Bg * 

THE FOLLOWING IS THE DESCRIPTION OF CONTROL RECORD FORMAT: * 
*« 

ff 2 SSS LSS SSS SL SSS SS SS SESS SSS SLPS SSS SSE SS SSS SESS SSS SS SSS SSS SSS SESS SL Se eS Se 

* pc AL1(*-* SIZE OF RECORD 

* pc AL1 (*-* PARTITION NUMBER 

* DC AL2 (*-* FLAG FIELD 

* BIT 10 - CONTROL RECORD 

* DC AL2 (*-* ACTIVF TCB ADDRESS 

* DC AL2 (*-* ADDRESS KEY REG GARR) 

* DC AL3 (*-* TIME OF DAY RFCORD CREATED (HHMMSS) 

* DC AL3 (*-* DATE RECORD CREATED (YYDDD) 

* DC AL1(*-* ACTIVE LEVEL 

* DC AL1 (*-* SPARE - ALIGNMENT 

* DC ALY (*-* OLD RECORD ADDRESS 

* DC ALY (*-* NEXT RECORD ADDRESS 

* DC ALG (*-* CURRENT RECORD ADDRESS 

* DC AL100 (*~*) PAD AREA 

PPPS RSLS SSS SSE LESS SESS SES SLE SSS SLPS SSS SSS SC LCSCSSCSL SCO SS SE SCOCCSLSSCLSSSLS CSS eS Se ee 

* * 

* THE FOLLOWING IS THE DESCRIPTION OF PROCESSOR ERROR * 

* RECORD FORMAT: * 

* MACHINE CHECK RECORD * 

* PROGRAM CHECK RECORD * 

: SOFT EXCEPTION CHECK RECORD * 
* 

PP Pt eSSSSSLESEE LESS SESS STL SSS SSS SESS SSS ese CSS SSCCOCSCSCSCSCCCSCSCCLOCOCCSC Le Sees ee es 

* DC AL1(*-* SIZE OF RECORD 

* DC AL1 (*-* PARTITION NUMBER 

* DC AL2 (*-* FLAG FIELD 

* BIT 0 - MACHINE CHECK RECORD 

* RIT 1 - PPOGRAM CHECK RECOR 

* BIT 2 - SOFT EXCEPTION CHECK RECORD 

* Dc AL2 (*-* ACTIVE TCB ADDRESS 

ae DC Al.2 (*-* ADDRESS KEY KEG (AKR) 

* DC AL3 (*-* TIME OF DAY RECORD CREATED (HHMMSS) 

* DC AL3 (*-* DATE RECOPD CREATED (YYDDD) 

* DC AL1 (*-* ACTIVE LEVEL 

* pc AL1 (*-* SPARE - ALIGNMENT 

* DC AL2 (*-* FAILING ADDRESS 

* DC AL2 (*-* INSTRUCTION ADDRESS REG (IAP) 

* DC AL2 (*-* ADDRESS KEY REG (AKR 

* Dc AL2 (*-* LEVEL STATOS REG (LSR) 

* DC AL2 (*-* REGISTER 0 

* DC AL2 (*-* REGISTER 1 

% DC AL2 (*-* RFGISTER 2 

* pc AL2 (*-* REGISTER 3 

* pc AL2 (*-* REGISTER 4 

* DC AL2 (*-* REGISTER 5 

* DC AL2 (*-* RFGISTEP 6 

* DC AL2 (*-* REGISTER 7 

% DC AL2 (*-* COMPLETION CODE (CC) 

* DC AL2 (*-* PROGRAM STATUS WORD (PSW) 

* Dc AL1 (*-* ACTIVE ADDRESS KEY (AAK) 

* DC AL83 (*- PAD AREA 

ORR RRO ROR RRR ORK FORO OR ROK ORO; RRR OR FRR OK ROOK kk gk OR Rg kkk kia gC kok Rk koko kako ak ar 

* * 

* THE FOLLOWING IS THE DESCRIPTION OF DEVICE ERROR * 

* RECORD FORMAT: * 

* DEVICE ERROR RECORD * 

: TIMEOUT ERROR RECORD * 
* 

ORR RIO RR tok Rk koko kf gOR ROK kK OROR Ok ROR OK ROR ORK ROKR ORO; OgOs ROR gk oR tO rok ta gO ga aia kak 

* DC AL1(*-* SIZE OF RECORD 

* pc AL1 (*-* PARTITION NUMBER 

* DC AL2 (*-* FLAG FIFLD 
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U34E0 - ERROR RETRIEVAL AND PRINT (ERAP) RPS SUPPO 
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BSOLUTE. HEX VALUE (00000013) 


HEX LOCATION (00001842) 
HEX LOCATIOW (00002CCE) 
HEX LOCATIOB (00002CE2) 
HEE LOCATION (00002D3E) 
HEX LOCATION (00002D46) 
HEX LOCATION (00002D64) 
HEY LOCATION (00002D84) 
HEX LOCATION (00002DAA) 
HEX LOCATION (00002DBA) 
HEX LOCATION (00002DD0) 
HEX LOCATION (00002DE6) 
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ESS. HEX 
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HEX LOCATION (00002D18) 
HEX LOCATION (00002D2A) 


5 RESS. HEX LOCATION (00002D32) 
RESS. HEX LOCATION (000020C6) 
2 3315 331 
; RESS. HEX LOCATION (000021 FC) 
RESS. HEX LOCATION (000021B8) 
2 2228 2235 3287 3314 336 
RESS. HEX LOCATION(000021D8) 
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RESS. HEX LOCATION (000020BA) 
2 2229 2230 3393 3394 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH ( 2) 
LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


U34E0 - ERROR RETRIEVAL AND PRINT 


DECLARED 


3309 
3319 
3358 
3362 
3366 
3373 
3379 
3389 
3437 
654 
643 
1057 
1058 
1783 
1791 
1815 
1853 
744 
3459 
769 
781 
1071 
399 
2926 
1059 
408 
409 
2922 
2907 
2913 
666 
664 
592 
590 
370 
373 
625 
623 
1099 
739 


740 
1034 
1013 
1040 
1041 
1042 
1043 
1044 
1045 

650 

648 

384 

367 


NANE 


DSK12 
DSK13 
DSK 14 
DSK15 
DSK 16 
DSK17 
DSK 18 
DSK19 
DSK20 
DSWAH 
DSNHE 
DSP1 
DSP2 
DSUMA 
DSUMB 
DSUHC 
DSUND 
DVRID 
DVSUH 
DVTP 
DVTYP 
DW1 
EB BK 
EBCD 
EBCO 
ECP01 
ECPO7 
EDEND 
EDIT 
EDITI 
EGTHA 
EG TAG 
EHTMA 
EHTMG 
EIGHT 
ELEVN 
ELVMA 
ELV G 
EQEND 
ERECT 


EREC2 
ERIBF 
ERLOG 
ERRA1 
ERRM2 
ERRM3 
ERRM4 
ERRM5 
ERRM6 
FFNMA 
FF NMG 
FIFT9 
FIVE 


(ERAP) 


RPS SUPPO P/N=4414317 


CROSS-REFERENCE LISTING 


ATTRIBUTES AWD REFERENCES 


3302 
ADDRESS. HEX LOCATION (000032DE) IN 
3307 3378 
giDDRESS. HEX LOCATION (00003302) IN 
a ADDRESS. HEX LOCATION (00003324) IW 
ghbDREss. HEX LOCATION (00003328) IN 
ADDRESS, HEX LOCATION (00003330) IN 
3356 3360 
ADDRESS. HEX LOCATION (0000334A) IN 
giDDRESS. HEX LOCATION (0000335E) IN 
ADDRESS. HEX LOCATION (0000338C) IN 

3311 -3313 3317 3320 3322 3371 

ADDRESS. HEX LOCATION (000033F2) IN 
ADDRESS, HEX LOCATION (00001BCO) IN 
2269 2270 
ADDRESS. HEX LOCATION(00001B60) IN 

2261 2262 

a ADDRESS. HEX LOCATION (00002183) IN 

a ADDRESS. HEX LOCATION (00002184) IN 

oADDRESS. HEX LOCATION(000024D5) IN 

oADDRESS. HEX LOCATION (000024D9) IN 
oADDRESS. HEX LOCATION (000024EF) IN 
oADDRESS. HEX LOCATION (00002555) IN 
> ADDRESS. HEX LOCATION (OO001E0F) IW 
ADDRESS, HEX LOCATION (00003402) IW 

1073 2581 2620 2730 

> ADDRESS. HEX LOCATION(00001F34) IN 

o ADDRESS. HEX LOCATION (00001F5E) IN 
ADDRESS. HEX LOCATION (00002192) I 

3064 3068 3111 #3112 3113 + =31458 
ABSOLUTE. HEX VALUE (00000040) 

2876 3006 

a ADDRESS. HEX LOCATION(O0002FBE) IN 

a ADDRESS. HEX LOCATION (00002185) IN 
ABSOLUTE. HEX VALUE (00000250) 

1980 239 

jABSOLUTE HEX VALUE (0000025C) 

a ADDRESS. HEX LOCATION(O0002FBC) IN 
ADDRESS. HEX LOCATION (00002F98) IN 

2487 2522 2557 2708 2734 2780 
ADDRESS. HEX LOCATION(00002FAC) IN 

2934 294 97 

a ADDRESS. HEX LOCATION (OQOOO1C1E) IN 
ADDRESS. HEX LOCATION(00001BF8) IN 

a ABDRESS. HEX LOCATION (00001A20) IN 
ADDRESS. HEX LOCATION (00001A00) IN 
ABSOLUTE, HEX VALUE (00000008) 

743 2028 2449 2678 2766 2802 

ABSOLUTE. HEX VALUE (00000008) 

a ADDRESS. HEX LOCATION(00001B1A) IN 
ADDRESS. HEX LOCATION (OOOO1AEF) IN 
ADDRESS. HEX LOCATION (000021C6) IN 

3062 3159 
ADDRESS. HEX LOCATLOK (00001 DFE) IN 
742 743 744 765 746 54 

2513 2519 2548 2554 2594 2645 

2810 2816 2850 2866 3047 307% 

3124 3166 3170 3189 3233 
ADDRESS. HEX LOCATION (OOOO1EF7E) IN 

3058 3077 
ADDRESS, HEX LOCATION(00002175) IN 
526 3109 
ADDRESS. HEX LOCATION(00002144) IN 
618 3154 
ADDRESS, HEX LOCATION(0000217B) IN 

2254 2257 23 
ADDRESS. HEX LOCATION (0000217C) IN 

2260 2349 
ADDRESS. HEX LOCATION(0000217D) IN 

2265 2355 
ADDRESS. HEX LOCATION (0000217E) IN 

2268 2361 
ADDRESS. HEX LOCATION(C000217F) IN 

2367 3071 3119 
ADDRESS. HEX LOCATION (00002180) IN 

2373 3129 

ADDRESS. HEX LOCATION (00001B94) IN 
ADDRESS. HEX LOCATION (G0001B80) IN 

ghBSOLUTE. HEX VALUE (00000038) 
ABSOLUTE. HEX VALUE (00000005) 

2165 2298 2544 2626 2698 ‘2721 

3385 3386 3387 


CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34EO 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
eSzcr (034 BO 
CSECT (U34E0 
CSECT (U34E0 
CSECT (034 E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT(U34E0 


N CSECT (U34E0 
3210 


CSECT (U34E0 
CSECT (U34E0 


CSECT (U34E0 
CSECT (U34E0 
eS ECT (034 £0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 


2805 3206 


CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 

960 2478 
$081 3083 
CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 


—_— eee ese ee le 


EC=754882 


3425 


2738 2865 3310 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LEWGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (8) 
LENGTH (26) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (10) 
LENGTH (2) 
LENGTH (4) 
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LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (36) 
LENGTH (2) 
LENGTH (30) 


LENGTH (2) 
LENGTH (42) 
LENGTH (4) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (8) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTE (1) 
LENGTH (2) 
LENGTH (18) 


U34¥EO - ERROR RETRIEVAL AND PRINT (ERAP) RPS SUPPO 
CROSS-REFERENCE LISTING 


P/N= 


4414317 
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U34EO - 


ERROR RETAKIEVAL AND PRINT (ERAP) 


RPS SUPPO 


P/N=44 14317 


CROSS~REFERENCE LISTING 


EC=754882 
COPYRIGHT IBM CORP 1976 


DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
283 eoene peel cee Ee VEPOE uo neet 2001 INIT2 SADBRESS. HEX LOCATION(00002704) IN CSECT(U34E0  ) LENGTH(1) 
533 FIVHA a ADDRESS. HEX LOCATION(OO0018F4) IN CSECT(U34E0 ) LENGTH (2) S008 aes TADDRESS, HEX LOCATION (00002710) IN CSECT(U34E0 ) LENGTH(1) 
a FEenG Sayers: Hee BOCK TION OCU TODHY AN CO EGE (USSEO. )  PENGTHN (0) 2027 INITY ADDRESS. HEX LOCATION(0000274E) IN CSECT(U34E0 ) LENGTH(1) 
ae ia gaa Sea ee re ae CME ONTO CRY: FU EO ECT NAVE”) LENG TN2) 2037 INITS “ADDRESS. HEX LOCATION(0000275E) IN CSECT(U34E0  ) LENGTH(1) 
seo ORES AD hen eRe LOC RSTONCIORU ACAD). UN COREE CIOS 2) RENGTH ONO) 2086 INIT6 ADDRESS. HEX LOCATION(000027DC) IN CSECT(U34EO ) LENGTH(1) 
ote: EOE Se Pm ee ee 2092. INITT7 “ADDRESS. HEX LOCATION (000027E6) IN CSECT(U34EO  ) LENGTH(1) 
ore ica epee otes Se a Deere 2270 2270 2302 2111 INIT8 peer tee LOCATION(OO00281A) IN CSECT(U34E0 ) LENGTH (1) 
Boe eee. eeee, 290", S082) 2088) 208 2208. 3307 2167 INITS GADDRESS. HEX LOCATION (000028CA) IN CSECT(U34E0 ) LENGTH(1) 
ies ne Be ees ea VRLUECOCOO000} 2227 INTBA ADDRESS. HEX LOCATION(0000298E) IN CSECT(U34EO ) LENGTH(1) 
om eee eee Tee PORTE ON AO2OOTET Gh SW CORCE(USHEO. <). EENGTU (2) 9233 INTBR 2ADDRESS. HEX LOCATION(000029A4) IN CSECT(U34E0 ) LENGTH (1) 
ore ohne rH a HEA POCATLOW CODON TED 0). TR CSRCE CUSSED “) PENGEH (AQ) 2247 INTBC * ADDRESS. HEX LOCATION(000029CA) IN CSECT(U34EO0 ) LENGTH(1) 
a Poene DOG Pe SOR OU SORY TN COBCECOINEO:. ) RENGTH(Z) 1948 INTID 7 TDDRESS. HEX LOCATLON(000025BA) IN CSECT(U34E0 ) LENGTH(8) 
499 FSTMG ADDRESS. HEX LOCATION(0000181A) IN CSECT(U34E0 ) LENGTH(46) ee ines CADDRESS. | x LOCATION (00002834) rH ESECT(U30EO. -)° LENGTH TT) 
2248 jaa Sn ec enaon (OOOUEE DOYS NC SPer(UaehO> <yDENGINCA) 2140 INT@E ANDRESS. HEX LOCATION(00002866) IN CSECT(U34EO ) LENGTH(1) 
68 Hares SRO BAUR REE EA ete ee eee eee: - ) ORENGTE(H) 752 ISB *ABDRESS. HEX LOCATION(00001F0C) IN CSECT(U34EO ) LENGTH(2) 
Hee HERES SOR oe ee ene ONO ROE TB EY: TMCS ECE CUSUED: ‘2 LENGTH) 2988 LABEL SADBRESS. HEX LOCATION (00003040) IN CSECT(U34E0 ) LENGTH(1) 
yeas Jae SREB ee ene ae). aN CS ECE AUST EO) 1) RENGTE (I) 2992 LAB1 *ADDRESS. HEX LOCATION(00003046) IN CSECT(U34EO ) LENGTH(1) 
1065 HEXOA > ADDRESS. HEX LOCATION (0000218B) IN CSECT(U34EO ) LENGTH(1) aie pci re HEX VALUE (00000033) 
ee ization 2456 362 BE 7D9 2780 3029 3 Th ane ie PEERS 2473 MC K ADDRESS. HEX LOCATION(OO0002BDA) IN CSECT(U34EO ) LENGTH(1) 
1063 HEX02 SADDRESS. HEX LOc ATION (00002183) IN CSECT(U34EO ) LENGTH (1) ee MCK 1 Shue O08 HEX speaks ga cana. IN ec ) ae 
1064 HEXO8 gABBRESS. HEX LOCATION(0000218A) IN CSECT(U34E0 ) LENGTH(1) ome MCK2 aes HEX ee IN CSECT(U34E ) LENGTH (1) 
1066 HEX 20 ADDRESS. HEX LOCATION (0000218C) IN CSECT(U34EO ) LENGTH(1) - 3367 = fhe se 
— sae 23760 See eet sar sa enrewer, @) Wey mem 1025 NEWCA “a DDRESS aes Has wie IN CSECT (U34E0 LENGTH (2) 
ee ees 1023 wewen "ROS" ues PE ndNGH 08688 156F°Rn cece osee —) LeNERR«a 
nm er CCC UC 3095 wexen — “appnede° unk 18c 54 0000108 ru CSECE(USOEO |) LENOTHCH 
- anes 2864" "2947 n2964 3001 3044 NEXT 3063 EX LO ste . IN CSE ap eae : ae 
22 roen SRSOUETES ELSE MBEGO°0 NTE oan. gone a307 2229 ero Bae 2 Sued Sse astoe osebsondt tw Coser Betta |) Lemcea 
a Wi 2A up Be BR BR Be eee men ieee eattblldlad is Bley wee 
- ie 2277 2278 sages nr 3059 anes 3050305 - Seis ce, = epee aie ) ae 
ee oe 518. 315 Sr | eae feet ene un aeeectat 3066 NEXT3 BOF ue. HEX ee eee IN ea te i 
ae oe 24ue. "2189 2279, 2392 2410 3073 nee en HEX ae cane aie IN CSECT (U34E0 unl 
oo — N79 ee 3080 NEXT5 sO DDRES HEX seeirte Penick IN CSECT(U34E0 | LENGTH (1 
ae pee 2078 Dee ee ee ee 3093 NEXT6 O16. ae, HEX Sec nese IN ie ae | aa 
2195 INITB aADDRESS. HEX LOCATION (00002916) IN CSECT(U34EO ) LENGTH(1) — ad 30540 nati eek ) ( ) -L (1) 
ee See 2025. Dee ee aos NINMA 2802 2058 82a on seeeaiie IN CSECT (U34E0 LENGTH (2 
oe aetie 2ro4" 218 7 a a ee ee oe 607 NINMG oho tees HEX ae ea IN aeapaep aah | pease 
a 3168 321 Be oe ee 670 NNTMA eee HEX Haat ee IN ee | Paes | 
aoe ae 2216233 eC am eae a eee 69 NNTMG ep acepes: HEX satin nee IN CSEC ee : sent 
ai ames 3165. 318 Saat ee ee a oe paonece HEX tee ere ld IN a : me 
ee sea 22U5" 2358 | 22632260. 2435. 3 31" ee 1937 NSTLB ee eee, HEX ee I Scie te | Sea 
2300 INITK sAPDERESS- HEX LOCATION (OOOO2A6A) IN CSECT(U34EO0 +) LENGTH(1) 27183. Dae ") ) IN CS ( ) (1) 
2319 INITL a ADDRESS. HEX LOCATION (O0002AA6) IN CSECT(U34EO ) LENGTH(1) 1858 NSTRA ADDRESS. HEX LOCATION ( ieee IN CSECT(U34E0 ) LENGTH(1) 
2328 INITM > ADDRESS. HEX LOCATION (00002AC0) IN CSECT(U34E0 ) LENGTH(1) pes psa 2980 38: HEX ee mee IN CSECT(U34E0 ) LENGTH(1) 
2342 INITN oADDRESS. HE oe ar eee IN CSECT(U34EO ) LENGTH(1) NYMOT 2e5prr ee = ee IN sah ae ) aS 
Se ee ee ay wen Se eee ee 
ae dee 2350. Fe ee ee ee 2785 NULL2 rea, HEX ee ae IN Ae oe | see 
2360 INITQ ADDRESS. HEX LOCATION (00002B10) IN CSECT(U34E0 ) LENGTH(1) a 1 6. : sean aa ) ( ) (1) 
2366 INITR ADDRESS. HEX LOCATION(00002B1C) IN CSECT(U34E0 ) LENGTH(1) 436 ULSW 9488 : - HEX VALUE ( ) 
2372 INITS > ADDRESS. HEX LOCATION (00002B28) IN CSECT(U34EO ) LENGTH(1) 761 NX TAD 2a gs tee peat ON (0000122) IN CSECT(U34EO ) LENGTH(1) 
2380 INITT a ADDRESS. HEX LOCATION (00002B34) IN CSECT(U34EO ) LENGTH(1) 760 OLDAD nS haa) kG as IN CSECT(U34EO ) LENGTH (1) 
2391 INITU ADDRESS, HE X EOCATION (00002860) _ IN CSECT (UI4EO a yguENSTH ON ee OLDCA Wgg0) thes lo eee oon a <7 Saag terns ) LENGTH (2) 
2124 2131 2136 2382 1022 OLDCN ADDRESS. HEX LOCATION (OOOO2TUE) IN CSECT(U34E0 ) LENGTH (2) 
Di, Oepaee ascg ee Loc aT TON (00002676) BA COREE CUSSED PENCE CH 1029. + OLDVS "ADDRESS. HES LOCATION (0000315A) EN CSECT(U34EO0  ) LENGTH(2) 
1999 INIT ADDRESS. HEX LOCATION (00002700) IN CSECT(U34E0 ) LENGTH(1) 2155 2156 962335 


U34EQ - ERROR RETRIEVAL 


DECLARED 


363 


387 
410 
483 


350 


10 26 
351 


1096 
2508 
433 
2515 
2527 
1020 
7175 
421 
1312 
1380 
1204 
1212 
3001 
441 
100 3 
1004 
1005 
997 
735 
733 
1000 
944 
873 
874 
355 
989 
340 
2441 
2432 
742 
2445 
2451 
2454 
1032 
1038 


3198 
3130 
1012 
3121 
1035 
980 
1156 
10 36 


NAME 
ONE 


ONE28 
OPADR 
OPT1 


OUT 


OUTAD 


OUTIN 


PASS 
PCK 
PCKSW 
PCK1 
PCK2 
PCYLA 
PE RM 
PRBA 
PRCLA 
PRCLB 
PRCRA 
PRCRB 
PRINT 
PRMSW 
PRRID 
PRRI1 
PRRI2 
PRRST 
PRTBK 
PRTLN 
PRUPR 
RDCB 
RDW3 
RDW4 
READI 
RECAL 
RECD1 
RECS 
RECSL 
RECSZ 
RECSO 
RECS1 
RECS2 
RECTP 
REPRC 


RESET 
RESND 
RESVL 
RES1 

RS DBF 
RS DCB 
RTNTB 
SDABF 


AND PRINT 


(ERAP) RPS SUPPO P/N= 


4414317 


CROSS-~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


ABSOLUTE. HEX VALUE (00090001) 
482 1004 1979 2040 2149 2150 
2198 2199 2200 3201 3202 3203 
3282 2283 2394 3301 2304 2329 
2452 2457 2610 3622 2632 3633 
2702 2723 2740 3858 2917 3939 
3026 3053 3056 3060 3198 4207 
3375 3377 3380 
SABSOLUTE. HEX VALUE (00000080) 
ABSOLUTE. HEX VALUE (00000240) 
1989. 2158 2289 
ADDRESS. HEX UP aaoa onte oh IN 
2013. 2020 2044 2049 2078 2096 
3130 2135 2408 3434 
ABSOLUTE. HEX VALOE (00000000) 
2055 2058 2061 2064 2067 2070 
2326 «2340 2346 2352 2358 2364 
2476 «2511 «2546 «43589 3728 2765 
3003 3025 
ADDRESS, HEX LOCATION (00002154) IN 
510. 2022 
ABSOLUTE. HEX VALUE (00000001) 
2011 2018 2042 2047 2076 2094 
2128 3133 
ADDRESS. HEX LOCATION(000021BF) IN 
2442 2642. 304 
VADDRESS. “HEX LOCATION (00002C22) IN 
,ABSOLUTE. HEX VALUE (00000011) 
ADDRESS. HEX LOCATION(00002C40) IN 
2521. 2526 
2AgRESS: HEX LOCATION (00002C66) IN 
ADDRESS, HEX LOCATION (0900214C) IN 
33823390 3400" S427 | 3428 
jADDRESS. “HEX LOCATION (OOOOTFU6) IN 
ABSOLUTE. HEX VALUE (00001790) 
2157 2294 
ADDRESS. HEX LOCATION (000022AE) IN 
2479. 2514 
ADDRESS. HEX LOCATION (0000231A) IN 
2490. 2525.25 
ADDRESS, HEX LOCATION (0000224) IN 
2477. 25122547 
ADDRESS. HEX LOCATION (0000224E) IN 
2489. 2524 2559 
SARDRESS. HE LOCATION (00003050) IN 
DABSOLUTE. HEX VALUE (00000019) 
ADDRESS. HEX LOCATION (00002138) IN 
10042023 2024 
\ADDRESS. HEX LOcaTION (00002139) IN 
jADDRESS. HEX LOCATION(0000213A) IN 
ADDRESS, HEX LOCATION (09002130) 1 
2149. 2153. 2154-2282 85 
ADDRESS. HEX LOCATION(OOOO1DFC) IN 
2872. 3002 3024 
ADDRESS, HEX LOCATION (0QQO1DBA) | IW 
735. 2858 2875 2912. 3005 
ADDRESS, HEX LOCATION (00002134) IN 
2750. 2151. 2152. 2283. 2286 228 
ADDRESS. HEX LOCATION (O00020DE) IN 
3251. 3310 3385 
jABSCLUTE. HEX VALUE (00000014) 
ag HEX VALUE (00000016) 
DABSOLUTE, HEX VALUE (00000018) 
ADDRESS. HEX LOCATION(0000212E) IN 
,ABSOLUTE. HEX VALUE (00003400) 
SABDRESS. HEX LOCATION(00002BAA) IN 
ADDRESS. HEX LOCATION (0Q0Q2B8C) | IN 
2249 232528256 
DADDRESS. HEX LocaTION (00001 DFE) in 
DADDRESS. HEX LOCATION (00002BBA) IN 
SADDRESS. HEX LOCATION(00002BC6) IN 
SADDRESS. HEX LOCATION (00002BCA) IN 
ADDRESS, HEX LOCATION (00002168) | IN 
577. 2051. 2080. 2112 uy 
ADDRESS. HEX LOCATION (00002179) IN 
2248 2436 2485 2488+ 2523 2558 
2820 3853 
SADDRESS. “HEX LOCATION (00003110) IN 
ADDRESS, HEX LOCATION (0000315) IN 
3110. 3120. 3128 
ADDRESS. HEX LOCATION (0000213C) IN 
610 3150 
ADDRESS. HEX LOCATION (00003144) IN 
ADDRESS, HEX LOCATION (00002176) IN 
534. 2052 
ADDRESS. “HEX LOCATION (00002118) IN 
927. 3259. 3367. 3375. 3377 
ADDRESS. “HEX LOCATION (00002230) IN 
ADDRESS. HEX LOCATION(00002177) IN 


WNNNDN 
NWAW = 
MUIW WO OV 
WOWEOf a 
WNMAIPN 
NUWUADAWN <2 
OBDuDods 
Whom & ue 


2101 2115 
CSECT (U34E0 
CSECT (U34E0 


CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 
CSECT (U34E0 


CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 


CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 


N CSECT(U34E0 


2329 2331 
CSECT (U34E0 


CSECT(U34E0 
CSECT (U34E0 


2330 2333 
CSECT (U34 £0 


Ww 
oS 


CSECT (U34EO 


CSECT (U34E0 
CSECT (U34E0 
2786 2825 
CSECT (U34E0 
CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 
CSECT (U34E0 


CSECT (U34E0O 
2629 2638 


CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34EO 
CSECT (U34E0 
CSECT (U34E0 


EC=754882 


WWNRIPON 
WODAWD «a 
AN~ITDO~J 


1b 


24 

Wu 

87 
) 


N 


NNN 


SEWHUI 


WOof 
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LENGTH (2) 


WwW 


LENGTH (2) 


2121 


) 
) 


—_—_ wT aw ew 


) 


) 


) 


20hs 


SS ON ee OS a Oe ee 


N) 

Ww 
wT = GS - TS 
+ Nd 


LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (4) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 


LENGTH ( 2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 


anh 


LENGTH (1) 
LENGTH (1) 
LENGTH (8) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
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DECLARED 


751 
509 
507 
935 
369 
584 
582 
434 
368 
576 
574 
539 
544 
549 
554 
559 
564 
569 
541 
546 
551 
556 
561 
566 
571 
376 
385 
386 
863 
865 
867 
2543 
2550 
2562 
1094 
1095 
449 
450 
1098 
2801 
438 
1097 
451 
452 
424 
2812 
2824 
661 
659 
656 
653 
3179 
3147 
3174 
3182 


NAME 


SECID 
SECMA 
SECMG 
SEDCB 
SEVEN 
SEVMA 
SEVMG- 
SFTSW 
SIX 

SIXMA 
SIXMG 
SIXMS 
SIXMU 
SIXHV 
SIXMW 
SIXMX 
SIXMY 
SIXMZ 
SIXM1 
SIXM3 
SIXM4 
SIXM5 
SI XM6 
SIXM7 
SIXM8 
SIXTN 
SIXTY 
SIXTG 
SKW2 

SK WY 

SK W6 

SOFT 

SOFT1 
SOPT2 
SPTD 

SPTD1 
SPTD2 
SPTD3 
START 
STERM 
STMSW 
STOC 

STOC2 
STOC3 
STOP 

STRM1 
STRM2 
SVNMA 
SVNMG 
SXNMA 
SXNMG 
SY SFN 
SYSLG 
SYSND 
SYSO 


(ERAP) RPS SUPPO P/N=4414317 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


85 2098 2603 
DDRESS. HEX LOCATION (00001F06) 
87 3380 3382 3383 3384 
3 DRESS. HEX LOCATION (00001874) 
RESS. HEX LOCATION (00001854) 
RESS. HEX LOCATION (000020C E) 
3261 3323 3383 3384 3 
OLUTE. HEX Sage oop ooo) 45 
2 2184 2317 2763 3272 
RESS. HEX LOCATION (000079FE) 


HEX LOCATION (000019CE) 
HEX VALUE (00000012) 

, HEX VALUE (00000006) 

HEX LOCATION (000019C4) 
HEX LOCATION (000019B8) 
HEX LOCATION (000018FE) 
HEX LOCATION (0000191E) 
HEX LOCATION (00001936) 
HEX LOCATION (00001948) 
HEX LOCATION (0000196E) 
HEX LOCATION (00001980) 
HEX LOCATION (0000199A) 
HEX LOCATION (0000191A) 
HEX LOCATION (00001932) 
HEX LOCATION (0000194A) 
HEX LOCATION (0000196A) 


2 OF UTP OL U1 OO OR Oe UN OM O21 
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D 
D 
u 
D 
m 
D 
5 
D 
5 
D 
6 
D 
6 
D 
7 
D 
5 
D 
5 
D 
6 
g 
j D RESS. HEX LOCATION (0000197C) 
D RESS. HEX LOCATION (00001996) 
3 DDRESS. HEX LOCATION (000019B4) 
_ ABSOLUTE. HEX VALUE (00000010) 
44 760 326 
; BSOLUTE. HEX VALUE (0000003C) 
BSOLUTE. HEX VALUE (00000040) 
2874 3004 
gBSOLUTE. HEX VALUE (00000002) 
: BSOLUTE. HEX VALUE (00000006) 
: BSOLUTE. HEX VALUE (00000008) 
ADDRESS. HEX LOCATION (00002C6A) 
DDRESS. HEX LOCATION (00002C88) 
2556 2561 
; DDRESS. HEX LOCATION (00002CAE) 
DDRESS. HEX LOCATION (000021BC) 
2220 2224 34 
z DDRESS. HEX LOCATION (000021BE) 
: BSOLUTE. HEX VALUE (00000078) 
sABSOLUTE. HEX VALUE (000000B4) 
ADDRESS. HEX LOC ATION (09002102) 
3061 3115 3149 3153 7 3 
ADDRESS. HEX LOCATION (00002EC4) 
ABSOLUTE. HEX VALUE (00000016) 
ADDRESS. HEX LOCATION (000021C0) 
2221 2225 3149 
> ABSOLUTE. HEX VALUE (000000F0) 
>ABSOLUTE. HEX VALUE (00000168) 
ABSOLUTE. HEX VALUE (00000006) 
2148 2191 2281 2324 
ADDRESS. HEX LOCATION (00002EEE) 
2818 2823 
a ADDRESS. HEX LOCATION (00002F14) 
> ADDRESS. HEX LOCATION (00001BF4) 
ADDRESS. HEX LOCATION (00001BCE) 
ADDRESS. HEX LOCATION (00001BCA) 
ADDRESS. HEX LOCATION (00001B98) 
3 ADDRESS: HEX LOCATION (00003 1C4) 
oADDRESS HEX LOCATION (00003162) 
gADBRESS. HEX LOCATION (000031C2) 
ADDRESS. HEX LOCATION (000031CC) 
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IN 
IN 
IN 


20 


7 
IN 
IN 


IN 
1 
IN 


IN 


CSECT(U34 E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
shen G34PO 
CSECT (U34E0 


CSECT (03450 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 


CSECT (U34E0 
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CSECT(U34E0 
CSECT (U34E0 
CSECT(U34E0 
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CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34EO 
CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 
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LENGTH (2) 
LENGTH (2) 
LENGTH (30) 
LENGTH (2) 


LENGTH (2) 
LENGTH (38) 


LENGTH (2) 
LENGTH (10) 
LENGTH (26) 
LENGTH (18) 
LENGTH (18) 
LENGTH (26) 
LENGTH (12) 
LENGTH (20) 
LENGTH (24) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 


LENGTH (4) 
LENGTH (1) 


LENGTH (2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (36) 
LENGTH (2) 
LENGTH (40) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


U34EO - ERROR RETRIEVAL AND PRINT 


DECLARED 
3190 
3200 
3205 
3214 
3235 

455 
459 
454 
463 
464 
776 
372 
617 
615 
353 
639 
6 37 
365 
381 
382 
383 
392 
722 
720 
437 
778 
770 
2407 
1101 
768 
517 
515 
1949 
374 
6 30 
6 28 
377 
378 
379 
380 
364 


390 
388 
678 
676 
683 
681 
688 
6 86 
693 
691 
697 
695 
702 
700 


NAME 
SYS1 
SYS2 
sYS3 
SsY¥S4 
sYs5 
TCI 
TCIE 
TCIT 
TCLB 
TCLE 
TEMP 
TEN 
TENMA 
TENMG 
TERM 
THNMA 
THNMG 
THREE 
THRTY 
THRT2 
THRT3 
THR2K 
THOMA 
THOMG 
TMOSW 
TMOT 
TMOUT 
TM PRG 
TNPST 
TPF 
TRDMA 
TRDMG 
TRACC 
TWELV 
TWLMA 
TWLAG 
TUNTY 
TWUNT2 
TWNT4 
TWNTI 
TWO 


TWOK 

TWO55 
TWOMA 
TWOMG 
TWIUMA 
TWIMG 
TW2MA 
TW2MG 
TW3IMA 
TW3MG 
TW4OMA 
TW4MG 
TWOMA 
TW5MG 


ATTRIBUTES 
ADDRESS. 
3209 
ADDRESS. 
3193 
ADDRESS. | 
3197 3199 
ADDRESS. 
3204 
ADDRESS. 
3180 
ABSOLUTE. 
3192 
ABSOLUTE. 
3194 
ABSOLUTE. 
3191 
ABSOLUTE. 
3152 3160 
ABSOLUTE. 
3156 
ADDRESS. 
2673 
ABSOLUTE, 
1996 2030 
ADDRESS. 
2132 
ADDRESS. 
617 
ABSOLUTE. 
2394 
ADDRESS. 
2345 
ADDRESS. 
639 
ABSOLUTE, 
2187 23 
ABSOLUTE. 
3122 31 
ABSOLUTE. 
3208 
ABSOLUTE. 
746 
ABSOLUTE. 
2408 
ADDRESS. 
2243 
ADDRESS. 
722 
ABSOLUTE. 
2597 
ADDRESS. 
2659 
ADDRESS. 
2679 
ADDRESS. 
1982 
ADDRESS. 
3217 3219 
ADDRESS. 
2669 6 
ADDRESS. 
2041 
ADDRESS. 
517 
ADDRESS. 
2806 
ABSOLUTE, 
2980 3084 
ADDRESS. 
2325 
ADDRESS. 
639 
ABSOLUTE. 
761 
ABSOLUTE. 
745 
ABSOLUTE. 
762 
ABSOLOTE.. 
3351 
ABSOLUTE. 
2222 2433 
2922 2965 
3235 3281 
ABSOLUTE. 
3436 
ABSOLUTE. 
1984 2051 
ADDRESS. 
2475 
ADDRESS. 
678 
ADDRESS. 
2510 
ADDRESS. 
683 
ADDRESS. 
2545 
ADDRESS. 
688 
ADDRESS. 
2586 
ADDRESS. 
693 
ADDRESS. 
2727 
ADDRESS. 
697 
ADDRESS. 
2764 
ADDRESS. 


HEX VALUE (90000003) 
0 2672 3 


(ERAP) RPS SUPPO P/N= 


4414317 


CROSS-REFERENCE LISTING 


AND REFERENCES 
HEX LOCATION (000031E4) IN 
HEX LOCATION(000031FA) IN 
HEX LOCATION (00003206) IN 
HEX LOCATION(0000321E) IN 
HEX LOCATION (00003260) IN 
HEX VALUE (00000010) 
HEX VALUE (00000002) 
HEX VALUE (00000000) 
HEX VALUE (00000002) 
HEX VALUE (00000006) 
HEX LOCATION(O0001F4A) IN 
HEX VALUE (0000000) 
HEX LOCATION (OO001AE4) IN 
HEX LOCATION (00001AB6) IN 
HEX VALUE (00000007) 
HEX LOCATION(00001B52) IN 
HEX LOCATION(00001B34) IN 
HEX VALGS (00006045) 
HEX VALUE (00000020) 
HEX VALUE (00000021) 
HEX VALUE (00008000) 
HEX LOCATION(00001DB6) IN 
HEX LOCATION (00001D98) IN 
HEX VALUE (00000015) 
HEX LOCATION (OO001F4E) IN 
HEX LOCATION (00001F3E) IN 
HEX LOCATION (00002B6A) IN 
HEX LOCATION (0QQ021CE) I 
HEX LOCATION (00001F30) IN 
HEX LOCATION (00001896) IN 
HEX LOCATION (0000187E) IN 
HEX LOCATION (000025C2) IN 
HEX VALUE (0000000C) 
HEX LOCATION (00001B30) IN 
HEX LOCATION (00001B1E) IN 
HEX VALUE (00000014) 
HEX VALUE (00000016) 
HEX VALUE (00000018) 
HEX VALUE (0000001D) 
H 


3320 


Nrotd 


X 
g8u 4028 
HEX VALUE (00000600) 
HEX VALUE (000000FF) 
HEX LOCATION (00001C54) IN 
HEX LOCATION (00001C28) IN 
HEX LOCATION (00001C84) IN 
HEX LOCATION (00001C58) IN 
HEX LOCATION (00001CBA) IN 
HEX LOCATION (00001C88) IN 
HEX LOCATION (00001CD6) IN 
HEX LOCATION (00001CBE) IN 
HEX LOCATION (00001CF4) IN 
HEX LOCATION(Q0001CD8) IN 
HEX LOCATION(00001D1A) IN 


HEX LOCATION (00001CF8) IN 


fo 
Le) 
WW) O 


CSECT(U34E0 
CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 
CSECT(U34E0 


CSECT (U34E0 


CSECT (U34E0 
CSECT (U34E0 


CSECT (U34E0 
CSECT (U34E0 


3374 3398 


CSECT (U34E0 
CSECT (U34E0 


CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 


N CSECT (U34E0 


CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 


CSECT (U34E0 
CSECT (U34E0 


2854 2869 
3174 3211 
3383 3384 
CSECT (U34E0 


CSECT (U34E0 
C SECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34EO 
CSECT (U34EO 
CSECT (034E0 
CSECT (U34EO 


EC=754882 
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PAGE 20 
COPYRIGHT IBM CORP 1976 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (4) 


LENGTH (2) 
LENGTH (44) 


LENGTH (2) 
LENGTH (28) 


LENGTH (2) 
LENGTH (28) 


LENGTH (8) 
LENGTH (8) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (22) 
LENGTH (8) 


LENGTH (2) 
LENGTH (16) 


AOD 


LENGTH (2) 
LENGTH (42) 
LENGTH (2) 
LENGTH (42) 
LENGTH (2) 
LENGTH (48) 
LENGTH (2) 
LENGTH (22) 
LENGTH (2) 
LENGTH (26) 
LENGTH (2) 
LENGTH (32) 
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DECLARED 


707 
705 
712 
710 
717 
715 
2841 
2846 
2856 
2863 
2884 
439 
3 
962 
891 
892 
1039 
601 
598 
414 
1075 


1076 


1077 


953 
882 
683 
1056 
362 


NAME 


TW6MA 
TWE6MNG 
TWSMA 
TWEMG 
TWOMA 
TWOMG 
USER 

USER1 
USER2 
USER3 
USER4 
USESW 
U34E0 
VDCB 

VF W3 

VFW4 

VLNAM 
VOLMA 
VOLMG 
WIDCB 
WORK1 


WORK2 


WORK3 


WRDCB 
WRW3 
WRW4 
YES 
ZERO 


(ERAP) 


RPS SUPPO P/N= 


4414317 


CROSS~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT(U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 
CSECT (U34E0 


— oP Oe eee 


CSECT(U34EO ) 


CSECT(U34E0 +) 
CSECT(U34E0  ) 
CSECT(U34E0 ) 


a7ho 


2840 


NM NA NA 
A AN NN HAN 


27h 
o ) 


702 
jADDRESS. HEX LOCATION(00001D44) IN 
ADDRESS. HEX LOCATION(00001D1E) IN 
a ADDRESS. HEX LOCATION(00001D78) IN 
ADDRESS. HEX LOCATION(00001D48) IN 
oABDRESS. HEX LOCATION(00001D94) IN 
ADDRESS. HEX LOCATION (00001D7C) IN 
jADDRESS. HEX LOCATION (00002F18) IN 
ADDRESS. HEX LOCATION (00002F28) IN 
2852 2883 
oADDRESS. HEX LOCATION (00002F44) IN 
>ADDRESS. HEX LOCATION(00002F5C) IN 
> ADDRESS. HEX LOCATION (00002F94) IN 
ABSOLUTE. HEX VALUE (00000017) 
CSECT. START (00001800) LENGTH(7670) ESDID(0) 
ADDRESS, HEX LOCATION(000020FE) IN 
958 3387 
ghBSOLUTE. HEX VALUE (00000034) 
gRBSOLUTE. HEX VALUE (00000036) 
ADDRESS. HEX LOCATION (0000217A) IN 
oABDRESS. HEX LOCATION (00001A68) IN 
ADDRESS. HEX LOCATION(00001A2A) IN 
ABSOLUTE. HEX VALUE (000014F6) 
2166 2299 
ADDRESS. HEX LOCATION (00002198) IN 
2477 2489 2512 2524 2547 2559 
2735 _ 2770 2782 2809 2821 2909 
ADDRESS. HEX LOCATION (0000219) IN 
2478 2513 2548 2645 2730 2737 
ADDRESS. HEX LOCATION (0000219C) IN 
2479 2490 2514 2525 2549 2560 
2736 2772 2783 2811 2822 2911 
ADDRESS. HEX LOCATION(O00020EF) IN 
3257 3386 
gABSOLUTE. HEX VALUE (00000024) 
RESOLUTE. HEX VALUE (00000026) 
ADDRESS. HEX LOCATION (00002182) IN 
2015 2052 2098 2125 2601 2603 
ABSOLUTE. HEX VALUE (00000000) 
742 2185 2232 23718 2584 2654 
2921 2983 3027 3094 3173 3196 
3308 3318 3348 3372 3396 
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LENGTH (2) 
LENGTH (36) 
LENGTH (2) 
LENGTH (46) 
LENGTH (2) 
LENGTH (22) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (48) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
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SYSTEM TEST AUTO RUN LOAD TABLE P/N=1635223 EC=754882 PAGE 01 
LOCTR OBJECT TEXT 


SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
RGGI ROR RIGO OR IG IORI GOR GIO IORI I IOI IO II IC a kk ka a ie ak ak ake ak ak 


2 PREREQUISITES 4 
NONE 
ME Ke fe aK 4c oe fe afc fe 2 ae 22 2 a 2 fe a 2 2c of ke 2g 2c fee fc fc aie ae fe ae ae ake fe ae ate abe afc ake af ate oe fe ae ae 2k ak ae of ic 2c ake i ke cafe oe fe a he fe 2 ae 2c 2c 2k 2K ok 
CK MODIFICATIONS lal 


CHANGES MADE IN ORDER TO RUN WITHOUr 34F8 
AOR RIG OIG ICICI IG II IO a ICR Kf i kok 
rex REA'S INCORPORATED ea 

NONE 
AIO ICICI ICG OR I IO IORI RG OR RIO I i 9K aa a 


aE SPECIAL INSTRUCTIONS em 


NONE 
SOO IO OI IG GIO III IG Ia RIOR I kk i a ake gok kak acai a 
#4 E. C. HISTORY 4 


DATE 010CT76 DATE O6MAY77 DATE 15SEP77 DATE 
E.C. 578468 E.C. 578756 E.C. 754882 E.C. 


Be A ate ic ye he 2 ae 2c 2 ae a 3h a ic ee ate ate a 2h oe 2c i 2 ake af ae ak afc ai ade a a 2 ae 2c ec 2c of af af ae ae ae a 2 ai ik a ee afc aie a oi ake oe ake a 2 2K 2k 


HHH HHH HHH EHH HHH HHH HHH HHH HHH HH 


ele Pa ee 
W 


uF START X‘'2100° 

DDTABPT DC A (STARTAD) POINTER TO START OF LSB TABLE 

OTPROG DC X*0000' TOTAL NUMBER OF PROG THAT WILL FIT 

ROGACT DC X'O001T!8 TOTAL NUMBER OF PROG LOCATIONS USED 

NTNUM ae Pe oanas TOTAL NUM OF DEV TABLE ENTRIES USED 
DC 21CL10! * DEV TABLE WITH DEV DEPENDENT DATA 
DC 21CL10° * * ALL ENTRIES ARE SET TO INDICATE 
DC 21CL10" ? * THAT THE ENTRY IS A CONCATENATED 
DC ZO0CL1Q0* °* * ENTRY WHICH HAS NOT BEEN 
DC X'OOKO4040! * ASSIGNED --- EXCEPT FOR THE LAST 
DC X*4O4O4O4O! * ENTRY WHICH IS NOT CONCATENATED 

STARTAD DC 21XL8'00' LSB TABLE --- EACH LSB IS PRECEDED 
DC 21XL8'00' * BY A WORD WHICH WILL 
DC 21XL8'00! * CONTAIN THE PROGRAMS 
DC 21XL8'00° * INITIAL LOAD ADDRESS 
END U34F1 


U34F1--- SYSTEM TEST AUTO RUN LOAD TABLE P/N=1635223 EC=754882 PAGE O1A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES 
49 STAFTAD ea HEX LOCATION (00002450) IN CSECT (U34F1 ) LENGTH (8) 
36 U34F1 oa ea en CODD PeAn) LENGTH (1520) ESDID(0) 
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U34F6 --- SYSTEH TEST UTILITY FOR BUILDING AUTO LO PN=1635230 


STHT SOURCE STATEMENT 


LOCTR OBJECT TEXT 


STHT SOURCE STATEMENT 


LOCTR OBJECT TEXT 
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& & UR B eB & a E+ BH & & H < meron > fe¥) fe. 
[2% Ee) Q BHADS2ZzZA - UO z 
a MM eH wf x >< ted ~< >< =< OU HM OA wh Zi Ee ak ol lS, Wi is >] oO (an) 
wm & Bam <>] 3) 4 4 ic) ~ eH ORB Of = AcO BLE «c = os = => 
Ww > «Hm c = = = <= i) HRS HHH 4 2nO0SE2E = < faq bal 
> bP MW Oa food Sores te -7 eyes] «x, x“ O00 [a i) oa 
cs <4 wQ AQ Awa is) & [<j Oo [°-) [2 <1 wei See = ZOMUVUGO wo oO < fx 
MOn a AYO oO io) (oe) (@) © io) mh, Bee = ZOH UO oO isa) (o) to 4 
mHW A zm B Bae fe Be fey Py OxrOQCoORrOoO oO Oo ABWE (2 <4) ra | oe 
<a) eH H&G e He a] av UA AN r>Hoa Qu A fea me 
mu wW 3 Om <4 oc ac AA ac Ra on own a AMHaezz a {33 
Ona «< ORD UO UO U 1S) 1S) Oo ORNNUHUH RNA Aca INH a) e fee} 
mA «a > & OO oO io) 1@) (@) oO © Oo mao HWA AnZNz=ZzaArH = «x oO a 
Res bP Qe wl -— fon — i - BRM MOM ee ewe ee fey oe & fe. << 
<b fe imlM ~@ a ioe) [es] [ea] am AaEBOAOMEOAO SOME EECOOCOOCOO - ton] ica) 
RB © he oO Am <c<Ae CAR DBVVUHESETSD e Ww aA [°=] 
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U34F8 --- SYSTEM TEST UTILITY FOR BUILDING AUTO LO PN=1635230 EC=755104 PAGE O04 U34F8 ~-- SYSTEM TEST UTILITY FOR BUILDING AUTO LO PN=1635230 £EC=755104 PAGE OWA 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
0 -RO. ABSOLUTE. HEX VALUE (00000000) 153 AHTOE ADDRESS. HEX LOCATION(000018B8) IN CSECT(U34F8 ) LENGTH (2) 
0 oR1. ABSOLUTE. HEX VALUE (00009001) 154 AHTOE1 ADDRESS. HEX LOCATION (000018BA) IN CSECT(U34F8 ) LENGTH (2) 
290 299 300 302 304 ° 308 341 343 346 419 
368 369 370 372 384 384 384 385 387 81 ALTCONBT ABSOLUTE. HEX VALUE(00000100) 
393 439 440 4650 454 #469 474 #+%.\4Y76 479 481 
496 499 500 509 545 546 555 558 570 75 ALTCONST ABSOLUTE. HEX VALUE (000000C0) 
571 575 577 #4584 588 595 600 636 #424637 415 
646 653 50 ALTCONTY ABSOLUTE. HEX VALUE(00000240) 
0 -R2. ABSOLUTE. HEX VALUE (90000002) 399 = 483 
288 289 390 292 293 295 298 306 308 79 ASSIGNBT ABSOLUTE. HEX VALUE(00008000) 
342 344 45 376 379 £4+383 383 383 #383 499 
384 386 394 395 397 416 417 418 ~ ~)©6419 156 BH TOE ADDRESS. HEX LOCATION(000018BE) IN CSECT(U34F8 ) LENGTH(2) 
422 423 429 44O 4461 £449 451 453 454 424 
456 459 460 462 465 &70 #483 #490 498 157 BHTOE1 ADDRESS. HEX LOCATION (000018C0O) IN CSECT(U34F8 ) LENGTH(2) 
0 -R3. ABSOLUTE. HEX VALUE (90000003) 80 CHAINBIT ABSOLUTE. HEX VALUE (00004000) 
289 291 296 299 301 305 316 331 335 637 
323 377 480 382 382 382 382 388 418 146 CHALNMSK ADDRESS. HEX LOCATION(O000018AA) IN CSECT(U34F8 ) LENGTH (2) 
478 479 4486 487 490 492 #4244696 #449B- 505 145 CHANGE ADDRESS. HEX LOCATION (000018A8) IN CSECT(U34F8 ) LENGTH(2) 
506 508 538 539 556 #557 #558 560 £563 359 495 = 604) = 646 CGS 
566 567 569 570 572 574 #582 #4593 #423598 159 CHTOE ADDRESS. HEX LOCATION (000018C4) IN CSECT(U34F8 ) LENGTH(2) 
0 ~R4. ABSOLUTE. HEX VALUE (00000004) 308 CKFLT ADDRESS. HEX LOCATION (OOOO1B9A) IN CSECT (U34F8 ) LENGTH (2) 
409 430 437 438 439° 443 #446 513 517 303 
518 521 522 525 526 #529 #530 #533 #4534 624 CLEANUP ADDRESS. HEX LOCATION (00001FB2) IN CSECT(U34F8 ) LENGTH (4) 
538 543 544 545 549 552 605 606 #4612 337, 4 4 
B13 616 617 620 624 627 627 6 30 633 629 CLEAN1 et ea HEX LOCATION (OOOOTFCO) IN CSECT(U34F8 ) LENGTH (2) 
0 ~R5. ABSOLUTE. HEX VALUE (00009005) 631 CLEAN2 ADDRESS. HEX LOCATION (00001FC4) IN CSECT(U34F8 ) LENGTH (4) 
282 282 286 286 320 357 #358 $360 # £361 628 
362 363 366 367 £42®+371 «#23373 «374 46u 467 6 38 CLEAN3 ADDRESS. HEX LOCATION(OOO01FDA) IN CSECT(U34F8 ) LENGTH (4) 
488 493 550 561 =585 596 601 625 # £626 392 40 
, - 629 632 634 635 636 191 COMPT ADDRESS. HEX LOCATION(000018FE) IN CSECT(U34F8 ) LENGTH (2) 
-R6. TE. HE 
ABSOLUTE. X VALUE (0 009006) Sok. WK 183 COMTB ADDRESS. HEX LOCATION(000018F6) IN CSECT(U34F8 ) LENGTH(1) 
0 ~R7. ABSOLUTE, HEX VALUE (00000007) 34) 
280 284 #312 £4#3%4 «318° ©325 #327 «2330 « «334 190 COMTBND ADDRESS. HEX LOCATION(000018FC) IN CSECT(U34F8 ) LENGTH(1) 
339 §9349 «63533552 S401 120 4200 2487 346 
433 Guz 497 501 S04 537 553 578 581 76 CONFIGTB ABSOLUTE. HEX VALUE (00003000) 
589 592 599 608 619 631 632 640 644 288 =—394 4 
650 656 515 CONTIN ADDRESS. HEX LOCATION (00001E42) IN CSECT(U34F8 ) LENGTH(2) 
437 SADD ADDRESS. HEX LOCATION(00001D54) IN CSECT(U34F8 ) LENGTH(4) 541 
191 | 403 513 CONTINU ADDRESS. HEX LOCATION(00001E3A) IN CSECT(U34F8 ) LENGTH (2) 
517 SADDM1 ADDRESS. HEX LOCATION (00001E44) IN CSECT(U34F8 ) LENGTH(4) 310 
445 480 611 CONTINUE ADDRESS. HEX LOCATION(00001F84) IN CSECT(U34F8 ) LENGTH (2) 
521 $ADDM2 ADDRESS. HEX LOCATION(00001E54) IN CSECT(U34F8 ) LENGTH(4) 623 
458 49 DC PMODE ABSOLUTE. HEX VALUE (00000234) 
525 $ADDM3 ADDRESS. HEX LOCATION (00001E64) IN CSECT(U34F8 ) LENGTH(4) 481 
468 545 DELMORE ADDRESS. HEX LOCATION(OOOO1EAA) IN CSECT(U34F8 ) LENGTH (2) 
529 SADDHS ADDRESS. HEX LOCATION (OOO01E74) IN CSECT(U34F8 ) LENGTH (4) 611 
ee ne 491 : d : 619 DELOUT ADDRESS. HEX LOCATION(QOQ01FA4) IN CSECT(U34F8 ) LENGTH (4) 
DRESS. HEX LOCATIO E CSECT (U34F 
ne aes Het ‘ apes i ee ee Oetker DENSTECT 588 DELSET ADDRESS. HEX LOCATION (00001F28) IN CSECT(U34F8 ) LENGTH(4) 
DDRESS. HEX LOCATION O1E IN CSECT F8 
ae eon 192 va sie eat ue y EERSTE) 92 DEVTAB ADDRESS. HEX LOCATION (00001812) IN CSECT(U34F8 ) LENGTH (2) 
DRESS. HEX LOCATION F CSECT F 
a ates 551, 362 : ere b Oy, SBC SRST USE E. «2: BENGRE CS) 171 —-— DHTOE ADDRESS. HEX LOCATION (000018DC) IN CSECT(U3UF8 —) LENGTH (2) 
DDRESS. HEX LOCATION (00001F96 CSECT (U34F8 
568 ( MEER ( ERAS Te 172 DHTOF1 ADDRESS. HEX LOCATION(O00018DE) IN CSECT(U34F8 ) LENGTH (2) 
653 SEND ADDRESS. HEX LOCATION(0000200C) IN CSECT(U34F8 +) LENGTH (4) S77 58 
196 162 EHTOE ADDRESS. HEX LOCATION(000018CA) IN CSECT(U34F8 ) LENGTH (2) 
649 $SERROR ADDRESS. HEX LOCATION (OOOO1FFE) IN CSECT(U34F8 ) LENGTH (6) 401 
283 287 62 EIGHT ABSOLUTE. HEX VALUE(00000008) 
165 $ETOH ADDRESS. HEX LOCATION(000018D0) IN CSECT(U34F8 ) LENGTH(2) 635 
166 $ETOH1 ADDRESS. HEX LOCATION (000018D2 34F8 = te Bi 335 ea heey See he 416 476 486 488 
A CA D2) IN CSECT (U34F LENGTH (2 
bee es? ( ) ( ) (2) 434 550 556 586 597 602 624 625 
312 SFTMSG ADDRESS. HEX LOCATION (00001BA6) IN CSECT(U34F8 ) LENGTH (4) 43 ETOH Reo een HEX VALUE (00000019) 
147 SHTOE ADDRESS. HEX LOCATION(O00018AC) IN CSECT(U34F8 ) LENGTH(2) 123 FAKEDA Rope esa nee LOCATION(00001890) IN CSECT(U34F8 ) LENGTH (2) 
409 $LIST ADDRESS. HEX LOCATION (O0001CF6) IN CSECT(U34F8 +) LENGTH (4) 404 FILLMR ty amet cab LOCATION (OOQOO1CE4) IN CSECT(U34F8 ) LENGTH (2) 
431 $LISTEND ADDRESS. HEX LOCATION (00001D42) IN CSECT(U34F8 ) LENGTH (4) 78 FINDQUAN eee ans SEOs eo 
432 $LISTMSG ADDRESS. HEX LOCATION (00001D46) IN CSECT(U34F8 ) LENGTH(6) 77 PINDSIZE ae OOLUT a HEX VALUE (OO00FFFO) 
114 SOUT ADDRESS. HEX LOCATION (00001842) IN CSECT(U34F8  ) LENGTH (2) 160 FLTPTYP ADDRESS. HEX LOCATION (000018C6) IN CSECT(U34F8 ) LENGTH (2) 
317 318 8=6©329 §=69330©608=— 3333 34 348 860349411 293) 302 ~— 30 
412 426 427 432 433 503 504 519 523 382 FND ADDRESS. HEX LOCATION (00001C96) IN CSECT(U034F8 ) LENGTH (2) 
527 5317 535 537 #580 581 +591 592 #607 378 
608 614 618 619 643 #4644 +649 #42650 #655 459 FNDDA ADDRESS. HEX LOCATION(00001D94) IN CSECT(U34F8 ) LENGTH(4) 
113 SOUTDLY ADDRESS. HEX LOCATION (00001840) IN CSECT(U34F8  ) LENGTH (2) 563 FNDDEL aDeRESSS HEX LOCATION(OOOOTEDA) IN CSECT(U34F8 ) LENGTH(4) 
109 SOUTIN ADDRESS. HEX LOCATION (00001838) IN CSECT(U34F8 ) LENGTH(2) 366 FNDDEL1 RDPREP Ss HEX LOCATION (OOOO1EE6) IN CSECT(U34F8 ) LENGTH (4) 
640 $SAVE ADDRESS. HEX LOCATION (00001FDE) IN CSECT(U34F8 ) LENGTH (4) 299 FNDFP ACE ae HEX LOCATION (00001B80) IN CSECT(U34F8 ) LENGTH (4) 
176 SWRITI ADDRESS» HEX LOCATION (000018E6) IN CSECT(U34F8 ) LENGTH(2) 298 FNDFP1 oT aa HEX LOCATION (OO00?B7E) IN CSECT(U34F8 ) LENGTH (2) 
150 @HTOE ADDRESS. HEX LOCATION(000018B2) IN CSECT(U34F8 ) LENGTH(2) 494 FNDLOC ADDRESS, HEX LOCATION (O0001DF6) IN CSECT(U34F8 ) LENGTH (6) 
180 @WRITI ADDRESS. HEX LOCATION(000018F0O) IN CSECT(U34F8 ) LENGTH (2) T44 FOU RB et taal HEX LOCATION(000018A6) IN CSECT(U34F8 ) LENGTH(1) 

82 ABLNK ABSOLUTE. HEX VALUE(0000C140) 70 FOURTY ABSOLUTE. HEX VALUE (00000028) 

73 ACTEST ABSOLUTE. HEX VALUE (00001000) 659 GOODEND ADDRESS; HEX LOCATION (00002022) IN CSECT(U34F8 ) LENGTH (2) 
439 ADDMORE ADDRESS. HEX LOCATION(00001D5A) IN CSECT(U34F8 ) LENGTH (2) 469 GOODTYP foe HEX LOCATION(00001DB0) IN CSECT(U34F8 ) LENGTH (2) 
536 ADDOUT ADDRESS. HEX LOCATION (00001892 IN CSECT (U34F8 ) LENGTH (4) 471 GOODTYP1 hope ee HEX LOCATION (0O0001DB4) IN CSECT(U34F8 ) LENGTH (2) 
537 ADDOUT1 ADDRESS. HEX LOCATION (00001E96) IN CSECT(U34F8 ) LENGTH(4) 476 GOODTYP2 Ayes HEX LOCATION (OOOOT1DBE) IN CSECT(U34F8 ) LENGTH (4) 

72 ADDQUAN ABSOLUTE. HEX VALUE(00000009) 44 HTOE ABSOLUTE. HEX ee ee oa 

365 313 326 328 4d2 4 25 502 579 590 
51 ADDTABPT ABSOLUTE. HEX VALUE (00002100) 353 INITCALL ADDRESS, HEX LOCATION (00001C38) IN CSECT(U34F8 ) LENGTH(4) 


U34F8 --- SYSTEM TEST UTILITY FOR BUILDING AUTO LO PN=1635230 EC=755104 PAGE 05 U34P8 --- SYSTEM TEST UTILITY FOR BUILDING AUTO LO PN=1635230 EC=755104 PAGE OSA 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAHE ATTRIBUTES AND REFERENCES 
325 INITRET ADDRESS. HEX LOCATION({00001BD6) IN CSECT(U34F8 ) LENGTH(4) 179 PGNAME1 ADDRESS. HEX LOCATION (QOOO18EC) IN CSECT(U34F8 ) LENGTH(4) 
116 INMSG ADDRESS; HEX LOCATION (00001846) IN CSECT(U34P6 ) LENGTH (2) 53 PROGACT Bee aa Cena re 
117 INMSG1 ADDRESS. HEX LOCATION (00001848) IN CSECT(U34F8 ) LENGTH (2) 98 PROGCON SUL R ESS, HEY DOC RTPON OREO Le Tey AM cee eetUaEe = FENCE 
118 INMSG2 ADDRESS. HEX LOCATION (0000184A) IN CSECT(U34F8 ) LENGTH(62) 101 PROGDEV apPReoes HEX LOCATION (00001825) IN CSECT(U34F8  ) LENGTH (5) 
48 LASTADD ABSOLUTE. HEX VALUE (00000230) 107 PROGSIZE ADDRESS. HEX LOCATION (00001834) IN CSECT(U34F8 ) LENGTH (2) 
360 
418 LOOP1 ADDRESS. HEX LOCATION(QOQ001D1A) IN CSECT(U34F6 ) LENGTH (2) 103 PROGSTRT BODRES >? HEX LOCATION(0000182C) IN CSECT(U34F8 ) LENGTH (2) 
575 LOOP10 ADDRESS. HEX LOCATION(QOOO1EFC) IN CSECT(U34F8 ) LENGTH(2) 46 READI ABSOLUTE. HEX VALUE (0000001F) 
343 LOOP11 ADDRESS. HEX LOCATION(OO001C1A) IN CSECT(U34F8 ) LENGTH (4) ee sananaai BO se ye Nabe Ben uy See MCS 
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S3400 --- SYSTEM TEST EXERCISOR CONTROL PROGRAM P/N=1635211 EC=754882 PAGE 02 S3400 --- SYSTEM TEST EXERCISOR CONTROL PROGRAM P/N=1635211 EC=754882 PAGE O2A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003410 241 RPCD2 EQU x'34u10° PROGRAM NOT EXPECTING REPLY COO0O01E 0c06 359 CONST bc A (CONEP CONSOLE INT SIA 
003413 242 VFYCD EQU X*' 3413! VERIFY CONSOLE DATA ENTRY 000020 0260 360 SFTPT DC A(PCKLB SOFT TRAP LSB POINTER 
003414 243 ENTCD EQU X'3g Tae ASK FOR DATA ENTRY 000022 O99A 361 SFTSI DC A (PCKEP SOFT TRAP SIA 
003415 244 SVCOD EQU X'3415? TOO MANY SVC CALLS 000024 00000900000000000 362 DC aoan) RESERVED LOCATIONS 
003817 245 CODE2 EQU X' 38178 KEYBOARD BEING REDEFINED 000030 052405240524052u0 363 DEVIT DC 12 A fsanret DEVICE OO-FF INTERUPT STA 
00341D 246 DMPCD EOQU X'341D! DATA IS BEING DUMPED 000130 052405240524 05240 364 DC 128A (STRIT INITIALLY SET TO STRAY 
248 PES PSL SSS eS ES SSeS SS CSS SCS SS SSS SSCS See SST Se SCS Se ST TTT TCT CTT TTT TTT TTT TTT 366 OR ROR RRO RRR OR III IOI OR RIO II OR IIR ROR RIOR I RRR ROR aR Ra RGR RRR RR ROK ai ke ae ak 
249 * * 367 * * 
250 * THE FOLLOWING EQUATES ARE THE DISPLACEMENT FROM THE ~ 368 * THIS PAGE CONTAINS THE INTERPROGRAM COMMUNICATION AREA. ALI. * 
251 * START OF A PROGRAM HEADER OF THE VARIOUS INFORMATION IN * 369 * ENTRIES MUST REMAIN IN THEIR EXACT STOPAGE LOCATIONS. * 
252 * EACH PROGRAM HEADER * 370 * * 
253 * * 371 RRR ROR II ROR OIRO Of IOI III IIIOROI GIORGI IGOR IOI IGRI IORI ORO ak akc ae 
PIE SESS ST LSS SS SSS SSS SSCS CCS SSCS SSS eS TC SST CSS CSCC TCCCCLCCOTCCT CSCC CSCC LC. T: 000230 0000 372 LASAD DC A(0 LAST VALID STG WORD ADR 
000000 255 HID EQU 0 PROG I.D. ; 000232 0000 373 CPUMD DC A a ISB FROM IPL* FED DEVICE 
000000 256 DVADR EQU 0 DEVICE TYPE IN DEVICE TABLE 000233 374 DKAD EQU CPUMDtONE IPL DEVICE ADR 
000001 257 DVTYP EQU 1 DEVICE ADR IN DEVICE TABLE 375 * INTERUPT ROUTINE 
000003 258 HDDP1 EQU 3 DEVICE DEPENDENT DATA 376 * (DCP Sepa eT 
000004 259 HDDP2 EQU 4 DEVICE DEPENDENT DATA 000234 =6200 377 INDIC Dc B*'1000001000000000! INDICATOPS USED BY DCP 
000006 260 LSADR EQU 6 LAST ADR DISPLACEMENT 378 * BIT O - SPARE 
000006 261 HPK EQU 6 PROTECT KEY 379 * BIT 1- RELOCATE PROB PROG 
000007 262 HPK1 EQU 7 PROTECT KEY PLUS ONF 380 * BIT 2 - SPARE 
000006 263 HPSA EQU 6 DIAG PROG START ADR 381 * BIT 3 - I=UTILITY REQ FOR DATA 
000006 264 INTAR EQU 6 DEVICE INTERRUPT ADR 382 * BIT 4 - PGM LOADED 
000008 265 HDVTB EQU 08 DIAG DEV TABLE POINTER 383 * BIT 5 - IPL BIT 
000011 266 EXPNT EQU 17 384 * BIT 6 - STOP AFTER MSG 
000012 267 TBEND EQU 18 END OF TABLE IND 385 * BIT 7 - ALT OUT DEV ASIGNED 
000013 268 SCEND EQU 19 END OF SECTOR IND 386 * BIT 8 - IND TAKE NEXT FNTRY 
O000TY 269 CICBT EQU 20 C Y C B INDICATOR 387 * BIT 9 - INPUT FROM PROG CONSOLE 
000008 270 CFEXT EQU a8 388 * BIT 10 - SVC READI 
000012 271 HTUID EQU 18 MDI MAP I.D DISPLACEMENT 389 * BIT 11 - STOP ERROR COUNTING 
000010 272 UDTAS EQU 16 UNIT ASSIGNED BIT 390 * BIT 12 -—- SPARE 
000020 273 PDTAS EQU 32 391 * BIT 13 - SPARE 
000000 274 UNCRT EQU 0 UNCONDITIONAL RETURN BIT 392 * BIT 14 - UNIT ASSIGN REQ 
000002 275 CKDAD EQU 2 REQUEST FOR ALT CON ON LINE 393 * BIT 15 - CONVERT TON HEY 
00000B 276 IOCHK EQU 11 I/O CHK IN PSW 000236 OA2A 394 DCPO1T DC A(FNDDS 
O77 EOI OO III IOI IOI IGICIGIGISI AGIOS IOI IGG IOIOIIGIGISI OIRO III ICH i a kok 000238 ORAA 395 DCP02 DC A (DSKRD 
278 * Q00023A OABO 396 DCPO3 DC A (DSKWR 
279 * THE FOLLOWING EQUATES ARE THE OFFSETS INTO EACH CONFIGURATION 00023C OUOE 397 pDCPOY DC A (DBUF) 
280 * ENTRY FOR THE DATA SPECIFIED. (16 BYTES / ENTRY) O0023E 17EF 398 pcP0S Dc A (FNDPG) 
281 * Q0GO240 0000 399 OPADR DC A (*-*) ADR OF ASSIGNED OUTPUT DEV 
APR LE LESS SSS SLE SS SSS SSC SSCS SSS SSS CSCS CSL SSS SS SCS Ce SSS SSCCCCCLCS CS CPSC eS Te SS Ss 000241 u00 OPTYP EQU OPADR¢ONE DEV TYPE FOR ASSTIG OUTPUT 
000000 283 CUDA EQU 0 DEVICE ADDRESS CO00Q2u4U2 OQO3BD 401 SEIDO DC A (SEIDTt) 
000001 284 CUDT EQU 1 DEVICE TYPE 000244 £1000 402 SECSZ DC X'1000!8 
000002 285 CUDF EQU 2 CONTROL FLAGS 000246 0616 4O3 DKINT DC aera ADDR DISKETTE INTERRUPT ROUTINE 
000003 286 CUDD1 EOQU 3 DEVICF DEPENDENT DATA -- 1 000248 07C0 4O4U DCPO6 DC A (SCHED ADDRESS OF THE SCHEDULER ROUTINE 
000004 287 CUDD2 EQU 4 DEVICE DEPENDENT DATA -- 2 OOO24UA 00000000 405 DCPO7 DC 2A (0) EXPANSION AREA FOR COMMON POINTERS 
000005 288 CUDD3 EQU 5 DEVICE DEPENDENT DATA -- 3 ude * 
000006 289 CUDDY EQU 6 DEVICE DEPENDENT DATA -- & OOO02Z4UE 14D8 4O7 ECPOO DC A (DUMPX) ADDR DUMP ROUTINE EXIT INSTRUCTION 
000007 290 CUDD5 EQU 7 DEVICE DEPENDENT DATA -- 5 000250 O31A 408 ECPO1 DC A (CMD? ADDR STOP CMND POINTER 
000008 291 CUDD6 EQU 8 DEVICE DEPENDENT DATA -- 6 000252 O31E 409 ECPO2 DC A (CMD9 ADDR TERM CMND POINTER 
000009 292 CUDDT EQU 9 DEVICF DEPENDENT DATA -- 7 000254 0322 410 ECPO3 DC A (CMDB ADDR BEGIN CMND POINTER 
OOOOOA 293 CUDD8 EQU 10 DEVICE DEPENDENT DATA -- 8 000256 0330 411 ECPOY Dc A(SVCI ADDR SVC IDLE POINTER 
OO000B 294 CUDDY EQU 11 DEVICE DEPENDENT DATA -- 9 000258 033A 412 ECPO5 DC A(SVCT ADDR SVC TERM POINTER 
Q00000C 295 CUDDA EQU 12 DEVICE DEPENDENT DATA -- 10 Q0025A OSAC 413 ECPO6 DC A(DVTA CICB TABLE ADDRESS 
O00000D 296 CUDDB EQU 12 DEVICE DEPENDENT DATA -- 11 00025C 0Q7cC0 414 ECPO7 DC A (SCHED SCHEDULER ROUTINE ADDRESS 
QOOOOE 297 CUDRI EQU 14 DEVICE READ ID DATA RETURNED Q00025E OFBE 415 ECPO8 DC A($PRNT COMMON PRINT ROUTINE ADDRESS 
299 OIRO ROR OI ORO ROR II ROR IR IRI IO IRI IR III RRO ROP ORG doa a ake ak 16 RRO RRO ORR IORI IO IIR IOI IOI IIR IOI GI ak i ako ak akoak ak aie ak 
300 * 18 ROR ROO IO IOI IORI IGOR II I II IR ROI RRC RO I a aR ROI ak ak ake akc ake age 
301 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE 419 * 
ae . START OF A QUE BLOCK OF THE VARIOUS INFORMATION, nese : STORAGE ARFA RESERVED FOR LSBts 
CVE SECC LSS S SSCS SCS SSS SS SLCC SSeS SSS SSS SSS CSS SST SSeS SSS Te TT ST TTT ee Se eT G22 FCO ORO ROR ROI GIOIOI SIO IOI IR III OR I III III RO aR IG kak ak kok ica 
000000 305 QIAR EQU 0 IARB OF CALLING PROGRAM 000260 00000000000000000 423 PCKLB DC 12A (0 MACHINE CHECK AND PROGRAM CHECK LSB 
000002 306 QAKR EQU 2 000278 00000000000000000 G24 PTWLB DC 115A : POWER - THERMAL WARNING LSB 
000004 307 ESR EQU 4 000296 00000000000000000 425 CONLB DC 111A CONSOLE LSB 
000006 308 ORO EQU 6 XRO OF CALLING PROGRAM 0002AC 0000 426 CONLV DC nO) CONSOLE LSB 
000008 309 OR1 EQU 8 XR1 OF CALLING PROGRAM OOO2AE 00000000000000000 G27 SVCLB DC 15A (0 INITIAL LSB FOR SVC INTERRUPTS 
OOOOOA 310 gRe EQU 10 XR2 OF CALLING PROGRAM 0002CC 00000000000000000 428 DC 15A (0 ADDITIONAL LSB'S FOR SVC INT 
COO0O0C 311 QR3 EQU 12 XR3 OF CALLING PROGRAM OOOZ2ZEA 00000000000000000 429 STLSB DC 15A (0 
OOOOOE 312 QR4 EQU 14 XR4Y OF CALLING PPOGRAM 000308 FFFF 430 DMONE DC FE {* STOPPER - CONSTANT FOR DOUBLE 
000010 313 QRS EQU 16 XRS OF CALLING PROGRAM OOO30A FFFF 431 DC Pie MINUS ONE 
000012 314 QR6 EQU 18 XR6 OF CALLING PROGRAM 000308 432 HEXFF EQU DMONE 
000014 315 QOR7 EQU 20 XR7 OF CALLING PROGRAM 000308 G33 MINON EQU DMONE 
000016 316 QSVC EQU 22 SVC NUMBER OF CALLING PROGRAM 435 * DECODE CPERATOR COMMANDS ROUTINE ree) 
000017 317 QRAL EQU 23 RETURN CODE AND LEVEL ENTERED Y36 * BRANCH TABLE FOR OPERATOR COMMANDS 
318 INTO SVC ON 00030cC 437 CMDTB EQU * 
000018 319 QAV1 EQU 24 AVAILABLE WORD 1 00030C 11B0 438 DC A (NORTN QO - NO RESPONCE 
OOOOTA 320 QAVe EQU 26 AVAILABLE WORD 2 OOO030E 11BE 439 DC A (YSRTN 1 - YES RESPONCE 
322 RRO ROO RRO IORI OR ORO OIRO IORI OR IIR I ROR OI IOI IOI aOR ROR kk ak kobe ak 000310 1436 uud pc A (EP RON 2 - STOP ERROR COUNTING 
323 * 000312 143E Yd DC A (ERROF 3 - RESUME ERROR COUNTING 
324 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE START 000314 OA78 W4?2 DC A (FN26 4 - INVALID 
325 * OF EACH SLOT IN THE DEVICE TABLE TO THE VARIOUS 000316 OA78 443 DC A FN26} 5 - INVALID 
326 * INFORMATION IN EACH SLOT 000318 11C4 “YY DC A (RSPGM) 6 - RESUME PROGRAM 
327 * OO031A 0A78 445 CMD7: DC A N26 7 - STOP SYSTEM TEST 
328 ORO OR ROR IO ROI I OIIOI III KOR IRR IOI I RIOR I I RRO ROR RIOR I RRO ROR ake ake age 00031C 1108 U46 DC A (COUNT) 8 - DUMP PROGRAM COUNTERS 
000002 329 OAG EQU 2 RETURN ADDRESS IF COND CODE OF OO0O031E OATS “U7 CMD9 DC A(FN26 9 - TERMINATE DFV E 
330 * INTERUPT MATCHES THF COND 000320 OA78 44s DC A N26} A - INVALID 
331 * CODE AT OCC 000322 123A G49 CMDB DC A (BPPGM) B - BEGIN PROGRAM OR DEVICE 
000004 332 OAB EQU \ RETURN ADDRESS IF CONDITION 000324 OA78 450 DC A a aee C - INVALID 
333 * CODE OF INTERUPT DOES NOT 000326 T4O4UE 454 DC A (DUMPS) D - DUMP STORAGE 
334 * eaaee CONDITION CODE AT OCC 000328 0OA78 452 DC A ra) E ~ INVALID 
000007 335 occ 7 ONDITION CODE EXPECTED O0032A 13B2 453 ; DC A (REPGM) F - RESPOND TO PROGRAM 
337 ee eaee Eee eT eee Tee ea may Tt aoe. eee 455 RRO IORI OO IOI IOI IORI IOR IOI IOI RRR RR IOI IOI i IGRI GRO IR gf ROR fe afc 
338 * 456 * 
339 * THE FOLLOWING IS A MAP OF LOW STG - ALL STG LOCATIONS YS57 * THE FOLLWING IS THE ADDRESSES BRANCHED TO Y THE INITIAL 
340 * UP TO THE SYSTEM LSB'S APE PERMANENT ASSIGMENTS. u5B8 * SVC HANDLER FOR EACH INDIVIDUAL SVC PARAMETER FIELD. THEY 
34u1 * 459 * ARE IN ASCENDING NUMERICAL ORDER. ANY NOT SHOWN ARE 
34D ORO IORI OIRO IOI GIO ORO RR ROR OR RR IO; ROO R ROR RRO FOR i kok ak kok u60 * INVALID. 
000000 6802 1848 343 SDCP B INIT INITIALLY BRANCH TO INITIALIZATION 461 * 
000002 344 SDCP2 EQU SDCP#+2 ROUTINE. INITIALIZATION WILL YO 2 ORR OR OI IRR ORR OI IIOIOIGICIOOR IOI GORI OIOR GIGIOI Ok RGR GIGI kk ai iki kak kek tk ak Rag ete 
3u5 * POINT IT TO RESTART ROUTINE 00032C 463 ISVCP EQU * 
346 * ee 00032C OB9SA 464 DC A (CONSO SVC 0 ADDR OF OUT SVC 
000004 00000000 347 DC eat? RESERVE OOO032E OB9A 465 DC A (CONSO 1 ADDR OF OUTIN SVC 
000008 0260 348 MCKPT DC A (PCKLB MACHINE CHECK LSB POINTER 000330 O0cB8 466 SVCI DC A (DELAY 2 ADDR OF IDLE sSVC 
QOOQOOA O9EB 349 MCKSI DC A (MCKEP MACHINE CHECK SIA 000332 OCB4 467 DC A (DUMMY 3 ** RESREVED FOR FUTURE EXPANSION ** 
Q0000C 0260 350 PCKPT DC A (PCKLB PROGRAM CHECK LSB POINTER 000334 =oOcco 468 pc A(CHNG G CHANGE LEVEL.SVC 
OOO0O00R O99A 351 PCKSI DC A {(PCKEP PROGRAM CHECK SIA 000336 0OC34 469 DC A (DUMM 5 ** RESREVED FOR FUTURE EXPANSION ** 
0000 10 O2AE 352 SVCPT DC A (SVCLB SVC LSB POINTER 000338 OCD2 470 DC A (EXITA 6 EXIT WITHOUT RFTURN SVC 
000012 dQ944 353 SVCSI DC A (SVC SVC SIA 00033A OCDC G71 SVCT DC A (TERMA 7 TERMINATE SVC RTN 
000014 0260 354 PTWPT DC A(PCKLB POWER FAILURE LSB POINTER 00033c 0D22 4u72 pc A (OTO 8 RESET DEVICE SVC 
000016 O9FE 355 PTWSI DC A{PTWEP POWER FAILURE SIA QO0033E OD22 473 pc A (O10 Q RFAD ID Svc 
000018 Q260 356 TRAPT DC A (PCKLB TRACE LSB POINTER 000340 OD22 ayy DC A (OIO 10 START CYCLE STEAL SVC 
OOOO0TA O99A 357 TRASI DC A (PCKEP TRACE SIA 000342 0O0D22 W“75 DC A({OIO 11 START CYCLE STEAL STATUS SVC 
00001C 0296 358 CONPT DC A(CONLB CONSOLE INT LSB POINTER 000344 ONn22 476 pc A (OIO 12 PREPARE DEVICE SVC 
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Q008C4 6000 983 SVC PRINT THE HSG Q0099A 1099 PCKEP E 
0008C6 4E87 984 TBTR 3 ALTDV RESET THE ALT DEV ASSIG IND O0099A 582F 0276 1100 EBPSR P PCREB Rane SAVE PSW 
0008C8 8028 0308 05A8 985 HVB EXFr RL G SET INDICATOR THAT ALT WAS ASSIG 00099EF 4124 0260 1101 PC ADDR OF PROGRAM CHECK LSB 
QOO8CE 4EU6 986 TBTS hop) SET THE INDICATOR QO0OO09A2 4020 O6FE 3402 1102 BVT PCKCD, HCKMG PROG CHECK CODE 
0008DO 1203 987 JON R658 J-IT WAS ON 0009A8 4020 0700 DT7C3 1103 HVWI PKLAB, HCKH1 HOVE PC TO HESSAGE 
Q0008D2 8028 0308 0564 988 HVB HEXFF,ALTSH SET INDICATOR THAT ALT WAS ASSIG OOO9AE 1104 PCK20 Hv * 
0008D8 989 UDT25 Bag x OOO9AE 6FOD 0278 1105 R7,PTWLB LOAD SAR INTO THE DUMP AREA 
0OO008D8 8838 178E 17E8 990 MV® ACVTR*,INTAD SAVE INTERRUPT ADDRESS Q0009B2 4724 0528 1106 RTACV, PREPARE TO CONVERT RTN NUH 
OOO8DE 4030 178EF 0524 991 NVA STRIT ACVTR# STRAY INTERRUPT ADDRESS 0009B6 601A 1107 svc HTOE 
OOO8E4 992 UDT27 EU * 0009B8 4724 O52E 1108 HVA CKPTC,R7 PREPARE TO CONVERT CHECKPOINT 
QOO8EG OFOA 993 HVBI TEN,R7 NOH OF BYTES TO HOVE OO0OO09BC 601A 1109 SVC HTOE 
OOO8E6 2A24 994 MVFPN {res AB") HOVE THE DATA OOO9BE 8928 0016 150C 1110 HVW net gS rele PRYBU CONVERT PSW 
OOO8E8 T7A42 OOOA 995 SHI EN,R ADJUST POINTER 0009C4Y 4724 0534 7111 HVA sue @R7 CONVERT BLOCK 
OOO8EC 7922 OOOA 996 SUI TEN,R1 AGAIN 0009C8 601A 1112 SVC HTOE 
QOOO8FO 4950 997 TBTS R1,UDTAS SET THE ASSIGNED BIT OOO9CA 8928 0000 150C 1113 HVG ale STAR) c PREBO CONVERT IAR 
OOOBF2 4A12 998 TBT R2,TBEND END OF THE TABLE 0009D0 4724 O53A 1174 MVA ARC eRT7 CONVERT BLOCK 
OOOBF4 1209 999 JON DT 31 ~YES 0009D4 601A 1115 SVC HTOE 
OOO8F6 4A13 1000 TBT §82 SCEND) END OF SECTOR 0009D6 6808 180A 1116 HVW RTNE, RO SETTING 
OOO8F8 1209 1001 JON DT35 J-YES--GO GET NEXT SECTOR QOOO9DA E340 1117 MHVWS R1, QIAR 7k3 THE REGISTERS 
OOO8FA 4911 1002 TBT Ae EXPNT) HULTIPLE ENTRIES O0O09DC E24B 1118 MVWS R1,QSVC) ,R2 FOR THE FULL FUNCTION CON 
OOO8FC 1005 1003 JOFF 0pT31 J-NO 0009DE 6908 180C 1119 HVW KPT R14 UP 
QOOO8FE 4024 0000 1004 MVWI ZERO, RO CLEAR RO OOO9E2 4724 072C 1120 MVA NCK#A, R7 TTY CONTROL BLOCK 
000902 0210 1005 ABI SIXTH, R2 - BUMP TO NEXT ENTRY . O0009E6 5011 1121 J PTW1 PRINT PROGRAM CHECK MESSAGE 
000904 1006 UD29A EOU % 1123 EERE ERE EERE REAR ERE CECE RKEREEKKEEEEEEEKEEEKEE REE EKEE EK EE EK K 
000904 O10A 1007 ABI TEN, R1 BUMP R1 : 1124 * 
000906 50D5 1008 J opT21 CONTINUE 1125 * NAME MCKEP 
000908 1009 UDT31 a * 1126 * 
000908 402A 059C 10 10 LAB DRSV RETURN 1127 * PURPOSE THE HACHINE CHECK INTERRUPT HANDLER 
00090C 1011 UDT35 zou * 1128 * 
00090C D028 17FO 1012 MVD RO,SAV SAVE cHESe ee 1129 * METHOD PRINTS A MESSAGE TO INDICATE A MACHINE CHECK 
000910 4124 0278 1013 HVA PTRLB,R1 ADR OF 1130 * 
000914 p4u20 0552 1014 MVD UDTR4Y. RY GET one one ne PARAMETERS 1131 LSE S eT RESET ES EC TES EES SCR ESA EUSS STONES TS TESTS LETS TT Sele ees 
000918 0401 1015 ABI ONWE,RG UPDATE 0009E8 1132 MCKEP at 
QOOO091A O5SFF 1016 ABI 1,85 THE SECTOR PARAMETERS OOO09E8 582F 0276 1133 FoR BeKLB+ gsc SAVE PSW 
00091C 10F5 1017 JZ upf31 ALL THRU O0O09EC 4020 O6FE 3403 1134 MC CKMG MACHINE CHECK CODE 
OOO091E 4724 0234 1018 MVA INDIC,R7 DCP INDICATORS OO0OO09F2 4020 0700 D&c3 1135 MVWE MCKLB,MCKM1 MOVE HC TO MESSAGE 
000922 4FUF 1019 TBTS ABy Chron) T/ON THE IWD QOO9F8 4124 0260 — 1136 MVA PCKLB,R1 LOAD ADDRESS OF LSB 
000924 4020 OSAA O92E 1020 MVA DT36,CNF T RETURN ADR 0009FC 50D8 1137 PCK20 ; 
00092A 6802 12BE 1021 B LPO7A GET THE NEXT SECTOR VV 99 We me he a a ee KE OR EKER REE EEE EEE KEKE EEK EAE KE 
00092E 1022 UDT36 cou * 1140 * 
0O0092E 9128 0018 0552 1023 MVD ARTE GAY OPERA SAVE THE SECTOR POINTER 1141 * NAME PTWEP 
000934 D020 17F0 1024 HVD AV, RO RESTORE THIS REG 1142 * 
000938 4224 0412 1025 MVA DBUF+CHDLG, R2 POINT TO DATA 1143 * PURPOSE POWER - THERMAL WARNING INTERRUPT HANDLER 
00093C 4911 1026 TBT §83 EXPNT) CHAIN BIT ON 1144 * 
OO0093E 12E2 1027 JON D25A J-YES 1145 * METHOD SET A SWITCH INDICATING TO DCP THAT A POWER - THERMAL 
000940 6802 O87E 1028 B UDTO7 1146 * INTERRUPT HAS OCCURRED. 
GO 30 Me ee ee he ae ae Re a ke a a ee a a a ae ae a ae aa ai ae a ae ae ea a aa ea a a a a 1147 * 
1031 * 1148 FEI O OO a Ci iGO CO GOI I OO Oi RHO + 
1032 * NAHE INITIAL SVC HANDLER OOO9FE 1149 PTWEP Eeu a7 
1033 * | OOOSFE 6FOD 0278 1150 PTWLB LOAD SAR INTO THE DUMP AREA 
1034 * PURPOSE THIS ROUTINE HANDLES THE INITIAL SVC. IT | QOOOA02 582F 0276 1151 CPPSR BORL B+ GSVC SAVE PSW 
1035 * DETERMINES WHO SHOULD GET CONTROL AND PASSES OOOA06 4724 O6FC 1152 MVA PTMS,R ADR OF MESSAGE THERMAL SWITCH 
1036 * CONTROL TO THAT INDIVIDAL SVC ROUTINE. OOOAOA 1153 PTW1 EQU * 
1037 * QOOAOA 680C 390 1154 I HLTIO RESET ALL CHANNEL ACTIVITY 
1038 * METHOD THIS ROUTINE BUILDS A BOF BLOCK AND PASSES THE OOOADE CE25 179C 1155 MVWZ PRTSes R6 
1039 * ADDRESS OF THAT BLOCK TO THE INDIVIDUAL SVC 000A12 6000 1156 SVC OUT 
1040 * ROUTINE IN XR1. OOOA14 D125 O27A 1157 MVDZ PTWLBtTWO,R1 ZERO OUT UNUSED WORDS 
1041 * OO0A18 D125 O27E 1158 MVDZ PTWLB+SIX,R1 tee ve es 
1002 20 Ro ok oink i iog a toko go doit dak gob ka dk ke gk Oe Bk OOOAIC 4224 0594 1159 MVA FAKDP,R2 LOAD ADDRESS OF FAKE DUMP AREA 
O009kY4 1043 svc FOU * OOOA20 4020 14D6 14D8 1160 NVA DUMPK, DUMPY+TWO CHANGE BRANCH ADDRESS OF DUAP RTN 
000944 6908 0010 1044 MVW SVCPT,R1 ADDR OF SVC LSB POINTER OOOA26 6802 1454 1161 B DUMP BRANCH ' TO BEGIN DUMP 
000948 4424 0308 1045 HVA DMONE, RG ADR OF THE END OF LSBIS 1163 KKK ORR to iO aR ROK RK RK RO RO RR fio koko ak toate ake tr ate ok 
O0094C 7425 1046 CH R4,R1 END OF THE LSB‘S YET 1164 * * 
OOO94E 1804 1047 JNE SVC05 B-NO 1165 * THE FOLLOWING iS THE DESCRIPTION OF THE DIAGNOSTIC * 
000950 4424 3415 1048 MVWI SVCOD,R4 PUT CODE IN R4& 1166 * DISKETTE FORMAT * 
000954 7890 1049 SECON RY PUT THE CODE IN LIGHTS 1167 * START END_ x 
000956 5OFF 1050 J * 1168 * CYL TRK CYL TRK DESCRIPTION * 
000958 1051 sv¥cos EOU * 1169 * 0 0 0 1 IPL PROGRAM * 
000958 4029 0010 OOTE 1052 AWI THRTY,SVCPT BUMP TO NEXT LSB 1170 * 1 0 3 1 DISKETTE DIAGNOSTIC TEST ACKS * 
QOO095E 7899 1053 CPCL R4& COPY CURRENT LEVEL 1171 * 4 0 5 1 CPU TEST PROGRAM (PROC1 * 
000960 C468 0017 1054 MVB RG, (R1, QRAL SET LEVEL FOR RETURN 1172 * 6 0 7 1 CPU TEST PROGRAM (PROC2 % 
000964 £340 1055 MVWS its gi rhe) R ADDR OF SVC 1173 * 8 0 9 1 CPU TEST PROGRAM {PROCS * 
000966 O3FE 1056 ABI 2 f DECREMENT POINTER 1174 x 10 0 10 1 DCP PROGRAM (DCP * 
000968 CKEO 0001 1057 MVB (B3 , ONE) R4 MOVE SVC NUMBER INTO QUE BLK 1175 * 11 0 11 1 VTOC (DIRECT RY) * 
00096C C468 0016 1058 MVB 4, (R1,08VC) 1176 * 12 0 73 1 PROBLEM PROGRAM SPACE * 
000970 1059 s¥10 EQU * 1177 * MDI * 
000970 F421 1060 CBI VLDSV, RY 1178 * MAPS AND TUS * 
000972 1103 1061 JEP SVCRT 1179 * DCP UTILITIFS * 
000974 3409 1062 SLL ONE, RY DOUBLE FOR 2 BYTE PARA 1180 * OTHER DIAGNOSTICS * 
000976 6892 032C et % B (R4,ITSVCP) * BRANCH TO INDIVIDUAL SVC ROUTINE 1109 74 0 76 1 DISKETTE DIAGNOSTIC TEST TRACKS * 
* 
tne? RETURN HERE TO RETURN TO NSTI 1183 TESTES EE PST ECS ESESSS SESS ERS TATE S SNS CA ERERL TS RASS NERS ERS SES ES EES ERE ® 
* * 
OOO9ITA 1067 SVCRT EQU * 1185 * THE FOLLOWING IS THE FORMAT OF A VTOC ENTRY: * 
guste 9388 178° eg WE Parga n3 Leth REET gtITCE HE) 2 aacu gvmey 15 32 
ACH TRY IS BYTES IN LENGTH WITH 8 ENTRIES/SECTOR. * 
000980 C320 0563 1070 MVB STFLG, R3 LOAD STRAY INTER FLAG 1188 * " L2ES TOR * 
000984 1003 1071 JZ SVCRP1 BRANCH IF OFF 1189 * BYTES DESCRIPTION * 
000986 C325 0563 1072 MVBZ STFLG,R3 ZERO FLAG 1190 * O- 5 DATASET NAME IN EBCDIC. * 
OO0098A 5005 1073 J SVCR2 BRANCH 1191 * 6- 7 BEGINNING RECORD NUMBER OF THE PROGRAM {BOE * 
00098C 1074 SVCR1 EQU * 1192 * 8- 9 ENDING RECORD NUMBERt1 OF THE PRS OD) \ OF) * 
00098C 690D 0010 1075 MVW R1,SVCPT RESET LSB POINTER TO FREED LSB 1193 * 10-11 RESERVED (USED IN PRGPDS ENTRY AS * 
000990 C260 0017 1076 MVB (RU, QRAL) -R2 GET THE RETURN LEVEL 1194 * 12 TYPE OF DATASET - 'P* PROGRAM DAP cee * 
000994 SA4E6 1077 SELB 2, (R1) RETURN TO CALLER - NSI 1195 * - "D' NON-ADDRESSABLE DATASET. * 
000386 6802 07D0 1079 ne Be” Scud BRANCH oy «19 Bach Coa : 
1081 3 eck RR tok to kok dk oki kkk Sok io kk kk koto oko 1198 * 18-24 POGeca CRU canere oo fa ne see ee : 
A082 * 1199 * 25-31 PROGRAM EC NUMBER. * 
1083 * NAME PCKEP 1200 * x 
1084 * 1201 OO IO IO OR i RIO OR I oR OR oR iO OR Io koko i rR i got iO i i toi io 
yoee : PURPOSE PROGRAM CHECK INTERRUPT HANDLER a ¢ * 
THE FOLLOWING IS THE METHOD OF RECORD NUMBERING: * 
ioeeaet. | Sete SPemee ree BY THE DINGNOSTIC BROGRAK. 1308 + ny ; 
* ALL RECORDS ARE oS Be A UNIQUE NUMBER 0-2309. NUMBERING ‘ * 
1089 * eeeeON RETURN TO THE DIAGNOST PROGRAM 1206 * STARTS AT CYLINDER TRACK 0 RECORD 1 (0) AND GOES * 
1090 * R7 = IAR WHERE PROGRAM CHECK OCCURRED 1207 * TO CYLINDER 76 Feack 4 RECORD 15 (2 2309 SEQUENCING * 
1091 * R6 = PSW AT THE TIME OF THE INTERRUPT. 1208 * GOES FROM TRACK 0 RECORD 15 TO TRACK 1 RE ftORD 4 THEN TO * 
1092 * RETURN IS THROUGH THE DIAGNOSTIC PROGRAM 1209 * THE NEXT ea ae TRACK O. % 
1093 * PROGRAM CHECK-~ENTRY POINT. 1210 * * 
1094 * V 211 KK KOKORO ROKR ORR ROR ORR RIOR OI ROI ROR IO FOR OIC IC 
1095 * ON TERMINATION THE PSW, IAR, AND VQ V3 Fe Ro i I ORO RIOR ROR RIOR IOI OR ROR IO ROR ROK rq gg kk kf aka ake 
NGG : PROGRAM ID ARE PRINTED. IW THE PROG-CK MSG. 1214 x * 
%* 
1098 [ROO ROR OR IO OI OR OR ROR IR IR IR Bot gk Xk 404K oie * PrOCRRA poe Tne SOREN OL Re Dar aeet) CONTAINING ; 
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1217 * * OOOAA6 1332 FN70 EQU * 
1218 * FIRST SECTOR OF PROGRAM * OOOAA6 ODOO 1333 MVBI ZERO, R5 SET DATA SET FOUND 
1219 * * OOOAAR SOFS 1334 J GO RETURN 
1220 * BYTES * 1336 RK RK KKK EK KKK KK KOK KKK OK KK OK ok tk kok ka fOK kok Kk 
1221 * O- 1 LENGTH OF PROGRAM IN BYTES. * 1337 * 
1222 * 2- 3 ADDRESS PROGRAM IS TO START EXECUTION AT. x 1338 * THE FOLLOWING ROUTINE IS ENTERED BY THE DCP TO DO 
1223 * 4- 5S NUMBER DATA SECTORS IN DATASET, * 1339 * A READ FROM THE DCP DISKETTE INTO ITS OWN BUFFER. 
1224 * 6- 9 RESERVED. * 1340 * 
1225 * 10- 11 ADDRESS OF 1ST DATA WORD-MUST BF AN EVEN ADDRESS. Xk / 434641 eK Rk RRO kk kok RR IOI KK IOI OOO ORR RR ORR qk OR gO tk kok ok kk kt ake fe ake ate 
1226 * 12- %3 NUMBER DATA WORDS IN RECORD. * OOOAAA 1342 DSKRD FOU * 
1227 * 14-239 113 DATA WORD-OBJECT MODULE. * OOOAAA 4524 03DC 1343 MVA RDCB, RS ADDR READ DCB 
1228 * 240-255 RELOCATION FLAGS. * OOOAAE 5002 1344 J DSK1 GO ISSUF READ 
1229 * * sei MRS SS SSS SESS TES SSE SIS SELES SE SS ET SEES ES SST ESS SSS SCTE SESS SSS STS SES SS 
1230 * REMAINING SECTORS OF PROGRAM * 1347 * 
1231 * BYTES * 1348 * THE FOLLOWING ROUTINE IS ENTERED BY THE DCP TO DO 
1232 * O- 1 ADDRESS OF 1ST DATA WORD-MUST BE AN EVEN ADDRESS. * 1349 * A WRITE TO THE DCP DISKETTE FROM ITS OWN BUFFER. 
1233 * 2- 3 NUMBER DATA WORDS IN RECORD. * 1350 * 
1234 * 4-239 118 DATA WORDS-OBJECT MODULE. * 1351 * FROM THE LABEL ISDIO ON IS A COMMON ROUTINE TO SET UP THE 
1235 * 240-255 RELOCATION FLAGS. * 1352 * DCBS AND ISSUE THE ILO COMMAND TO THE DISKETTE. IT ALSO CHECKS 
1236 * BIT 0 IS RELOCATION FLAG FOR 1ST DATA WORD. * 1353 * THE CONDITION CODE AFTER THE I/0 AND DOES ERROR RECOVERY. 
1237 * BIT 1 FOR 2ND DATA WORD ETC..... * 1354 * 
1238 * * 1355 AK ik ok kK tk kK ok kk kok kok oR dO kK bok kk tg kkk kkk akg ie ate ake tk tok ae ke ie ic akc ok 
1239 * BIT ON INDICATES DATA WORD IS RELOCATABLE. * OOOABO 1356 DSKWR EQU * 
1240 * OFF INDICATES ABSOLUTE. * OOOABO 4524 O3EC 1357 NVA WRDCB,R5 ADDR WRITE DCB 
1241 * * OGOABY 1358 DSK10 EQU * 
VQ 2D em ORR ORR IORI ORR ROR RIOR ROR ROR ORR OROR ROR ROR OR RIO FOI ak OOOABY 4O24 OUWOE 1359 MVA DBUF, RO ADD DISKETTE BUFFER 
T2444 oe kK OOOO IOI OR OR tk ok i ro R aR Rk RRR RIOR FOR toot ak OOOAB8 4020 0394 00 1360 NV WI SIXTh DKRTY SET RETRY COUNT 
1245 * QOOOABE 6DOD 03D6 1361 MVW RS, SEDCB+SKWE6 SFT CHAIN ADDR IN SEEK DCB 
1246 * NAME FNDDS OOOAC2 &828 OSA4Y OS5SA2 1362 MVW DK§V2,DKSV RESTORE THE POINTER 
1247 * OOOACB8 4028 05A2 C000 1363 STM  R6,DKSV SAVE REGS 
1248 * PURPOSE TO FIND A DATA SET NAME IN THE VTOC OOOACE 680C 03C8 1364 IO DSKPR 
1249 * OOOAD2 6F05 OBO8 1365 BNCC SEVEN,1IS25 
1250 * METHOD THE ADDRESS OF THE QUE BLOCK GENERATED BY THE OOOAD6 1366 DSK20 EQU * 
1251 * DIAGNOSTIC PROGRAM SVC IS PASSED TO THIS ROUTINE IN OOOAD6 6F03 OBUG6 1367 BAL SEEK, R7 GO SET UP DCBS 
1252 * XR1. THE DATA SET NAME IN THE DIAGNOSTIC PROGRAM OOOADA 4624 O3BC 1368 MVA SEIDB, R6 IDCB TO START SEEK 
1253 * PAPA LIST IS COMPARED WITH ENTRIES IN THE VTOC. OOOADE 1369 IS10 EOU * 
1254 * CONTROL WILL BE RETURNED WITH THE FOLLOWING REGS OOOADE 4029 Q394 FFFF 1370 AWI M1,DKRTY DECREMENT RETRY COUNT 
1255 * SET WHEN THIS ROUTINE IS COMPLETED. OOOAEY 1211 1371 JN 1S55 RETURN IF UNKECOVERABLE ERROR 
1256 * OOOAE6 68CC 0000 1372 IO (R6) ISSUE I/O TO DISKETTE 
1257 * RO=ADDR OF CORE LOCATION OF VTOC ENTRY OR NEXT OOOAEA 1373 IS12 FQU * 
1258 * AVAILABLE ADDR IF NOT FOUND. OOOAEA 6F04 07C0 1374 BCC SEVEN, SCHED GO TO SCHED IF I/O OK 
1259 * R1=QUE BLOCK ADDR OOOAEE 1375 IS20 EQU * 
1260 * R2=HEADER ADDR OF DIAGNOSTIC PROGRAM OOOAEE 680C 03C0 1376 TO DKRST ISSUE RESET 
1261 * R3=ADDR OF DIAGNOSTIC PROGRAM PARA LIST OOOAF2 680C 03C8 1377 sae) DSKPR ISSUE PREPARF 
1262 * R4=SECTOR ADDR OF VTOC WHERE DATA SET NAME QOOOAF6 6F05 OBO8 1378 BNCC SEVEN,1S25 BR IF IN ERROR 
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1686 . o30pBe 4ag8 189) BRE fazgstcen) 
6 * AM 
Sirs persicae Sinaia neces a Sek ween eee sBapee 3088 9983 Gee RE Eee pen Sec E eo gE' BF our 
1689 * E , 
1690 * as RESET, RID, STA ART, SECS, PRE EB, HEADO, READT, RSTAT, O00DE cu28 1796 1805 ag OVE Ra, ER ae PUT THE COUNT BACK 
* WRITO 1, C N 
1622 : ROUTINE BUILBS THE ADCBS AND S¥C ROUTINE. DCB IF SocKEa tte 0387 a Avs R3,DIPR HOVE DEVICE ADDR INTO PREPARE 
USED AND THE : 
enn se SHAW asoves: THE. 10 INSTRU TION QOODEC S0BF 1809 J Or28 GO RETORN 
1695 * METHOD ALL SVC*S ENTE R AT THE SAME POINT AND DECODE THE 1811 BEEK EKRKKEKKEREKKKEKEKEAKKEKEKEKKEREKEEKEKREKKEKEKKKEKEKEKEKKEKKEE 
1696 * PARAMETERS THAT ARE IN COMMON AND THEN JUMP AHEAD 1812 * 
1637 : TO DO THEIR OWN INDIVIDUAL FUNCTION. ong ; NAME CICB (SVC 20) 
1699 FEE ERKEREEKEEKEKEKEEEKEKEKEKEREEEEKEKREKEREKEKEKEKEKEKEEEK 1815 * PURPOSE RETURN ZERO RESULT INDICATOR 
000D22 1700 OIO EQuU * 1816 * 
Q000D22 73E7 1701 I R3, RT CHANGE THE REGS 1817 * METHOD MOVE ZERO TO CONDITION CODE 
000D24 6BOD 17F0 1702 MVW SAVE FOR LATER 1818 * 
000D28 E040 1703 MYBS (Et OTAR), RO GET SVC ADDR #¢ 2 1819 PSSST SESS STS SE ST SSS SS EST SE STL SSS SSS SES SS ST SSS SCS SS SSS CSS SCS STS See EF 
amt yee x, S¥C NODE $33 RFE y32u 1800 1339 CECT FOU rp, a3 START OF DIAG PGR 
MVWS RO R3, EIG fe 
170e * + (R3, ELGHT) BAL Leoe ee ene Enea aM OOODF2 E2C4 1822 MVWS (ice -HDVTB) 2 DEV TABLE START 
OOOD2E 680D 0566 1707 MNVW LSSVC SAVE LAST SVC QOODF4 0202 18 23 ABI BUMP PAST CNTRL CHAR 
000D32 D5E0 0004 1708 MVD (Es FOUR) , RS SAVE PARA 3 AND & QOODF6 E34A 1824 BVWS Sink Qh?) 7R3 ADR OF ICB 
000D36 C7FO 0000 1709 MVB R7 GET DEV ADDR OOODF8 4424 O5aCc 1825 MVA SAVE ARE FOR CICB ADR 
OOOD3A D3CO 1710 MVD re w RS SAVE PARA 1 AND 2 OOODFC 1826 CICB2 EQU 
O3OB3e auc oe A) ea popees 1883 0° ae Se Aga a2 FSyEESHEE BEY FO CONNECT 
MVWS R1,QAV1 Ss -YES-- 
OOOD3E C360 0016 1713 MVB Hey RG ive GEY Sye NARDERO eens eee OOOEO2 1829 CICB3 Ch 
000D42 8368 0506 0018 1714 MVB Bie Gone! Gee gapsiat: QAV1) MOVE COMMAND INTO IDCB OOOEO2 JA41 OOOA 18 30 I TEN, fr BUMP TO NEXT DEV 
0O0OD48 F309 1715 CBI ID,R3 SEe IF RESET OR READ ID QOOOE06 7C81 0002 1931 ant TWO, BUMP TABLE 
OOODUA 1111 1716 JP ors6 IF NOT BR OOOEOA 5OF8 1832 fees. J-CHECK THE NEXT ONE 
B3BKE gous 1745 0720 FOS tet, ousm x0 GOBESE unto HAG cree Boe Fa eomem 
Ss (R SR) ,R GET DIAGNOSTIC PROGRAM LSR 
OOOD4E 4264 0018 1719 MVA RICOAV AY ORD SAVE THE IDCB ADR QQOQOEQE 10F9 1835 JOFF E53 
000D52 684&C 0000 1720 R2{ ISssu 0 OO0F10 6B8D 0000 18 36 MVW R3 (R4) SAVE ICB POINTER 
000D56 700R 1721 CPLSR RO SAVE INDICATORS QOOE14 4AS4 1837 TBTS (R2¢C CICBT) AS THE IND 
000D58 6F04 ODSE 1722 BCC SEVEN,OI2 BR IF I/0 OK OOO0E16 1205 1838 JON BRANCH IF ALREADY CONNECTED 
QO0O0DSC A440 1723 MVWS RG&, (RL, OTAR) SET ERROR RET ADDR QOO0O0E18 C220 1796 1339 MVB cTERe R2 PUT THE COUNT REG 
OOODS5E 1724 O125 Eu rs OO0F1IC 0201 1840 ABI ONE, R2 BUMP COUNT BY ONE 
OOOD5SE E44D 1725 mVWS (R1-QAV2) -R4 2ND WORD IDCB OOOF1E C228 1796 1841 MVB ROC LONT PUT THE COUNT BACK 
boobed hace ea 1799 EVWS Ra CHS N ROPE SHTO BARR’ 00rS) OFO1 1843 Stee nYBI ONE R7 SET ZERO CODE 
TE MOVE INTO PARA LIst 
000D66 1728 0127 FOU * o (RS, ) OOOE24 3759 1844 SLE ELEGN, R7 POSITION FOR ZERO RESULTS 
ata Hits ne 1733 OTus tae ec COOLS rags 1800 18ae A eTer (Bi, QESR) , Ru RESET NEG AND ZERO INDICATOR 
SR SET DIAGNOSTIC PROGRAM LSR ’ 
oo00D6C 1731 0128 EQU. * (BeOS) OOOE2C 7781 1847 OW R7,R SET INDICATORS FOR RET TO PROGRAM 
000D6C 50A3 1732 J DUMMY SVC RETURN OOOLK2E A442 1848 MVWS RUG §P1,QLSR) SET DIAGNOSTIC PROGRAM LSR 
OOOD6E 1733 OI40 FEOQU. * 000E30 509D 1849 J RETURN 
OOOD6E F315 1734 CBI HIO.R3 HALT I/O SVC TBS 1 KK OK ROKR KOR KR ROR KKK kok kok ok ROK RO kk Ki kk ie ak 
000D70 1804 1735 JNE o143 J-NO | 1852 * 
000D72 9068 0390 0018 1736 MVD HLTIO, (R1,QAV1) ADR OF IDCB | 1853 * NAME REQSD (SVC 22) 
000D78 50E9 1737 J 0120 ISSUE THE I/70 1854 * 
OOOD7A 1738 OI143 FOU * 1855 * PURPOSE THIS SVC IS USED BY A FLOPPY DISKETTE DIAG PGM 
QOOOD7A F30B 1739 CBI SsfTCSS,R3 START CYCLE STEAL OR CYCLE 1856 * TO REQUEST USE OF THE DCP DISKETTE. 
OOOD7C 1107 1740 JP 0170 STEAL STATUS-IF NO 1857 * 
OOOD7E 1004 1741 JE Or4us BR IF START CYCLE STEAL STATUS 1858 * METHOD CONTROL IS RETURNED TO THE DIAGNOSTIC PROGRAM 
000D80 7ECY FFOO 1742 RBTWI HFFOO, R6 ISOLATE MODIFIER 1859 * AND THE DIAGNOSTIC PROGRAM MAY USE IT AS A NORMAL 
000D84 cé669 0018 1743 OB R6, (R1, QAV1) SET IN IDCB 1860 * DEVICE TO EXERCISE. CYLINDER 1-3 AND 74-76 ARE 
000D88 1744 O45 EU X* 1861 * ALLOCATTED FOR DISKETTE EXERCISER USE. NO OTHER AREA 
000D88 AS5S4D 1745 MVWS = RS fF1-oav2) SAVE THE DCB ADR 1862 * BE MODIFIED BY THE DISKETTE DIAGNOSTIC. 
OOOD8A 5050 1746 J ors GO ISSUE 1/0 1663 * 
000D8C 1747 0170 EQU. * 1864 * CALLING SEQUENCE 
QOOOD8C F30C 1748 CBI PREP, R3 SEE IF PREPARE 1865 * 
QO0O0D8E 1805 1749 JNE OI80 IF NOT BR 1866 * MVA PARA,R7 ADDRESS PARA LIST 
000D90 350E 1750 SRLD ONE,RS SHIFT I BIT TO XR6 1867 * SVC REQSD SVC TO GAIN CONTROL DCP DISKETTE 
000D92 351A 1751 SR THREE, RS SHIFT OUT UNUSED BITS 1868 * 
000D94 350D 1752 SLLD ONE,R SHIFT I BIT BACK IN XRS 1869 *PARA DC a (REND BYTE ADDR OF DISKETTE DEV ADDR 
000D96 AS4D 1753 MVWS~ RS AR QAV2) SET IN IDCB 1870 * DC A (0) CYLINDER HEAD PRESENTLY AT-SET. 
000D98 50D9 1754 J y) GO ISSUE I0 1871 * SET BY DCP UPON RET. 
AA F30F 1922 0180 at RST R3 0, o45 S55 ROLE LEORE CLEANSE REE RR EAE EUW OER 500 do en ak ke 
C STAT SEE IF READ READt OR RSTAT 
000D9C 1105 1757 JP 19 IF NOT JUM Q000E32 1874 REQD1 EQU * 
OOODIE 1758 O85 EQU OOOER32 7764 1875 MVW R7, 83 GET ADR OF DISKETTE DEVICE ADDR 
OOODIE 7DA4 FFOO 1759 RBTWI HEF ISOLATE MODIFIER 000E34 873B 0000 0233 1876 CB EI), DKAD SEE IF REQUESTING DCP DISKETTE 
OOODA2 C569 0018 1760 OB (ei gaya) SET IN IDCB OOOE3A 1898 1877 JNE IF NOT BR 
OOODA6 50D2 1761 J Bs, GO ISSUE 1/0 OOOE3C 88E8 0396 0002 1878 MVW ecuae 6 (R32 TWO) SET CYL NOW ON IN DIAGNOSTIC PROGRAM 
OOODA8 1762 O190 EOu OOOE42 4020 0246 1CF2 1879 MVA ST01 SET DISKETTE INT TO GO TO DIAG PROG 
OOODA8 A54D 1763 MVWS RS, R1,QAV2) MOVE DATA WORD TO IDCB OOOE4Y8 5091 1880 J O GO_ RETURN 
OOODAA T6A4 1764 MVW R6 5 MOVE MODIFIER TO XRS5 VBBD KH HH HK eK tek KK kk kk kkk ki kk kkk kek kk tc ak fake ak pk i ic ake ke ale ake 2c ai ak 
OOODAC 50F8 1765 J OI PLACE IN IDCB 1883 * 
a ERO IOI ROI OO II IORI IO III IOI OI Gi ori foi i ik tote 1n08 : NAME RELSD (SVC 23) 
* 
1769 * NAME RCIB (SVC 19) 1886 * PURPOSE THIS SVC IS USED BY A FLOPPY DISKETTE PROGRAM TO 
1770 * 1887 * RELEASE CONTROL OF THE DCP DISKETTE. IT MUST FOLLOW 
1771 * PURPOSE THIS SVC RELEASES THE DIAGNOSTIC PROGRAM FROM ANY 1888 * A REQSD SVC, 
1772 * RFSPONSIBILITY IN HANDLING INTERUPTS FOR THE 1889 * METHOD WHEN THE DIAGNOSTIC PROGRAM HAS COMPLETED A SHORT 
1773 * DEVICE SPECIFIED BY XR7. 1890 * TEST ON THE DCP DISKETTE, HE MUST RELEASE 
1774 * 1891 * CONTROL FOR THE DCP TO USE. 
1775 * METHOD THE DEVICE TABLE IS SCANNED FOR THE DEVICE ADDR 1892 * 
1776 * IN XR7, IF FOUND AND THE DEVICE WAS ASSIGNED TO 1893 * CALLING SEQUENCE 
1777 * THE DIAGNOSTIC PROGRAM RFQUESTING THE RELEASE, A 1894 * 
1778 * RESET I/O AND A PARE I/O WITH I BIT OFF IS 1895. * MVA PARA, R7 ADDR PARA LIST 
1779 * ISSUED TO THAT DEVICE AND ANY DCB BLOCKS ARE FREED 1896 * SVC RELS SVC TO RELEASE DCP DISKETTE 
1780 * THE SLOT IN THE DEVICE TABLE IS ZEROED. 1897 * 
1781 * 1898 *PARA DC A DEVAD) BYTE ADDR OF DISKETTE DEV ADDR 
1782 SCC che Stee CeSR ELT ERS LERERST RAE SE ETA TST TSE SASSER SE CRESS EAEE 1899 * DC A (CYL) CYLINDER DIAGNOSTIC PROGRAM LEFT THE 
OOODAE 1783 RCIB1 EQ 1900 * HEAD AT. 
OOODAE 4324 1800 1784 MVA START OF DIAG PGM 1901 * 
OOODB2 E2C4 1785 MVWS i ;HDvrs) , 22 DEV TABLE START 1902 * THE PARA LIST FOR THE RELSD AND THE REQSD SVC SHOULD BE THE 
OOODB4 C420 1796 1786 4VB att ANY DEVICES CONNECTED 1903 * SAME PARA LIST. THIS IS ADVISABLE IF THE DISKETTE REQUESTING 
OOODBB8 10D9 1787 JZ J¢ uo 1904 * IS NOT THE DCP DISKETTE. IN THAT CASE THESE TWO SVC ARE NO-OPED 
OOODBA 0202 1788 ABIL aaG BUMP PAST CNTRL CHAR 1905 * IF THE TWO PARA LIST ARE THE SAME, THE DIAGNOSTIC PROGRAM WILL BE 
OOODBC E34A 1789 MVWS Sink ce »R3 ADR OF ICB 1906 * SETTING ITS OWN CYLINDER LEFT AT. 
OOODBE 4024 OSAC 1790 MVA SAVE AREA FOR CICB ADR 1907 * 
tices ahi 173) RCIB3 EQU aoeuey 1308 RELDY EQU Hon nn rrr sees ne a ennee 
Cc Cc R R3 Is THIS THE DEV TO RELEASE RELD1 EQU * 
OO0ODC4 1005 1793 JE (3 24 -~YES--THIS IS IT QOOOE4A T73E7 1910 IR R3 CHANGE REGISTERS 
000DC6 1794 RICB6 EU OOOF4C E4C1 1911 MVWS ren two) «Ru GET WHERE HEAD PRESENTLY AT 
OOODC6 7A41 OOOA 1795 AWI TEN, R2 BUMP TO NEXT DEV OOOESE 833B 0000 0233 1912 CB kp SEE IF RELEASING DCP DISKETTE 
OOODCA 7801 0002 1796 AWIL TWO, RO BUMP TABLE QOOES54 1888 1913 JNE t3 IF NOT GO RETURN 
OOODCE SOF9 1797 J RCIB3 J-CHECK THE NEXT ONE 000E56 4020 0246 0B16 1914 MVA DSKIT, DKINT RESTORE DCP INT ADR 
OOODDO 1798 RCIB4 EQU * QQOESC 1915 REL10 EQU * 
Q0O0DDO 4A10 1799 TBT {ke SIXTN) QOOOE5SC 6C0D 0396 19 16 MVR RU,PCYLA SET CYL HEAD NOW ON 
OOODD2 10F9 1800 JOFF RiICh6 000E60 1917 REL11 FOG * 
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LOCTR OBJECT TEXT SYMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
001504 0000 2850 DC x*0000! 00180A 2985 RTNE EOQU PID+TEN CURRENT ROUTINE NUMBER 
001506 6000 2851 ACPRE DC x¥*6coot ALTERNATE CONSOLF PREPARE-LEVEL 2 00180C 2986 CKPT EQU PID+TWELV CURRENT CHECKPOINT NUMBER 
001508 0005 2852 DC x¥*00058 2988 * 
O014FS 2853 WIDC3 EQU WIDCBt+THREE 2989 * EQUATES USED FOR INITIALIZATION 
001505 2854 RIDC3 EQU RIDCBtTHRFE 2990 * 
001507 2855 ACPR1 EOQU ACPRE+ONE 003000 2991 A3000 EQU X*'*3000! ADDRESS OF PARITY PRINT OVEPLAY 
5a57 * PRINT BUFFER 000005 2992 ACIDN FOU 5 NUMBER OF ALTERNATE CONSOLE IDCB'S 
2858 ALIGN WORD 000030 2993 ADEVT EQU 48 STARTING DEVICE INTERRUPT VECTORS 
OO0O150A ODOA 3259 CRPRT DC X'ODOAt 000106 2994 DSKID EQU X'0106! DISKETTE HARD WIRED READ ID 
00150C 4O0404040404040404 2860 PRTBU DC 66c! 3 66 CHARACTER PRINT BUFFER QOOOFF 2995 DEVMK EQU X*'OOFF® MASK OUT UNUSED DEVICE ADDR BITS 
001517 2861 PRIBF EQU PRTBU+ELEVN 001E00 2996 DSOVA EQU 7680 DISPLAY STATION SPECIAL OVERLAY 
001518 2862 PRBUF PRTBUECTWELV 2997 * STARTING ADDRESS 
2864 [OOO IG GG UI a a a aC a ik ak ak kote keke ak ak ake ak ak ak 2k 2k ake ak ak 2998 * 
5865 x * 2999 x IDCB STORAGE AREA USED FOR INITIALIZATION 
2866 * NAME ALTERNATE CONSOLE SUPPORT * 3000 * 
5867 * * 001804 2000 3001 ACRID DC x*2000! ALTERNATE CONSOLE READ ID IDCR 
2868 * PURPOSE THIS AREA WILL BE OVERLAYED AT INITIALIZATION WITH * 001805 3002 ACRI1 EQU ACRID+ONE 
2869 * THE ALTERNATE CONSOLE SUPPORT ROUTINE. * 001806 0000 3003 ACRI2 DC X*00008 
5870 * * 001808 2000 3004 INDSK DC X¥'*2000! DISKETTE READ ID IDCB 
2871 * THE ALTERNATE CONSOLE ROUTINE WILL WORK IN CONJUNCTION * 001809 3005 INDS1 EQU INDSK+ONE 
2872 * WITH THE PROGRAMMERS CONSOLE. ALTERNATE CONSOLE DEVICES * 007180A 0000 3006 INDS2 DC X*0000! 
2873 * SUPPORTED ARE THE TTY, DISPLAY STATION, AND PRINTER. * 3007 * 
5874 * * 3008 * ALTERNATE CONSOLE OVERLAY CONSTANTS 
2875 fe afc 2K ae ae oe ofc afc oe ok ake ac oie fe ake fe ate ofc abe ake oe oe ic ake ok ake aie ok oe ik ok ole ake aie ak oe ak ake 2k ake oie ae ofc aie ok ae ote ae ke ae akc ie ok fe ake oie ik aK ik ic fe a ate ae i Ok ok ak ok ac afc 3009 cd 
Q2BT 7 RC ROR RO IO RI I ICR RR RR I RC ak ak 2k 2k 2k ak aie ake fe ke a kc a a afc ae a ae ac ake a a ak a 2c kc ac ale - ALIGN WORD 
2878 * * TTY 
2879 * THE FOLLOWING AREA CONTAINS THOSE CONSTANTS REQUIRED * 00180C 40 3012 ACOVL DC X'4o' DEVICE TYPE 
2880 * FOR THE ALTERNATE CONSOLE ROUTINE AND SHARED BY DCP. * 00180D C3F3F8FOF1 3013 DC C'*C3801' OVERLAY NAME 
2881 * THE CONSTANTS IN THIS AREA MUST REMAIN IN THE SAME * 001812 0000 3014 DC A (*-* NEXT AVAIL STORAGE 
2682 * STORAGE LOCATIONS BECAUSE OF PROGRAM INTERFACES. * 001814 0010 3015 DC X*00108 READ ID ASSIGNED 
2883 * ” 3016 * DISPLAY STATION 
288.4 320 OO EI FI IIR II IG I I a a kk tok ace ak ke ake ac 001816  y 3017 DC x'qyuye DEVICE TYPE 
2885 ORG SDCP+6016 001817 C3F3F8FOF2 3018 DC C'c3802! OVERLAY NAME 
001780 0O7Cc0 2886 ACSCH DC A (SCHED ADDRESS OF SCHEDULER ROUTINE 00181C 0000 3019 DC oe bea} NEXT AVAIL STORAGE 
001782 0234 2887 ACIND DC AtINDIC DCP INDICATORS 00181E 0406 3020 DC X*0406! READ ID ASSIGNED 
001784 0010 2888 ACSVP Dc A(SVCPT SVC INTRPT POINTER 3021 * DISPLAY STATION 
001786 O97A 2889 ACSVR DC = AC SVCRT SVC RETURN 001820 45 3022 DS2TP DE XNA DEVICE TYPE 
001788 1176 2890 ACOPC DC A (OPCMD OPERATOR COMMAND ROUTINE 001821 C3F3F8FOF2 3023 DC C*C3802' OVERLAY NAME 
00178A OB9A 2891 ACCON DC A (CONSO CONSOLE ROUTINE 001826 0000 3024 DC Phone NEXT AVAIL STORAGE 
00178C 0524 2892 ACSTR DC A{STRIT STRAY INTERRUPT ROUTINE 001828 OQ40E 3025 DC_ SEX TOUCE! READ ID ASSIGNED 
0G178E 0000 2893 ACVTR DC A (% =) ALT CON VECTOR ADDR-INIT 3026 * PRINTER 
001790 0000 2895 PRBA DC A (0) ALT CONCOLE CONTROL FLD 1 O0182A 64 3027 DC X'64' DEVICE TYPE 
001792 01 2896 NLSW DC xo ALT CONSOLE CONTROL FLD 2 00182B C3F3F8FOF3 3028 DC C*C3803! OVERLAY NAME 
001793 01 2897 OUT? DC yeot SVC OPERAND FOR OUTIN SVC 001830 0000 3029 DC A (*-*) NEXT AVAIL STORAGE 
2899 2 IOC CI IO IG a ik koi i i ak ak ac ak ak ak ake ake ak akc a ake 2 ake ie ake 2k ke akc 2k 2 001832 0206 ee DC X'O0206! READ ID ASSIGNED 
2900 * x * PRINTER 
2901 * THE FOLLOWING ARE SWITCHES THAT MUST BE RESET TO ZERO * 001834 68 3032 DC X'68! DEVICE TYPE 
2602 * FOLLOWING A SYSTEM RESET AND START Bo 001835 C3F3F8FOF3 36033 DC C'*c3803!8 OVERLAY NAME 
2903 * x 00183A 0000 3034 DC shea! NEXT AVAIL STORAGE 
990 0 GC I OO i a OC IO ak i i kk ick ak ak ak ke ak ak ok 00183C 0306 3035 DC X'*O03068 READ ID ASSIGNED 
2905 ALIGN WORD 3036 * END OF TABLE 
001794 00 2906 ACFCS DC X'Oo! ALT CONSOLE CONTROL FLD 3 OO0183E 00 3037 DC X'00! END INDICATOR 
001795 O00 7907 ACIMS DC x'oOor ALT CONSOLE CONTROL FLD 4 00183F C3F3F8F0C3 3038 DS20V DC c'c38o0c' SPECTAL DISPLAY OVERLAY 
001796 OO 2908 CICNT DC X'O0t COUNT OF ACTIVE CICB!S 001844 0000 3039 C eee NEXT AVAIL STORAGE 
001797 900 39909 RXTR1 DC X'oor END OF TABLE INDICATOR 001846 0000 3040 ACSAV DC A (*-* SAVE AREA ALT CON INTRPT PTR 
001798 00 2910 INPRC DC ¥'OO8 IND OUT/IN IN PROCESS 3041 * 
00179 0000 2911 GRPT DC A (O) ALT CONSOLE CONTROL FLD 5 3042 * TEST DISKETTE ADDRESS PASSED 
00179B 2912 GRPT1 EQU GRPT+ONE 3043 * 
00179C 0000 2913 PRTSW DC A (0 ALTERNATE CONSOLE BUSY 3044 ALIGN WORD 
00179E 0000 2914 ENTSW DC A (0 ALT CONSOLE CONTROL FLD 6 007848 3045 INIT EQU * 
0017A0 0000 2915 ACWCT DC A (0 ALT CONSOLE CONTROL FLD 7 0071848 C020 0233 3046 MVB DKAD, PO DISKETTE ADR 
0017A2 0000 2916 DEAT DC A (0 ALT CONSOLE CONTROL FLD 8 00184C 7806 OOFF 3047 CWI DEVMK, RO MAKE SURE ADD IS 0-255 
0017A4 0000 2917 HRTA DC A (0 PRG CHK ADR FOR DIAG 001850 11FB 3048 JP INIT IF NOT BR 
0017 KE 5818 CNTBK EOU i 001852 C028 1809 3089 MVB FO,INDS1 MOVE ADDR TO READ ID DISKETTE 
0017A6 0001 9920 INVT1 A (ONE BYTE COUNT 001855 OBOY 3050 MVBI FOOR R3 NUMBEP IDCB DISKETTE 
0017A8 150C 2921 INVT2 DC A (PRTBU ADR OF DATA TO CONVERT 001858 47124 03BD 3051 MVA = SEID4, 21 ADDR 1ST IDCB 
OO0O17AA 150C 2922 INVT3 DC A(PRTBU TARGET AREA 00185C 3052 IN10 EQU * 
0017AC 0002 9924 HLTCV DC A THO) BYTE COUNT 00185C cous 3053 MVB RO, (R1) MOVE DEVICE ADDR INTO IDCB 
OO17AE 180A 2925 DC A (RIN } ADR OF DATA TO CONVERT 00185E 0104 3054 ABI FOUR, R1 UPDATE TO NEXT IDCB 
0017B0 17D5 99 26 DC A ({MSG8A) TARGET AREA 001860 BBFD 3055 JCT IN10, R3 DO ALL IDCB 
0017B2 0002 9928 HALCV DC A THO) BYTE COUNT 001862 4020 17BE 1808 3056 MVA INDSK,IDCB SAVE THF IDCB ADR 
0017 B4 180C 3929 Dc A (CKP } ADR OF DATA TO CONVERT 001868 680C 1808 3057 Io INDSK DO READ ID DISKETTE 
0017B6 17DF 29 30 pc A (MSG9A) TARGET AREA 00186C 6F05 1848 3058 BNCC SEVEN, INIT RETRY IF ERROR 
0017B8 0000 29322 RPSV2 DC A (0 TEMPORARY 001870 402F 180A 0106 3059 CWI DSKID, INDS2 SEE IF ID GOOD 
0017BA 0000 2933 RPSV1 Dc A t0 SAVE 001876 18E8 3060 JNE INIT IF NOT BR 
0017BC 0000 2934 RPSV Dc Al0 AREAS 601878 3009 3061 SLL ONE, RO FACH ADDR 2 BYTES 
0017BE 0000 2936 IDCB DC A k~* ADDRESS OF LAST IDCB ISSUED BY DCP 00187A 0030 3062 ABI ADEVT, RO GET IN VECTOR ADDR 
0017C0 3410 2938 pc A (RPCD2 ERROR CODE 00187C 4000 0246 3063 MVA DKINT, (RO MOVE IN DISKETTE INT VECTOR ADR 
0017G2 DSD64O0DICSDID3ZE84 2939 RPG2 DC CYNO REPLY EXP C01880 4020 0246 OB16 3064 MVA DSKIT,DKINT MOVE IN DISKETTF INT ADR 
0017Cz 0080 2540 DC ¥'0080 EOM AND DCP MSG CNTL FLD 001886 0900 3065 MVBI ZERO,R1 SET TO OK BLOCK 
0017D0 4OD9XE3D57E 2942 MSG8 DC C* RTN=8 001888 6B08 1800 3066 MVW PID, R83 GET DCP SIZE 
0017D5 EVE7ET7E740 2943 MSG8A DC C'XXXX § G0188C 3067 INGO EQU x 
OO17DA C3D2D7E37E 29044 MSG9 DC C*cKpT=8 C€0188C 5924 O6FA 3068 SESK R1,HEXOO SFT DCP STORAGE KEY OF QO 
OO17DF EVETETE740 9945 MSGOA DC C'xxxx ! 001890 0101 3069 ABIL ONE R1 UPDATE CORE BLOCK ADDR 
0017E4 0OO0CO 2946 DC X*O00C0! FOM AND DCP MSG CNTL FLD 001892 BBFC 3070 ICT IN46,R3 
001726 17C2 2948 RPRL2 DC A (RPG2) ADDRESS OF MESSAGE C01894 Qc00 3071 MVBI ZERO,R4Y RESET CONSOLE LIGHTS TO ALL 
0017E8 0000 2950 INTAD DC A sft! ALT CONSOLE INT ADDR SAVE AREA 001896 7890 3072 SECON R4 OFF 
O017EA O7A8 2952 ACPRG DC A¢PRG L C01898 4024 OT7FY 3073 MVA RESTR,R RESET THE RFSTART ADDR TO THE 
0017EC O7AD 2953 ACPRS DC A (PKGN5) 00189C 680D 0002 3074 MVW FO, SDCP2 RESTART RIN 
0017EE 0000 2955 FNDPG DC A (*-*) ADDRESS OF PROGRAM TO BE FOUND 3075 * 
0017F0 0000 5957 SAV DC A 00 FOUR 3076 * TEST FOR ALTERNATE CONSOLE SUPPORT AND TYPE 
O017F2 0000 2958 SAV2 DC A (0 REGISTER 3077 * 
OO17F4 0000 2959 SAVE7 DC A (0 SAVE OO18A0 4020 I7EE 055D 3078 MVA CFGN1,FNDPG ADR OF NAME OF DATA SET TO FIND 
0017F6 0000 2960 SAVR1 DC A{0 AREBAS COT8A6 4724 0234 3079 MVA IND ADR OF DCP INDICATORS 
0017F8 0000 2962 LDADD DC A {0 RELOCATION BASE ADDRESS SAVE AREA OO18AA 4FHE 3980 TBTS (By CARON IND CONFIG TABLE REQ 
OO17FA 3401 2564 DC A (ACNG) ERROR CODE CO18AC 4FEU 3081 TBTR R7, LODED RESET THE LOADED BIT 
0017FC 00C0 2965 ACNG1 DC x"O0CO' EOM AND DCP MSG CNTL FLD COI8AE 4020 OSAA 18B8 3982 MVA =ALTOO, CNFRT RETURN ADR 
OOI7FE 17FC 2967 ACNGM DC A (ACNG1) ADDRESS OF MESSAGE Q018B4 6802 1298 3083 B LP06 GO GET THE TABLE 
29 69 3 RRO IORI IO IORI OI I RO I gk ak aia kaki kok ak ake keke akc ak aie akc akc akc 6018B8 3084 ALTOO EQU * 
3970 * . GO018B8 4124 041C 3085 MVA DBUF+IHDLP,R1 MOVE PAST HEADER 
2971 * THE FOLLOWING ROUTINE IS ENTERED IMMEDIATELY AFTER LOADING * QO18BC 6828 0008 3086 MVW (R1,CUDD6) ,RO SEE IF A DEVICE WAS ASSIGNED 
2972 * THE ROUTINE DETFRMINES THE CORE SIZE, IF A TTY IS TO BFE * GO018CO 6800 1980 3087 BZ ALT30 B~NO--NO ALT DEV 
2973 * USED AND WHICH DISKETTE FILE IS ASSIGNED TO THE USER. * GO18C4KH 4224 180C 3088 MVA ACOVL, R2 ADDRESS OF ALT CON OVLY INFO 
g3 78 i CONTROL IS THEN PASSED TO RESTR x SORE 680D 0240 Seca vain on RO, OPADR SAVE THE DATA 
x E 
297 GAR OI IC OR IC GIGI RR IOI OR A a IOI a ak 2k ak 0018CC C084 3991 CB (P2) RO ALT CON DEVICE TYPE 
2977 ORG SDCP+6144 ORIGIN FOR DIAGNOSTIC PROGRAM OOT8CE 1004 3992 JE ALT 14 BR/YES - CONTINUE TO CHK DEV 
2978 * TO OVERLAY INITIALIZATION 0018D0 O20A 3093 ABIL TEN,R2 NEXT ALT CON ENTRY 
2979 * ROUTINE. 0018b2 C180 309% MVB (R2] P1 LAST ENTRY 
3980 * CO1BD4 18FB 3095 JNZ ALTI6 BR/NO - TRY NEXT 
2981 * DUMMY PROGRAM HEADER C018D6 5056 3096 J ALT31 NO ALT CON SUPPORT 
2982 * GO18L8 3097 ALT11 EQU * 
001800 F3F4FOFO 2983 PID DC CL4*34008 PROGRAM IDENTIFIER 0078D3 3042 3098 SRL ETLGHT,RO POSITION THE DEVICE ADR 
0061808 2984 DEVPT EQU PID+EIGHT DEVICE TABLE ADDRESS CO18DA C028 1805 3099 MVB RO, ACRI1 PLACE ADR IN READ ID IDCB 
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DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
2445 2446 2453 2478 2483 2495 2499 2517 2521 765 ASC11 ADDRESS. HEX LOCATION (OOOQ0066E) IN CSECT(S3400 +) LENGTH(36) 
2527) 2529 2533 2534 2535 2544 2545 2550 2553 1944 1991 1999 
2554 2559 2573 2591 2592 2598 2601 2602 26048 2001 ATE ADDRESS. HEX LOCATION(OQOOOOEBE) IN CSECT(S3400 ) LENGTH(1) 
2609 2618 2623 2633 2665 2681 2683 2685 2713 494 
2744 2745 2747 2748 2768 2772 2777 «2781 2788 1990 ATH ADDRESS. HEX LOCATION (OO000E96) IN CSECT(S3400 ) LENGTH(1) 
2794 3079 3080 3081 3105 3122 3130 3143 3146 491 
3150 3152 3153 3154 3160 3161 3162 3175 3179 2991 A3000 ABSOLUTE. HEX VALUE (00003000) 
3184 3185 3188 3189 3190 3191 3183 
2146 SHANG 2 ADDRESS. HEX LOCATION (OOOOOFEA) IN CSECT(S3400 ) LENGTH(1) 192 BOE ABSOLUTE. HEX VALUF (00000006) 
707 SNOHD ADDRESS. HEX LOCATION (0000056C) IN CSECT(S3400 ) LENGTH(2) 237 BPCDS ABSOLUTE. HEX VALUE (0000340A) 
2149 2161 2168 2199 2447 2449 824 
708 SOUT ADDRESS. HEX LOCATION (0009056E) IN CSECT(S3400 _) LENGTH(2) 825 BPG5 ADDRESS. HEX LOCATION (0000075C) IN CSECT(S3400 ) LENGTH(2) 
2158 2159 2165 2166 2197 2198 2214 2215 2444 828 
2446 2482 BPPA ADDRESS. HEX LOCATION (00001250) IN CSECT(S3400 ) LENGTH(1) 
2132 $PRNT ADDRESS. HEX LOCATION(OOOOOFBE) IN CSECT(S3400 ) LENGTH(1) 2480 
ee ae OAD ewe ee paanioes 2476 BPPGM ADDRESS, HEX LOCATION (0000123A) IN CSECT(S3400 ) LENGTH(1) 
; X LOCATION E8) IN CSECT(S3400 ENG 
2204 2210 ( peek pr Eee 2490 BPPG1 ADDRESS. HEX LOCATION (00001262) IN CSECT(S3400 ) LENGTH (1) 
2189 $PRTE ADDRESS. HEX LOCATION(00001070) IN CSECT(S3400 ) LENGTH(1) 2493 
2175 2494 BPP1 ADDRESS. HEX LOCATION (00001268) IN CSECT(S3400 +) LENGTH(1) 
2164 $PRT1 ADDRESS. HEX LOCATION(00001026) IN CSECT(S3400 ) LENGTH(1) 2486 2636 
2170 2188 2497 BPP2 ADDRESS. HEX LOCATION(0000126E) IN CSECT(S3400 ) LENGTH(1) 
2222 $PRT2 ADDRESS. HEX LOCATION(OOOO10EE) IN CSECT(S3400 ) LENGTH (4) 1674 1676 
2133 2502 BPP3 ADDRESS. HEX LOCATION(00001278) IN CSECT(S3400 ) LENGTH (4) 
2134 $PRT3 ADDRESS. HEX LOCATION(OO000FC2) IN CSECT(S3400 ) LENGTH(4) 2484 
2135 2668 BO 1 ADDRESS. HEX LOCATION (000013C0) IN CSECT(S3400 ) LENGTH(1) 
2832 ACENT ADDRESS. HEX LOCATION(000014F2) IN CSECT(S3400 ) LENGTH(2) 2664 
1492 2680 B10 ADDRESS. HEX LOCATION(000013D6) IN CSECT(S3400 ) LENGTH(1) 
2906 ACFCS ADDRESS. HEX LOCATION (00001794) IN CSECT(S3400 ) LENGTH(1) 2728 
912 913 26 86 B12 ADDRESS. HEX LOCATION (000013DE) IN CSECT(S3400 ) LENGTH(1) 
2992 ACIDN ABSOLUTE. HEX VALUE (00000005) 2684 
3109 2695 B40 ADDRESS. HEX LOCATION(000013EA) IN CSECT(S3400 ) LENGTH(1) 
2834 ACINT ADDRESS. HEX LOCATION(000014F4) IN CSECT(S3400 ) LENGTH(2) 2679 
3118 3121 31 3 2697 B41 _ADDRESS. HEX LOCATION (000013EC) IN CSECT(S3400 ) LENGTH(1) 
2831 ACMSG ADDRESS. HEX LOCATION(000014F0) IN CSECT(S3400 ) LENGTH (2) 2702 2724 
929 2704 B42 ADDRESS. HEX LOCATION(000013FE) IN CSECT(S3400 ) LENGTH(1) 
228 ACNG ABSOLUTE. HEX VALUE (00003401) 2700 
2964 2716 B43 ADDRESS. HEX LOCATION(0000141C) IN CSECT(S3400 ) LENGTH(1) 
2967 ACNGM ADDRESS. HEX LOCATION(000017FE) IN CSECT(S3400 ) LENGTH(2) 2718 
3175 2725 B4Y ADDRESS. HEX LOCATION (0000142E) IN CSECT(S3400 ) LENGTH(1) 
2965 ACNG1 ADDRESS. HEX LOCATION(000017FC) IN CSECT(S3400 ) LENGTH(2) 2707 
2967 548 CALIB ADDRESS. HEX LOCATICN(000003C4) IN CSECT(S3400 ) LENGTH(2) 
3012 ACOVL ADDRESS. HEX LOCATION(0000180C) IN CSECT(S3400 ) LENGTH (1) 1404 
ee ao. 3088 eg nea aGdee ann 702 CPGN1 ADDRESS, HEX LOCATION(0000055D) IN CSECT(S3400 ) LENGTH(6) 
=SS. HE ATION IN CSECT (S34 LENGTH (2 
2847 ACRES oT DRESS. HE 28 eae | ) 3400 : se a ee 103300 ical sich mene 
; ‘i X LOCAT FE) IN CSECT(S LENGTH 
3169 3170 ( ( (2) 1625 CHNG ADDRESS. HEX LOCATION(O0000CCO) IN CSECT(S3400 ) LENGTH(1) 
3001 ACRID ADDRESS. HEX LOCATION(00001804) IN CSECT(S3400 ) LENGTH(2) 468 
3002 3100 3101 64 CHNGE ABSOLUTE, HEX YALE (00090004) 
3002 ACRI1 ADDRESS. HEX LOCATION(00001805) IN CSECT(S3400 ) LENGTH(1) 1507 1509 1582 2500 3144 
3099 16 34 CHNG1 ADDRESS. HEX LOCATION(QOOOOCCE) IN CSECT(S3400 ) LENGTH(1) 
3003 ACRI2 ADDRESS. HEX LOCATION(00001806) IN CSECT(S3400 ) LENGTH(2) 1511 |= 1650 
3103 269 CICBT ABSOLUTE. HEX VALUE (00000014) 
3040 ACSAV ADDRESS. HEX LOCATION (00001846) IN CSECT(S3400 ) LENGTH(2) 1801 1837 2280 
3121 3151 1820 CICB1 ADDRESS, HEX LOCATION (OOOOODEE) IN CSECT(S3400 ) LENGTH(1) 
2811 ACST ADDRESS. HEX LOCATION(000014F0) IN CSECT(S3400 ) LENGTH(1) 4e4 
2812 1826 CICB2 ADDRESS. HEX LOCATION(QOOOODFC) IN CSECT(S3400 ) LENGTH(1) 
2893 ACVTR ADDRESS. HEX LOCATION(0000178E) IN CSECT(S3400 ) LENGTH(2) 1832 
968 99 991 1829 CICB3 ADDRESS. HEX LOCATION(OOO00E02) IN CSECT(S3400 ) LENGTH(1) 
724 ADDHE ADDRESS. HEX LOCATION(OO000058E) IN CSECT(S3400 ) LENGTH(2) 1835 
2618 18 33 CICBY ADDRESS. HEX LOCATION(OOQOOEOC) IN CSECT(S3400 ) LENGTH(1) 
128 ADDTABPT ABSOLUTE. HEX VALUE (00002100) 1828 
2433 1842 CICB6 ADDRESS. HEX LOCATION(OQOO00E22) IN CSECT(S3400 +) LENGTH(1) 
103 ADDTR ABSOLUTE. HEX VALE (ooogooo) 1838 
2059 2534 9 2573 2613 2628 2908 CICNT ADDRESS. HEX LOCATION (00001796) IN CSECT(S3400 ) LENGTH (1) 
2993 ADEVT ABSOLUTE. HEX VALUE (00000030) 1786 1805 1839 1841 : 
3062 3116 3173 2845 CIDCB ADDRESS. HEX LOCATION(OOOO14FA) IN CSECT(S3400 ) LENGTH(2) 
840 ALCON ADDRESS. HEX LOCATION(0000077C) IN CSECT(S3400 ) LENGTH (2) 3134 =3135 
982 275 CKDAD ABSOLUTE. HEX VALUE (00000002) 
234 ALTCN ABSOLUTE. HEX VALUE (00003407) 939 
8 36 2986 CKPT ADDRESS. HEX LOCATION(0000180C) IN CSECT(S3400 ) LENGTH(1) 
108 ALTDV ABSOLUTE. HEX VALUE (00000007) 671 1119 1668 
928 967 980 984 1491 3153 3162 670 CKPTC ADDRESS. HEX LOCATION (0000052E) IN CSECT(S3400 ) LENGTH(2) 
8 37 ALTPC ADDRESS. X LOCATION(O000076E) IN CSECT(S3400 ) LENGTH (12) 1108 
840 44g CMDB ADDRESS. HEX LOCATION(00000322) IN CSECT(S3400 ) LENGTH(2) 
747 ALTSG ADDRESS. HEX LOCATION (000005A8) IN CSECT(S3400 ) LENGTH(1) 4 10 
964 985 437 CMDTB ADDRESS. HEX LOCATION (0000030C) IN CSECT(S3400 ) LENGTH(1) 
704 ALTSM ADDRESS. HEX LOCATION(00000564) IN CSECT(S3400 ) LENGTH (1) 2340 
969 988 44s CMD7 ADDRESS. HEX LOCAT1ON(0000031A) IN CSECT(S3400 +) LENGTH(2) 
3084 ALTOO ADDRESS. HEX LOCATION(000018B8) IN CSECT(S3400 +) LENGTH(1) 408 
3082 447 CMD9 ADDRESS. HEX LOCATION(0000031E) IN CSECT(S3400 ) LENGTH (2) 
3090 ALT10 ADDRESS. HEX LOCATION(000018CC) IN CSECT(S3400 ) LENGTH(1) 409 
3095 652 CMND ADDRESS. HEX LOCATION(0000051A) IN CSECT(S3400 ) LENGTH(1) 
3097 ALT11 ADDRESS. HEX LOCATION(000018D8) IN CSECT(S3400 ) LENGTH(1) 1529) 2329 2337 2635 
3092 653 CNCT ADDRESS. HEX LOCATION(0000051B) IN CSECT(S3400 ) LENGTH(1) 
3111 ALT20 ADDRESS. HEX LOCATION(00001904) IN CSECT(S3400 ) LENGTH(1) 1541 1557 
; 3114 654 CNDAT ADDRESS. HEX LOCATION(0000051C) IN CSECT(S3400 ) LENGTH (2) 
3129 ALT21 ADDRESS. HEX LOCATION (0000193C) IN CSECT(S3400 ) LENGTH(1) 657 1523 1553 1576 
3125 749 CNFRT ADDRESS. HEX LOCATION(OOQOQOO5AA) IN CSECT(S3H00 ) LENGTH (2) 
3132 ALT22 ADDRESS. HEX LOCATION (00001942) IN CSECT(S3400 ) LENGTH(1) 944 1020 2091 2555 3082 
3128 112 CNRUN ABSOLUTE. HEX VALUE (00000008) 
3141 ALT23 ADDRESS. HEX LOCATION(00001958) IN CSECT(S3400 ) LENGTH(1) 943 1019 1305 2090 2545 2554 2602 3080 
3133 627 CNTAD ADDRESS. HEX LOCATION(00000414) IN CSECT(S3400 ) LENGTH(1) 
3148 ALT24 ADDRESS. HEX LOCATION ((000196C) IN CSECT(S3400 ) LENGTH(1) 2437 
3150 2918 CNTBK ADDRESS. HEX LOCATION (000017A6) IN CSECT(S3400 ) LENGTH(1) 
3156 ALT30 ADDRESS. HEX LOCATION (00001980) IN CSECT(S3400 ) LENGTH(1) 912 
; 3087 6 28 CNTNG ADDRESS. HEX LOCATION (00000416) IN CSECT(S3400 ) LENGTH(1) 
3158 ALT31 ADDRESS. HEX LOCATION (00001984) IN CSECT (S3400 i LENGTH (1) 2440 2443 
3096 3102 3104 3108 3127 3131 3140 3142 3145 6 26 CNTNM ADDRESS. HEX LOCATION(00000410) IN CSECT(S3400 ) LENGTH(1) 
3177 ALT4O ADDRESS. X LOCATION (000019BE) IN CSECT(S3400 ) LENGTH(1) 627 628 629 2436 244 
3155 3 629 CNTZR ADDRESS. X LOCATION (00000426) IN CSECT(S3400 +) LENGTH(1) 
3186 ALT43 ADDRESS. HEX LOCATION(000019D4) IN CSECT(S3400 ) LENGTH (2) 2445 
3182 2434 CNT1 ADDRESS. HEX LOCATION (000011EC) IN CSECT(S3400 ) LENGTH(1) 
3195 ALT4Y ADDRESS. HEX LOCATION(000019ED) IN CSECT(S3400 ) LENGTH(5) 2451 
3179 2452 CNT2 ADDRESS. HEX LOCATION(00001232) IN CSECT(S3400 ) LENGTH(1) 
3197 ALTU5 ADDRESS. HFX LOCATION (000019F4) IN CSECT(S3400 ) LENGTH(1) 2430 2432 
3187 656 CNVTX ADDRESS. HEX LOCATION (O000051E) IN CSECT(S3400 ) LENGTH(2) 
761 ASCDT ADDRESS. HEX LOCATION(0000065A) IN CSECT(S3400 ) LENGTH(2) 1554 
759 658 CNVTZ ADDRESS. HEX LOCATION(00000522) IN CSECT(S3400 ) LENGTH(2) 
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CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


1572 


HEX LOCATION (00000C4&2) IN 
35 1559 


1538 
HEX LOCATION(00000C48) IN 


HEX LOCATION (OOQOOQOCKHC) IN 


HEX LOCATION(00000C52) IN 


HEX LOCATION (OOOOOC6E) IN 
HEX LOCATION (00000C80) IN 
HEX LOCATION(0000050E) IN 
HEX VALUE (00000009) 
157 


HEX LOCATION (00000C06) IN 
08 1569 


HEX LOCATION (00000296) IN 
HEX LOCATION(000002AC) IN 
HEX LOCATION (000000 1C) IN 
HEX, LOCATION (0000001E) IN 
HEX LOCATION (OOQ000B9A) IN 
1474 2891 
HEX LOCATION(00000BE2) IN 
HEX LOCATION (OQOOOBEA) IN 
HEX LOCATION(000011D8) IN 
HEX LOCATION (00000232) IN 
HEX VALUE (00000008) 
ALUE (00004040) 
CATION (0000040E) IN 
626 630 31 
1359 2556 2565 
CATION(0000055A) IN 
HEX VALUE (0000000A) 
HEX LOCATION (00000764) IN 


OMNFOw< 


HEX LOCATION(00000CB8) IN 
7 2428 


HEX LOCATION(0000057C) IN 
HEX LOCATION(0000057A) IN 
HEX VALUE (000000FF) 
HEX LOCATION (00000574) IN 
HEX LOCATION (00000387) IN 
HEX LOCATION (00000386) IN 
HEX LOCATION (00000382) IN 
HEX LOCATION (00000233) IN 
HEX LOCATION (000003BA) IN 
HEX LOCATION (00000246 IN 
HEX LOCATION (00000398) 7 
HEX LOCATION (000003C0) IN 


oHEX LOCATION (00000394) IN 


HEX LOCATION (000003B6) IN 
HEX LOCATION(000003B8) IN 
HEX LOCATION (00000522) IN 
HEX LOCATION (O00005A4) IN 
HEX LOCATION(00000B20) IN 
HEX LOCATION(00000B24) IN 
HEX LOCATION (00000834) IN 
HEX LOCATION (00000308) IN 
HEX LOCATION(00000418) IN 
HEX LOCATION (00000412) IN 
HEX VALUE (0000341D) 
HEX LOCATION(0000041C) IN 
HEX LOCATION(00000410) IN 
HEX LOCATION(00000414) IN 
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S3400 --- 
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514 
5 06 
509 
2994 
1397 
550 
1342 
1356 
1358 
1366 
2996 
196 
30 38 
3022 
1596 
2765 
2772 
2764 
2801 
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2786 
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121 
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2810 
139 
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807 
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2747 
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CROSS-REFERENCE LISTING 


NAME 


DRSVH 
DRSVL 
DRSV1 
DSKID 
DSKIT 
DSK PR 
DSKRD 
DSK WR 
DSK10 
DSK 20 
DSOVA 
DSTYP 
DS20V 
DS2TP 
DUMMY 
DUM PB 
DUM PC 
DUMPS 
DUMPX 
DUMPY 
DUMP1 
DUMP2 
DVTAB 
EBBK 

EBCBK 
EBCDI 
ECHAR 
EC PND 
EIGHT 
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ENTCD 
EOE 
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ERMS2Z 
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ERRON 
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ATTRIBUTES AND REFERENCES 


HEX LOCATION(00000380) 
HEX LOCATION (00000370) 
HEX LOCATION (00000376) 
HEX VALUE (00000106) 
HEX LOCATION (00000B16) 
1409 191 64 
HEX LOCATION (000003C8) 


77 

HEX LOCATION (OOQOOOAAA) 
79 2118 2550 9 
ie LOCATION (O0000ABO) 


HEX LOCATEON(00000AB4) 
HEX LOCATION (OO0O0AD6) 
HEX VALUE (00001E00) 
HEX VALUE(0000000C) 
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HEX LOCATION (00001820) 
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HEX LOCATION (0000144E) 
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HEX LOCATION (000014D4) 
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HEX LOCATION (OO000E9C) 
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CSECT(S3400 


CSECT (S3400 


CSECT (S3400 
CSECT(S3400 


— reer ere 


eee ee” 


2177 


ww eee 


EC=754882 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (5) 
LENGTH (1) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 


LENGTH (1) 


LENGTH (36) 


LENGTH (1) 
LENGTH (1) 


LENGTH (8) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LFNGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 


LENGTH (1) 
LENGTH (8) 


S3400 --- SYSTEM TEST EXERCISOR CONTROL PROGRAMS P/N= 1635211 
CROSS~REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 
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S3400 --- SYSTEM TEST EXERCISOR CONTROL PROGRAM P/N= 1635211 EC=754882 


CROSS~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES DECLARED WAHE 


DECLARED NANE 


as 2073  IRAD2 DABDRESS. HEX LOCATION (00000F58) IN CSECT(S3400 ) LENGTH(1) 

161 PIFT7 ,ABSOLUTE. HEX VALUE (00000039) ae ABSOLUTE, HEX YALUE (9000000A) 

130: «Fete Se ee ee eee eee eae?) o969 2053.  IREAD ADDRESS. HEX LOCATION (OOOOOF1E) IN CSECT(S3400 ) LENGTH(1) 
Hera» 6 ENDS ADDRESS, une POCATION(OOO00R ZR) 10 CORES S400" i) EEMGTECY) 463 ISVCP ,ADDRESS. HEX LOCATION (0000032C) IN CSECT(S3400 ) LENGTH(1) 
a22o ENDES NOOR S Ste geo gee otek Shan Geek saree enone) 1369 1510 | {ADDRESS. HEX LOCATION (OOOOOADE) IN CSECT(S3400 ) LENGTH(1) 
1278 = FN10 jADDRESS. HEX LOCATION (00000434) IN CSECT(53400 ) LENGTH(1) aaa: Sens TABDRESS. HEX LOCATION (OOOOOAEA) IN CSECT(S3400 ) LENGTH( 1 
1283 -FN20 jADDRESS. HEX LOCATION (00O00A3E) IN CSECT(S3400 ) LENGTH(1) iseor 758 "{BDRESS. HEX LOCATION (O0OOOAFC) IN CSECT(S3400 ) LENGTH(1) 
1296  FN25 ,ADBRESS. HEX LOCATION(00000A58) IN CSECT(S3400 ) LENGTH(1) 1386 1825 jADBRESS. HEX, LOCATION (00000808) IN CSECT(S3400 ) LENGTH(1) 
ity 6 ENee pee erage nee ea Oba NEO bee eoae ee 2086 = IWRIT ADDRESS. HEX LOCATION(OOOOOFSE) IN CSECT(S3400 ) LENGTH (1) 
> | ENS oe aS aG ee reat eerceweouee” eRe STROY 2093 IWR10 aADDRESS. HEX LOCATION (00000F78) IN CSECT(S3400 ) LENGTH(1) 
1322 FWHO eee tena tea een eo comment. a ORCA SaNOO. 2 a EAGEE mn 2100 IWR17 aADDRESS. HEX LOCATION (00000F84) IN CSECT(S3400 ) LENGTH(1) 
fee RNR qanen ask HEE ROCAT LEM (OOO APA cdy “COECI( SS 100) (ak -EERCEe GY 2102 IwWR20 SADDRESS. HEX LOCATION (00000F86) IN CSECT(S3400 ) LENGTH) 
Wee, “ENO g SPUR See Oe LOCKE LON COSDOONIE), 2M COE TUS SHOR: sy EENCSHCY 2107 = TWR30 DADDRESS. HEX LOCATION (00000FGE) IN CSECT(S3400 ) LENGTH(1) 
ieee. EN PDD eer agnor ean ooooeNne) eM Capel (Sonoky 8). PEvetEtY 2123  IWR4O SADDRESS, HEX LOCATION (O0OOOFB8) IN CSECT(S3400 ) LENGTH (1) 

145 FORTN jBBSOLUTE, HEX VALUE (00000005) 372.  +LASAD SRBDRESS. HEX LOCATION (00000230) IN CSECT(S3400 ) LENGTH (2) 

122;  EQUE Ae eer E gett ooo) ss6. 1708 1950 1955 2962  LDADD ADDRESS, HEX LOCATION (000017F8) IN CSECT(S3400 ) LENGTH(2) 

pute Oe, Goen “Shen Sues Saag. Se ote eae. meee 106 LODED ABSOLUTE. HEX VALUE (00000004) ; 

Wa. EU RS ABSOLUTE, HE. VALOE (0000 1000) 816 LPB "RBBRESS. HEX LOCATLON(OOOOOT4E) IN CSECT(S3400 ) LENGTH(2) 

1447 2213 3146 2598 
138; eRive eR ee ee onee? 622 LPC DADDRESS. HEX LOCATION(00000758) IN CSECT(S3400 ) LENGTH (2) 
159 FRTY4 Knee HEX VALUE (0000002C) 238 LPCD4& AUSOLOWE. HEX VALUE (0000340B) 
2911 GRPT {RDDRESS, HEX LOCATION (0000179A) IN CSECT(S3400 } LENGTH (2) SG “aie RESOLUTE. HEX VALUE (0000340C) 

go>; HDNTE eee Pena osag 240  LPCD6 ABSOLUTE. HEX VALUE (0000340D) 

ag apoePee an lad obo seo ke 867  LPD ,ADBRESS. HEX LOCATION (000007BE) IN CSECT(S3400 ) LENGTH(2) 

763 -HEXTA Googe eso one oon ate ae) ARP See eanee. BoP ENeTEO) 813  LPG4 ADDRESS. HEX LOCATION(0000073E) IN CSECT(S3400 ) LENGTH(14) 

788 HE X00 Sees ee cn auc DUBE Seno been aoee 819 LPGS ADDRESS. HEX LOCATION (00000752) IN CSECT(S3400 ) LENGTA(4) 

eect eee Maho ee 2522  LPOOS jADDRESS. HEX LOCATION (0000128C) IN CSECT(S3400 ) LENGTH(1) 

ee Tas ea ec ch 2515 «LOT SADDRESS. HEX LOCATION(00001280) IN CSECT(S3400 ) LENGTH(1) 
os See eee a ee eerie A eEueE 2518  LPO0S DADDRESS. HEX LOCATION (00001286) IN CSECT(S3400 ) LENGTH(1) 

263 -HPSA pepe ree ee VALUE (OOnOeee) 2526 LPOG ADDRESS. HEX LOCATION (00001298) IN CSECT(S3400 ) LENGTH(1) 
19430 HTA ADDRESS + HEN LOR TION (QOGR0ES) TU Cobet tesa oc:. ERGY 2538  LPO7 jARDRESS. HEX LOCATION (00001288) IN CSECT(S3400 ) LENGTH(1) 
40° HEE BDDRES So: HEX -POCATEON (OO CORNOA) a8 SOECE (S200. <) GENGrRtY 2542 LPO7A [ADDRESS. HEX LOCATION (000012BE) IN CSECT(S3400 ) LENGTH(1) 
1945 HTEY pane eo oecan ee, LOCK TION IOOONO ECR) aN OSeCr(eeaee. san PERGEE GY) 2549  LPOS ,ADDRESS. HEX LOCATION (00001202) IN CSECT(S3400 ) LENGTH(1) 
1991 HTE2 Gap a ees HEX POCATIONCOU CODE OF aw CORSE (Senet -) -VENGIEC! 2557 ~—«LPO9 SADDRESS. HEX LOCATION (000012E8) IN CSECT(S3400  LENGTH(1) 

ne a be ee er wy ire: me cairn meine} see 
emer Et OE ea a eC 2569 =LP10 2353 os, HEX LOCATION (00001300) IN CSECT(S3400 ) LENGTH(1) 

172  H3EFE ABSOLUTE. HEX VALUE (00003FFE) > ARDRESS. 

678 IARCV aT RB RESS. HEX LOCATION(0000053A) IN CSECT(S3400 ) LENGTH(2) 2611 LP100 pppoe HEX LOCATION (0000135A) IN CSECT(S3400 ) LENGTH(1) 
ee en ena Se See eee oars ee 

. TLC ea eT Raman mia On enee 2576 LP11 2028 ca. HEX LOCATION (0000130E) IN CSECT(S3400 ) LENGTH(1) 

217 ~—s«THDLP ABSOLUTE. HEX VALUE(0000000E) a ADDRESS, 

810 INCMD sABDRESS. HEX LOCATION(0000073A) IN CSECT(S3400 ) LENGTH (2) 2580 LP12 Pt mama HEX LOCATION (00001314) IN CSECT(S3400 ) LENGTH(1) 

377 INDICcC "ADDRESS, HEX LOCATION (00900234) 11 CSECT ($3400 abo uenGtH (2) 2637 LP120 9 AROR ESS. HEX LOCATION (000013AE) IN CSECT(S3400 ) LENGTH (1) 

1490 1574 1681 1995 2006 2027 2056 2089 2202 2584 LP13 snug bes HEX LOCATION (00001731A) IN CSECT(S3400 ) LENGTH (1) 
g0D. Bhan Bale 2538. oaek See aaa. “Sogn. Foe 2597  Lp4ug ADDRESS. HEX LOCATION (0000133E) IN CSECT(S3400 ) LENGTH(1) 
5626 2744 5747 3887 3079 3152 3160 3184 ADDRESS. HEX, LOCATION (0000133E) | 

S00 END Sh ApEn ope nek Eee nO NCODOO TORR AU Cone gree ad. LENSE) 2605 LPS55 SABDRESS, HEX LOCATION (00001350) IN CSECT(S3400 ) LENGTH(1) 
3005 INDS1 GADBRESS. HEX LOCATION (00001809) IN CSECT(S3400 ) LENGTH(1) wee | dae 7RDBRESS nex LocATLON (00000566) IN CSECT(S3400 LENGTH (2) 
3006 INDS2 AADDRESS. HEX LOCATION (0000180A) IN CSECT(S3400 ) LENGTH(2) ae ,ABSOLUTE. HEX VALUE (00000020) 

3045 INIT ADDRESS, HEX LOCATION (09001848) IN CSECT(S3400 ) LENGTH(1) son. “sakes RESOLUTE, HEX VALUE (00003403) 
ee nee ee pe ee ee eee 2 ERNOT EY) 1132. -MCKEP ADDRESS. HEX LOCATION (000009E8) IN CSECT(S3400 ) LENGTH(1) 
2950  INTAD ADDRESS. HEX LOCATION (00001788) IN CSECT(S3400 ) LENGTH(2) ian. eRe (ABSOLUTE, HEX VALUE (0000DUC3) 

ee ore ta Ses ee ENCED 804  MCKMA jABDRESS. HEX LOCATION(0000072C) IN CSECT(S3400 ) LENGTH (2) 

aoe SS NNED apooenEs HEX. Ve POE Cueeeer ve) 792 MCKMG ,ADDRESS, HEX LOCATION(OOQOOGFE) IN CSECT(S3400 ) LENGTH (2) 
3052. N10 ADDRESS. HEX LOCATION(0000185C) IN CSECT(S3400 ) LENGTH(1) fey. aeeas ABbRage? ‘ney rocatroN(00000700) IW CSECT(S3400 ) LENGTH(3) 
see | Gee SOG aD ee ee ee ee ee ee CPE. ery 795 MCKM3 ADDRESS. HEX LOCATION (00000708) IN CSECT(S3400 ) LENGTH (5) 
2060 TIRADO DADDRESS. HEX LOCATION(00000F30) IN CSECT(S3400 }) LENGTH(1) oe Bae ABBeess. nex LocATZON (00000712) IN CSECT(S3400 ) LENGTH (5) 
ave aBRD EOD RES os gen CC RTE ON (OCOD OE Say nace ee heater a eenenn)) 799 MCKM7 ADDRESS. HEX LOCATION (0000071C) IN CSECT(S3400 ) LENGTH(S) 


S3400 


DECLARED 


801 
433 
764 
2943 
2945 
2178 
2143 
176 


177 
182 
213 
125 
140 
114 
7171 
2359 
2361 
109 
332 
329 
335 
701 
1700 


1717 
1724 
1731 
1733 
1738 
1744 
1747 
1755 
1758 
1762 

132 


399 
2335 
2315 
2322 
2328 
2331 

651 

400 

115 

60 


710 
2897 
1480 

828 

229 
1099 

4 23 


SYSTEM TEST EXERCISOR CONTROL PROGRAM 


NAME 


MCKM8 
MINON 
MK FO 
MSG8A 
MSG9A 
MVCHN 
MV MSG 
M1 


M2 
M30 
NDFPS 
NEGZR 
NINE 
NINTL 
NORES 
NORTN 
NORT1 
NXTVT 
OAB 
OAG 
occ 
OCHAR 
OrO 


o1r20 
OI25 
0128 
or40 
0143 
O145 
0170 
0180 
or85 
0190 
ONE 


OPADR 
OPCM 
OPCMD 
OPCM1 
OPCM2 
OPCM3 
OPTB 
OPTYP 
OPWFD 
OUT 


OUTDP 
ouTI 

ou01 

PARLS 
PCKCD 
PCKEP 
PCKLB 


P/N= 1635211 
CROSS-REFERENCE LISTING 


EC=754882 


ATTRIBUTES AND REFERENCES 

6 
ADDRESS. HEX LOCATION(00000726) IN CSECT(S3400 
ADDRESS. HEX LOCATION (00000308) IN CSECT(S3400 
ADDRESS. HEX LOCATION(0000066D) IN CSECT(S3400 
ADDRESS. HEX LOCATION (000017D5) IN CSECT(S3400 
oADDRESS. HEX LOCATION (000017DF) IN CSECT(S3400 
oADDRESS. HEX LOCATION (00001050) IN CSECT(S3400 
oADDRESS, HEX LOCATION (QOOOOFE2) IN CSECT(S3400 
ABSOLUTE, HEX VALUE (PFFPEFEF) 

1016 1370 1558 1573 2104 2115 2318 2334 
2588 2703 2719 

ABSOLUTE, HEX VALUE (FFFFFFFE) 

1056 1482 1486 1704 

ABSOLUTE. HEX VALUE (FFFFFFE2) 

1648 2404 2670 

jABSOLUTE. HEX VALUE (00000008) 

ABSOLUTE. HEX VALUE (00001800) 

ABSOLUTE. HEX VALUE (00000009) 

ABSOLUTE. HEX VALUE(00000003) 

oADDRESS. HEX LOCATION (OO0006BF) IN CSECT(S3400 

ADDRESS. HEX LOCATION(000011B0) IN CSECT(S3400 
ABDRESS. HEX LOCATION(QOOO11E4) IN CSECT(S3400 
ABSOLUTE, HEX VALUE (00000008) 

1289 1331 2527 

ohBSOLUTE. HEX VALUE (00000004) 

oABSOLUTE. HEX VALUE (00000002) 

oABSOLUTE. HEX VALUE (00000007) 

ghBDRESS. HEX LOCATION(0000055C) IN CSECT(S3400 

ADDRESS. HEX LOCATION (00090022) IN CSECT (S3400 
472 473 #474 475” 476 77, 478 479 

481 482 485 

ADDRESS. HEX LOCATION (OO000DUC) IN CSECT(S3400 
1737 1746 1754 1761 
jADBRESS. HEX LOCATION (OOOQ00DSE) IN CSECT(S3400 

ADDRESS. HEX LOCATION (00QQQD6C) IN CSECT (S3400 
1787 1809 1849 1877. 1880 1913 7 
ADDRESS. HEX LOCATION(OOO0OD6E) IN CSECT(S3400 
ADDRESS. HEX LOCATION (OOOOOD7A) IN CSECT(S3400 
ADDRESS. HEX LOCATION (00000D88) IN CSECT(S3400 
ADDRESS. HEX LOCATION(O0000D8C) IN CSECT(S3400 
,ADDRESS. HEX LOCATION (OQO00D9A) IN CSECT(S3400 
ADDRESS. HEX LOCATION(OQO00D9E) IN CSECT(S3400 
,ADDRESS. HEX LOCATION (O0000DA8) IN CSECT(S3400 

ABSOLUTE. HEX VALUE (00000901) 

374 400 521 862 926 935 (951 1015 
1062 1294 1318 1326 1384 1438 1440 1536 
1752 1804 1840 1843 1995 2006 2022 2026 
2114 2191 2205 2209 2325 2330 2338 2362 
2721 2722 2855 2912 2920 3002 3005 3061 
3105 3112 «3195 =—-3172 

ADDRESS. HEX LOCATION (00000240) IN CSECT(S3400 

400 977 3089 3157 3163 
ADDRESS. HEX LOCATION (000011A2) IN CSECT(S3400 
oADDRESS, | HEX LOCATION (00001176) IN CSECT(S3400 
oADDRESS. HEX LOCATION (00001184) IN CSECT(S3400 
aADDRESS. HEX LOCATION (00001192) IN CSECT(S3400 
a ADDRESS. HEX LOCATION (0000119A) IN CSECT(S3400 
oADDRESS. HEX LOCATION (00000519) IN CSECT(S3400 
ghDDRESS. HEX LOCATION (00000241) IN CSECT(S3400 
ABSOLUTE. HEX VALUE (0000000E) 

ABSOLUTE. HEX VALUE (00000000) 

924 974 983 1156 1312 1679 2160 2167 
2219 2271 2448 2496 2606 2624 2666 2795 
ADDRESS. HEX LOCATION (00000572) IN CSECT(S3400 
ADDRESS, HEX LOCATION (00001793) IN CSECT(S3400 
ADDRESS. HEX LOCATION (00000BB6) IN CSECT(S3400 
a ADDRESS. HEX LOCATION (00000760) IN CSECT(S3400 
ABSOLOTE. HEX VALUE (00003402) 

ADDRESS, HEX, LOCATION (0000099) IN CSECT(S3400 

ADDRESS. HEX LOCATION (00000260) IN CSECT(S3400 
4348 350 354 356 360 1100 1101 1133 


COPYRIGHT IBM CORP 1976 


LENGTH (4) 
LENGTH (2) 
LENGTH (1) 
LENGTH (5) 
LENGTH (5) 
LENGTH (1) 
LENGTH (1) 


ee 


2523 


) LENGTH (1) 
) LENGTH (1) 
) LENGTH (1) 


LENGTH (1) 
9 LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


By 


OVUIO JO 


O~INIO~] 


Lad IND BD need ond 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


0 

7 
) LENGTH (2) 
) LENGTH(1) 
) LENGTH (1) 
) LENGTH (2) 
) LENGTH (1) 
LENGTH (2 
1156 ) 
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$3400 --- 


DECLARED 
1104 
533 
273 
718 
719 
720 
2983 


185 
2862 
72 
856 
857 
862 
663 
864 
865 
858 
860 
861 
781 
129 
7182 
784 
2860 


2913 
232 
674 
790 
787 

1149 
424 
231 

1153 
319 


320 
721 
722 
723 
305 
307 
317 
308 
310 
312 
313 
314 
315 


316 
1783 
1791 
1798 
1806 

570 

578 


SYSTEM TEST EXERCISOR CONTROL PROGRAM 
CROSS-REFERENCE LISTING 


NAME 
PC K 20 
PCYLA 
PDTAS 
PHTOE 
PHTOE1 
PH TOE2 
PID 


PKLAB 
PRBUF 
PREP 
PRG 
PRGN 
PRGN1 
PRGN3 
PRGN4 
PRGNS 
PRGN6 
PRGN7 
PRGN8 
PRMS 
PROGACT 
PRPR 
PRPEM 
PRTEU 


PRTSW 
PSTER 
PSWCV 
PTMS 

PTMSG 
PTWEP 
PTWLB 
PT WMG 
PTW! 

QAVI 


QAV2 
QHTOE 
QHTOE1 
QHTOE2 
QIAR 
QLSR 
QRAL 
QRO 
QR2 
QR4 
QR5 
QR6E 
QR7 


QSvVC 
RCIB1 
RCIB3 
RCIB4 
RCIB5 
RDCB 
RDW1 


ATTRIBUTES AND REFERENCES 


P/N= 1635211 


jABDRESS. HEX LOCATION(OQOQO9AE) IN CSECT(S3400 
ADDRESS. HEX LOCATION(00000396) IN CSECT(S3400 
1410 1426 1439 1878 1916 
ABSOLUTE. HEX VALUE (00000020) 
ADDRESS. HEX LOCATION(00000582) IN CSECT(S3400 
2150 2181 2205 2221 2788 
ADDRESS. HEX LOCATION(00000584) IN CSECT(S3400 
2145 2180 2786 
ADDRESS. HEX LOCATION(00000586) IN CSECT(S3400 
2144 2179 2787 
ADDRESS. HEX LOCATION (00001800) IN CSECT(S3400 
920 933 1663 1670 1784 1821 2137 2217 
2336 2615 2616 2984 2985 2986 3066 
, ABSOLUTE. HEX VALUE(0000D7C3) 
ADDRESS. HEX LOCATION(00001518) IN CSECT(S3400 
ABSOLUTE. HEX VALUE (0000000C) 
ADDRESS. HEX LOCATION (000007A8) IN CSECT(S3400 
ADDRESS. HEX LOCATION (00000728) IN CSECT(S3400 
862 863 864 865 2547 2548 2621 2952 
ADDRESS. HEX LOCATION(000007A9) IN CSECT(S3400 
2487 2516 2525 
> ADDRESS. HEX LOCATION(OOO007AB) IN CSECT(S3400 
jADDRESS. HEX LOCATION (OOOO07AC) IN CSECT(S3400 
oADDRESS. HEX LOCATION (OOOO0O7AD) IN CSECT(S3400 
ADDRESS, HEX LOCATION (000007B4) IN CSECT(S3400 
ADDRESS. HEX LOCATION (000007B8) IN CSECT(S3400 
a ADDRESS, HEX LOCATION(000007BC) IN CSECT(S3400 
ADDRESS. HEX LOCATION (OOOQO06E4) IN CSECT(S3400 
ABSOLUTE. HEX VALUE (00002104) 

ADDRESS. HEX LOCATION (000006E6) IN CSECT(S3400 
ADDRESS. HEX LOCATION (OO0006E8) IN CSECT(S3400 
ADDRESS. HEX LOCATION(0000150C) IN CSECT(S3400 
658 675 679 1110 1113 1571 2070 2071 

2862 2921 2922 

ADDRESS. HEX LOCATION(0000179C) IN CSECT(S3400 
1068 1155 1473 1580. 2134 7 2262 
ABSOLUTE. HEX VALUE (00003405) 

ADDRESS. HEX LOCATION(00000534) IN CSECT(S3400 
ADDRESS. HEX LOCATION (O000006FC) IN CSECT(S3400 
ADDRESS. HEX LOCATION (OOOQ06EC) IN CSECT(S3400 
ADDRESS. HEX LOCATION(OO0009FE) IN CSECT(S3400 
ADDRESS. HEX LOCATION (00000278) IN CSECT(S3400 
1013. 1105 1150 1157 1158 1526 2528 
ABSOLUTE. HEX VALUE (00003404) 

ADDRESS. HEX LOCATION(O0000A0A) IN CSECT(S3400 
ABSOLUTE. HEX VALUE (00000018) 

947 1023 1712 1774 1719 1736 1743 1760 
2117 2543 2586 2590 

ABSOLUTE. HEX VALUE (0000001A) 

1274 1324 1725 17465 1753. 1763 
ohDBRESS. HEX LOCATION (00000588) IN CSECT(S3400 
jADDRESS. HEX LOCATION (0000058A) IN CSECT(S3400 

Z 

ADDRESS. HEX LOCATION(0000058C) IN CSECT(S3400 
2192. 2195 2440 

ABSOLUTE, HEX VALUE (00000000) 

1055. 1113 1117 1703 1723. 2295 

ABSOLUTE. HEX VALUE (00000004) 

1718 1730 1845 1848 2283 

ABSOLUTE. HEX VALUE (00000017) 

895 1054 1076 

ABSOLUTE. HEX VALUE (00000006) 

ABSOLUTE. HEX VALUE (0000000A) 

ABSOLUTE. HEX VALUE (0000000E) 

ABSOLUTE. HEX VALUE (00000010) 
2069 2297 

ABSOLUTE. HEX VALUE (00000012) 

1504 2285 

ABSOLUTE. HEX VALUE (00000014) 

1626 1789 1824 1947 2009 2088 2095 2245 
2266 2726 

ABSOLUTE. HEX VALUE(00000016) 
1058 1100 1110 11148 1133 °1151 41476 1499 
ADDRESS. HEX LOCATION(OOOOODAE) IN CSECT(S3400 
j ADDRESS. HEX LOCATION (00000DC2) IN CSECT(S3400 
jABBRESS. HEX LOCATION (OO0000DD0) IN CSECT(S3400 
j ADDRESS. HEX LOCATION(OOOOODE4) IN CSECT(S3400 
ADDRESS, HEX LOCATION (000003DC) IN CSECT(S3400 
ABSOLUTE. HEX VALUE (00000010) 


EC=754882 


N 
NO 
ned 
foe) 


) 


~~ eee eee 


) 
) 


28%1 


) 


~— eee ee 


) 


2113 


) 
) 
) 


2265 


1713 


— Ee eee 
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LENGTH (1) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 


LENGTH (1) 


LENGTH (1) 
LENGTH (12) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (1) 


LENGTH (2) 


LENGTH (2} 
LENGTH (2) 
LENGTH (14) 
LENGTH (1) 
LENGTH (2) 


LENGTH (1) 


LENGTH (2) 
LENGTH (2) 
LENGTH ( 2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 


$3400 --- SYSTEM TEST EXERCISOR CONTROL PROGRAM P/N=1635211 EC=754882 PASE 19 53400 --- SYSTEM TEST EXERCISOR CONTROL PROGRAM P/N=1635211 EC=754882 PAGE 19A 


CROSS-REFERENCE LISTING COPYRIGHT IBM ZORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
579 580 581 582 583 584 585 137 SIX ABSOLUTE. HEX PRUE Ao ogo ae! 
581 RD WG ABSOLUTE. HEX VALUE(00000016) 1158 2162 2187 2191 2791 
ABS 147 SIXTN ABSOLUTE. HEX VALUE (00000010) 
91 READI giBSOLUTE. HEX VALUE (0000001F) soon 1005 1360 1799 1834 (1994 2278 2320 2568 
B43 REAS ADDRESS. HEX LOCATION (00000780) IN CSECT(S3400 ) LENGTH(10) 162 SIXTY snuoo rears HEX VALUE (0000003C) 
846 REASG ADDRESS. HEX LOCATION (0000078C) IN CSECT(S3400 ) LENGTH(2) 163 SIXT4 ype porte yor VALUE (00000040) 
622 RECAL ADDRESS. HEX LOCATION(O000040C) IN CSECT(S3400 ) LENGTH(2) 164 SIXT6 Bae HEX VALUE (00000042) 
227 RECD1 ABSOLUTE. HEX VALUE (00003400) 361 Skw1 ABSOLUTE, HEX VALUF (00000000) 
830 1667 2 562 563 564 565 566 567 568 
1909 RELD1 ADDRESS. HEX LOCATION (OQOOOO0E4A) IN CSECT(S3400 ) LENGTH(1) - 362 SKW2 scene HEX VALUE (00000002) 
1917 REL11 ADDRESS; HEX LOCATION(OOOO0E60) IN CSECT(S3400 ) LENGTH(1) 564 SKW4  pBSOLUTE. HEX VALUE (00000006) 
834 REMG1 ADDRESS, HEX LOCATION (0000076A) IN CSECT(S3400 ) LENGTH (2) 566 SKW6 ABSOLUTE. HEX VALUE (00000003) 
2662 REPGM ADDRESS. HEX LOCATION(000013B2) IN CSECT(S3400 ) LENGTH(1) 31 SM ABSOLUTE. HEX ee Oe, 
453 2363 866 1472 1475 15710 1519 1551 1567 1649 2241 
1874 REQD1 ADDRESS. HEX LOCATION (00000E32) IN CSECT(S3400 ) LENGTH(1) 2275 2498 3147 3159 3178 
ape 127 SMBIT ABSOLUTE. HEX VALUE (00000010) 
235 RES ABSOLUTE. HEX VALUE (00003408) La eee We eed onan 
‘ CATION (00000 
os ae wae BED Newer toy rc 698 SPT1 ‘ADDRESS HEX LOCATI ae ee 
: TION S 
907 RESTR ADDRESS. HEX LOCATION(000007F4) IN CSECT(S3400 ) LENGTH(1) 882. 1434 ( PE SORE ESO oy RENG TEC) 
anoa) 3303 71 STCSS ABSOLUTE. HEX VALUE (0000000B) 
925 RETRN ADDRESS. HEX LOCATION(00000828) IN CSECT(S3400 ) LENGTH(1) ; 1739 
1683 2633 104 STERC ABSOLUTE. HEX VALUE (00000002) 
690 REVT ADDRESS. HEX LOCATION(0000054C) IN CSECT(S3400 ) LENGTH (2) 2203 2745 2748 
Po mere 703 STFLG ADDRESS. HEX LOCATION (00000563) IN CSECT(S3400 ) LENGTH(1) 
691 REVT1 ,ADDRESS. HEX LOCATION (OQ00054E) IN CSECT(S3400 ) LENGTH(2) iS ane I oa Oe Le 032895 3h 69 
‘ EA) INC 
692 REVT2 ADDRESS. HEX LOCATION(00000550) IN CSECT(S3400 ) LENGTH (2) 2242 Se yj PERCE CS) 
oth 107 STOP ABSOLUTE. HEX VALUE (00000006) 
914 REOS ADDRESS. HEX LOCATION(0000080C) IN CSECT(S3400 ) LENGTH(1) . 971 986 1493 3154 
ADD 126 STPCD ABSOLUTE. HEX VALUE (00000064) 
922 RESO ADDRESS. HEX LOCATION(00000822) IN CSECT(S3400 ) LENGTH(1) ee Snaes ae nee, Hl 
. OCATION 
1794 RICB6 Ft yuna HEX LOCATION(00000DC6) IN CSECT(S3400 ) LENGTH (1) oe ee ee 363 Oeeo hese CSEST (S3390 ao ee!) 
3 363 
69 RID BRsoLore. HEX VALUE(00000009) ae a ae ac° 363 383 303 383 383 
3 3 
2849 RIDCB ABPRESS. HEX LOCATION (00001502) IN CSECT(S3400 ) LENGTH (2) 302 a3 303 oe ae3 303 383 363 303 
6 
241 RPCD2 jhBSOLuTE. HEX VALUE (00003410) ace ys ace ae8 ve 363 303 383 383 
3 
2939 RPG2 a hDDRESS. HEX LOCATION(000017C2) IN CSECT(S3400 ) LENGTH (12) =e ie ee 363 363 363 303 383 363 
2948 RPRL2 gpDENss: HEX LOCATION (O00017E6) IN CSECT(S3400 ) LENGTH (2) 363 363 Se Ae ae 363 383 383 363 
2934 RPSV  ABDRESS. HEX LOCATION(000017BC) IN CSECT(S3400 ) LENGTH (2) a8 ee ae pe Ly 363 383 363 383 
2402 RS PGM ADDRESS. HEX LOCATION (000011C4) IN CSECT(S3400 ) LENGTH(1) Sea Seu a0 aay aa ett 308 383 383 
364 
75 RSTAT peeoe ee aes VALUE (0000000F) ack aot ay ey oy 304 364 364 304 
666 RTNCV SUDRESS: HEX LOCATION(00000528) IN CSECT(S3400 ) LENGTH (2) acu oer Sea ey on 34 384 304 30d 
2985 RTNE ADDRESS. HEX LOCATION (0000180A) IN CSECT(S3400 ) LENGTH(1) 364 364 368 364 °& 364 34 304 304 384 
667 1116 1667 2138 2925 364 364 364 364 364 364 364 %\}364 3648 
2957 SAV ADDRESS. HEX LOCATION(000017F0) IN CSECT(S3400 ) LENGTH (2) 364 364 364 364 364 364 364 364 °& 364 
O12 4024 1702 W726 2055 2 67 2087 2094 2124 ae) ey en. <aen, Ben; Bes 26h aah. 3th 
: 4 
717 SAVEPNT ADDRESS. HEX LOCATION(00000580) IN CSECT(S3400 ) LENGTH (2) 364 364 364 $364 364 304 304 304 364 
2139 2171 200 2211 364 364 364 364 364 #364 ##%$%1364 +364 #364 
2959 SAVET gRDDR Ee gues LOCATION (000017F4) IN CSECT(S3400 ) LENGTH (2) 3ei pai ae aca 364 364 364 364 364 
4 991 
2960 SAVR1 ADDRESS; (HEX LOCATION (000017F6) IN CSECT(S3400 ) LENGTH(2) 2239 ST01 ADDRESS. HEX LOCATION (OOOO1OFS) EN e seer ($3400 ) LENGTH (1) 
2958 SAV2 sARBRESS. HEX LOCATION (0000172) IN CSECT(S3400 ) LENGTH(2) 2252 STOS5 ABDRESS. HEX LOCATION(0000110C) IN CSECT(S3400 ) LENGTH(1) 
268 SC END ABSOLUTE. HEX VALUE (00000013) | 2259 STO5A ADDRESS. HEX LOCATION (00001116) IN CSECT(S3400 ) LENGTH(1) 
884 SCHD1 ADDRESS. HEX LOCATION(000007D0) IN CSECT(S3400 ) LENGTH(1) 2255 ST06 shoe HEX LOCATION (00001110) IN CSECT(S3400 ) LENGTH(1) 
897 SC HD2 ADDRESS, HEX LOCASTON (000007F2) IN CSECT(S3400 ) LENGTH(1) 2274 ST 10 Seen eae LOCATION (00001146) IN CSECT(S3400 ) LENGTH (1) 
899 SCHD3 ADDRESS. HEX LOCATION (O00007F4) IN CSECT(S3400 ) LENGTH(1) 2277 ST20 sRUDRESS? HEX LOCATION (0000114C) IN CSECT(S3400 ) LENGTH(1) 
879 SCHED ADDRESS. HEX LOCATION (000007C0) IN CSECT(S3400 LENGTH (1 2294 STUO ADDRESS. HEX LOCATION (00 
> {Hou "Wa 930 Fy on ore shod” [Sue 3782, 28b6 ae ae | eae 1 ean ana aer age) SECRET eack: .y NEUGTE GY 
. ae. A OCATIO 
443°» SDCP “ADDRESS, HEX LOCATION (00900000) IN CSECT(S3400 ) LENGTH(4) eae ive 353 COO Powe EMCCSEOT (S000, )  EENGTH(’) 
oe S. HEX LOCA 
344 SDCP2. |” ADDRESS. HEX LocatLON (00000002) IN CSECT(S3490 ) LENGTH(1) ieee. eae wt 2429 BERTON DOORS eo RAVES ECT (SNe DENG THCE) 
- HEX LOC 
402 SECSZ ADRRESS. HEX. LOCATION (00000244) IN CSECT(S3400 ) LENGTH(2) eo AGES Ud ee ee oe ee nee RENGTE 
1429 1442 244 SVCOD ABSOLUTE. HEX VALUE (00003415) 
553 SEDCB ADDRESS. HEX, LOCATION (O0QQQ3CC) | IN CSECT ($3400 ) LENGTH (2) 58% aaa 1088 
¢ RESS. HE Cc 
1424 |. SEEK (ADDRESS. HEX LOCATION (O0000B46) IN CSECT(S3400 ) LENGTH(1) sou 1052 1075 ATe 30 lead whe” 5803, Sa77, sebo 
54 3 SEIDB “ADDRESS. HEX LOCATION (000003BC) IN CSECT(S3400 ) LENGTH(2) 1067 SVCRT ADDRESS. HEX LOCATION(0000097 
5441368 883° 1061. 1597 2408. 2691 2089, oD LENGTH(Y) 
544 SE1D1 ADDRESS, HEX LOCATION (000003BD) IN CSECT(S3400 ) LENGTH(1) 1074 SVCR1 shes toad LOCATION (0000098C) IN CSECT(S3400 ) LENGTH (1) 
138 SEVEN ABSOLUTE. HEX VALUE (00000007 1078 SVCR2 ADDRESS. HEX 
1433 SE03 RODRESS. HEX LOCATION(00000560) IN CSECT(S3400 ) LENGTH(1) 471 SVCT ADDRESS. HEX LOCATION (0000033A) IN CSECT(S3400 ) LENGTH (2) 
14 37 SE10 jRODR BSS, HEX LOCATION (OOOQOOB6A) IN CSECT(S3400 ) LENGTH{(1) 1051 SVCOS ADDRESS. HEX LOCATION(00000958) IN CSECT(S3400 ) LENGTH(1) 
1452 SE20 ADDRESS. HEX LOCATION(00000B92) IN CSECT(S3400 ) LENGTH(1) 3 $3400 CSECT. START (00000000) LENGTH(6644) ESDID(0) 
663 SIRS pA DRESe HEX LOCATION(00000527) IN CSECT(S3400 ) LENGTH (1) 267 TBEND ABSOLUTE. HEX VALUE (00000012) 
662 SIRST ADDRESS, HEX LOCATION (00000526) IN CSECT(S3400 ) LENGTH (2) 141 TEN ABSOLUTE. HEX VALUE (0000000a) 
1007 1727 1795 
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ABSOLUTE. HEX VALUE (00000022) 

ABSOLUTE. HEX VALUE (00000026) 

aADBRESS. HEX LOCATION(000006CA) IN CSECT(S3400 ) LENGTH(1) 
ADDRESS. HEX LOCATION (000011BE) IN CSECT(S3400 ) LENGTH(1) 
ABSOLUTE. HEX VALUE (90000000) 

898 1004 1333 1379 1399 1410 1427 1506 14539 

1803 1948 2010 2161 2321 2706 2793 3065 3071 
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03401 - OVERLAY TO PRINT OUT PARITY ERRORS AFTER I 


DECLARED 
0 


oo Oo Oo oO 8& 6 


67 
52 
110 
138 
140 
143 
145 
148 
147 
186 
66 
65 
49 
149 
170 
175 
50 
54 
55 
53 
46 
58 
G4 
45 
59 
43 
42 
41 
180 
109 
150 
160 
155 
165 
75 
719 
83 
87 
91 
101 
95 
106 
102 
100 
47 
56 


NAME 
-RO. 
-R1. 
-R2. 
-R3. 
-R4. 
RS. 
-R6. 
-R7. 


$HTOE 
#HTOE 
ALTCN 
ANSY 
CHG1 
CHG2 
CHG3 
CHG4 
CHGS 
CHG6 
CONTN 
CONV 
CONVT 
EIGHT 
END 
EXT 
EXTDL 
FORTN 
HF FFC 
HFFFO 
HF FOO 
HF800 
HTOE 
HOOEO 
HOOES8 
HOOOF 
HO008 
HO 800 
H3000 
INNER 
INPUT 
INT 
INTDL 
INTEN 
ITTDL 
MSGO1 
MSGO2 
MSGO3 
MSGO4 
MSGO5 
MSGO06 
MSGO7 
MSG08 
MSG61 
MSG62 
ONE 
ouT 


PN=4414315 EC=754882 PAGE 02 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
ATTRIBUTES AND REFERENCES 
ABSOLUTE. HEX VALUE(00000000) 
ABSOLUTE. HEX VALUE (00000001) 
120. 128 129 133 135° 136 #180 194 
ABSOLUTE. HEX VALUE (00000002) 
127. 129 ~=«+183 
ABSOLUTE. HEX VALUE (00000003) 
183. 184 185 6 187 197 198 199 200 
ABSOLUTE. HEX VALUE(00000004) 
135. 137.2137 141. 142 «144 = 186s‘: 
ABSOLUTE. HEX VALUE (00000005) 
ABSOLUTE. HEX VALUE (00000006) 
113. 114 1 117-118 
ABSOLUTE. HEX VALUE (00000007) 
122. 124 150 155 160° 165 170 #175 ~#«181 
188 190 195 
ADDRESS. HEX LOCATION (0000301C) IN CSECT(03401 ) LENGTH (2) 
ADDRESS, HEX LOCATION (00003016) IN CSECT(03401  ) LENGTH(2) 
ABSOLUTE. HEX VALUE (00000240) 
ADDRESS. HEX LOCATION(00003170) IN CSECT(03401 ) LENGTH(1) 
ADDRESS. HEX LOCATION (000031BE) IN CSECT(O3401 ) LENGTH(4) 
ADDRESS. HEX LOCATION (000031C6) IN CSECT(03401  ) LENGTH (4) 
ADDRESS. HEX LOCATION (000031D0) IN CSECT(03401 ) LENGTH(4) 
ADDRESS. HEX LOCATION (000031D8) IN CSECT(O3401 ) LENGTH(4) 
KDDRESS. HEX LOCATION (000031E4) IN CSECT(O3401  ) LENGTH(4) 
ADDRESS. HEX LOCATION (000031E0) IN CSECT(03401 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00003276) IN CSECT(O3401  ) LENGTH(2) 
ADDRESS. _HEX LOCATION (00003014) IN CSECT(03401 )} LENGTH(2) 
ADDRESS. HEX LOCATION (00003010) IN CSECT(03401  ) LENGTH(4) 
ABSOLUTE. HEX VALUE (00000008) 
ADDRESS. HEX LOCATION (0000318) IN CSECT(03401 ) LENGTH(4) 
ADDRESS. HEX LOCATION(0000323C) IN CSECT(03401 ) LENGTH (4) 
ADDRESS. HEX LOCATION (00003250) IN CSECT(03401 ) LENGTH(4) 
ABSOLUTE. HEX VALUE (0000000E} 
ABSOLUTE. HEX VALUE (0000FFFC) 
ABSOLUTE. HEX VALUE (OOOOFFFO) 
ABSOLUTE. HEX VALUE (0000FF00} 
ABSOLUTE. HEX VALUE (0000F800) 
ABSOLUTE. HEX VALUE(0000001A) 
182. 189 196 
ABSOLUTE. HEX VALUE (000000E0) 
ABSOLUTE. HEX VALUE (000000E8) 
ADDRESS, HEX LOCATION (00003004) IN CSECT(03401 ) LENGTH(2) 
ABSOLUTE. HEX VALUE (00000008) 
ABSOLUTE. HEX VALUE (00000800) 
ABSOLUTE. HEX VALUE (00003000) 
ADDRESS. HEX LOCATION (00003264) IN CSECT(03401 ) LENGTH(4) 
151 154 156 1 1 64 166 169 
ADDRESS. 8 X LOCATION (0000316E) IN CSECT(03401 ) LENGTH(2) 
ADDRESS. HEX LOCATION (000031EC) IN CSECT(03401 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00003214) IN CSECT(O3401 ) LENGTH (4) 
ADDRESS. HEX LOCATION (00003200) IN CSECT(O3401 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00003228) IN CSEGT(03401 ) LENGTH (4) 
ADDRESS. HEX LOCATION (00003024) IN CSECT(03401 ) LENGTH(29) 
ADDRESS. HEX LOCATION (00003044) IN CSECT(03401  )} LENGTH(53) 
ADDRESS. HEX LOCATION (0000307C) IN CSECT(03401 ) LENGTH(29) 
ADDRESS. HEX LOCATION(0000309C) IN CSECT(03401 ) LENGTH(41) 
ADDRESS. HEX LOCATION (000030C8) IN CSECT(O3401 ) LENGTH (41) 
ADDRESS. HEX LOCATION (0000313A) IN CSECT(03401 ) LENGTH(41) 
ADDRESS. HEX LOCATLON(000030F4) IN CSECT(O3401 ) LENGTH(49) 
ADDRESS. HEX LOCATION (0000316C) IN CSECT(O3401  ) LENGTH(1) 
ADDRESS. HEX LOCATION (00003163) IN CSECT(03401 ) LENGTH(5) 
ADDRESS. HEX LOCATION (00003134) IN CSECT(03401 ) LENGTH (6) 
ABSOLUTE. HEX VALUE (00000001) 
ABSOLUTE. HEX VALUE (00000000) 
153 8 163 168 173° #178 #192 
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DECLARED NAME 
61 OUTCB 
194 OUTER 
57 OUTIN 
38 03401 
131 RETRN 
51 STGCT 
113 STRT 
40 TABST 
48 TWO 


ORR ORR ROR Rk tok RRR Rokk kok koe ok kok OE AST PAGE 


PN=44 14315 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
ADDRESS. HEX EO ee ees 
5 150 152 155 

0 172 175 177 1 
Te BOC PT TON even s222) 


179 


1 

1 
RESS 

1 176 

TE. HEX VALUE(00000001) 


OLU 


. HEX VALUE(00000230) 
RESS. 
OLUTE. HEX VALUE (00002804) 


4 
7 
D 
1 
S 
6 
E 
8 
D 
3 
S 
3 
D 
) 
: 
SOLUTE. HEX eee ea 
4 118 151 156 161 


ek eh a DB) et 3 ed od 


TART (00003000) LENGTH (682) 
HEX LOCATION (000031AC) IN 


HEX LOCATION (00003172) IN 


166 


ESDID (0) 
CSECT (03401 


CSECT (03401 


171 176 
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LENGTH (2 
ibs PWG EH C2) 


) LENGTH (4) 


) LENGTH (4) 
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184 


LENGTH (4) 


eK tO rok sO RK koko tok ok ORR mOR ROR aK Ok OR kok kok tk tok ok tok tak ak tak 


PAGE O1A 


COPYRIGHT IBM CORP 1976 


PN=1635220 EC=755104 


SYSTEM TEST SUPERVISOR 


D3410 ----- 


STMT SOURCE STATEMENT 


PASE U1 LOCTR OBJECT TEXT 


COPYRIGHT IBM CORP 1976 


755104 


EC= 


PN=16 35220 


SYSTEM TEST SUPERVISOR 


OBJECT TEXT 


D3410 ----- 


i) 
e 
< & 
AGAMNDOSODODOMTIOGTOCe-®D OU e wn oO 
OFT TAOOO° at Wha, (oe) ox Q [eed 
eI ° x on 
uw) fa a wA oO =z 
fq mm > (eo) 
a ~ a a4 w Gia 
be ra fa Sey at) 
BH Oo <a) om eiac eH A HMM HO f, cd - - 
E+ fe} © aA <3 me BHO mm © 
fe <O eH < ro) Fel 0 O <&>aaa & U xt 7) oa) 
n OUR OHNE pet GM zneezZz O2F0 > 0 ' 
am) eo am ww oO OZ eH eect Hue <3] A Ww 
> a a i] Hn BHODNars ae He a <x U 
[| = & © mam Mmm SP @« OGHASzE emo Ee 
a HO i.) Oo AO HH UNRNBAROCO QUO=z m eH ~ 
fra fu Qin feel HH HHO UYD Fer > 2) ' 
a | wn =< OH AOCZz get th ca] wn) 
4 bc, a oc 4 YO SkAH MeO eAWHOmA A mM io) 
wd mah”) Y YO Av 2 WHN OOOCCORMm«ékhU 
«< BO oO Oo «oO OHS Or Bea Pes ng Pee ree | Of} N a Oo 
> Un I wa Or HNnNOHOM UAvAr > < ' 
om (Q ma M epjM BS Me Meteti aaa YM fx =< Ww 
by CERIO OR MRI >on) a 3) 5) 
(eo) bot] | wa eL4 OQ PRM mei Mat COOH -IOD 
«aO {o) Orc oO OS bt ARI) ee ct ot NN Om: = wn w 
[> moe [+] a moa RE E aH > m ’ 
~~ OH & HOWE BeBe PAW A « el bia fa Y) w 
foo! Om a ZOO-z —MNUHD at PS eh SUUNWN Zam a Aa U 
«< moO (o) Ommo MrHMBO eat chi ata Op 
oa Au) 5) Uma TBNSHOANNNNNGaEBOA ) zx =z 
WY) fee) | oo 
- OU WY) ~< 
a =] UO WW < e 
% foe] Mm ops fa 
% © ma j E41 >< - % 
% Wn YQ 7) - Ze e - - 
+ we ~A UO = Uo< U 3 a > 
% on | >< < i &) 4 = 
a & N N | Oa >< » “ fy - b= 
~ ~ ~ oO eH jee) ' >< o i és) (82) = 
a N ~ ~ a @ Oo O Ww) & GI p< fa (oe) © & [a= e - 
oo o o He & Kn g oO ee QO o_o e oe wo feo] = oo A e UY eee Gee \DX eo eo G o oo & oo o (o) wo f xe & ° & 
oo oe te ae ee eee De ce Ca OOO 2] © oS - 2 = OCAMOUNUP OH - ate wa mn N & me Dat nN 
OCe2eweeevevewwnecereer 2 OF OCF OOHKH HO HWS O £Pst | MOOCHKHHKHHBHHPOVUKEHOUO CHO CAD OM OMe Nee Me Mike ™ o Oy - ™ Cd nO myo - ™ 
2 & QOPFNDOSFOWDOMAODMNGSEDOD ICM MOM Nen|/NOe ke OMI MIethmOy! i tit! OOO l1# Ode CHOC O05e OF MOS MRMROATEOOTZOARIZOAZOOAZOOAST Cast oar OAT 
SPM ST TST TWN OOP i ee at I Be tt OF HOF RE K DEH DONMAIONS At PROC tt HH HHH HOODOO HF OHOOTO ZOCTONDCOOM HOM HHO UM BRO GMHOBMAOCUMBSOUMBZOGM OommM O2M oamm 
OQOevzeeenwwvvevveeeevec oe Oo OOOO w ws © Je Swowwsae oc oe COwwww,wwJwe © © “# OMOTOUOCTOMOwW ewe ke we wwe wes Ove e Oe eo Orewewe Cee ew Oe ee Oe ee Overe Or ee Oo oa 
SHE PS PS Dk Dg DS Dk DS ed Dd Pk eg Dg Pk Dk od eg Dd Dg cats a ca, caer, ek ms ea, ca, ca, a ee, cae SL) CL) DS a a eS DS Oh a Se aa ad odode © © © ple ew & ele em © pl dd) POS UL) EL) DS eC) De SE pd CL) DS SE tC) ek De LL) Bd to OS ) DS OL) SE od ©) De OE et CL) bd tL) 
USSU ORMO MUO RO 
tC = z= a = = mz a} = 
os] 1a) © i) 14] oo 1) Oo ie) 
=> 4 | a 4 eH eH © a) = bh 
YVUVUVYVOOYUVVUYVVVVVUNVNVVV YUVVOVVVVOYUVUVUVUVVO UVUVVOVUVUVVUVVUVUV OU UV UU GO UVUVUOVUVOUYUVUOOUVU OVUVU LC FAOVU ONO UONAOOOARAOUU ROU OND CQ URDU UO AUUUROU 
ARAARBADANAAADADBQAAHDAAARDARAQDAAAARBARAADARAARMDANDAA RADDA AAADAARAADAADAAAARARARARADAARAROBARARAAARARCgANRAeANNMAeAAAcKoQnAK<AAAcCAaAMaAAcnQaAAcARAeAAR 
< > e ran) bet 4 
RIE Ex a «< ABBA WNMm Nie 
a> UO FN FN FN &N AQ KNOQHMHNeSZAQA =m - 
“Sf SAN RAWAM BHO mC OAN SHH OAS Seems zZa ~~“ Fr NN mM | = He sod N mw wo io @) mer) at an So 
RA WOODOQOQOOQOOCOOOCOCCO AVUROCOCOC cCHONTNEMOOCORBHATHe @ WM G&G MG ww 1 &] UNO oO So oo So Oo oc fom) Oo - 
| OCHRE HHH HHHHHH HOH HHPNSZO>UGAUUULF>>cetODA AZ AZ A ZB As == oO oO Ow © i] WO a] wo i] 
at at CSS SS Se ORRIN mS HOHnMMMAO cette CEZOD SH SB HH eS Fe e ww n WY) wn wn i?) nN nM nN wn) 
> AARKFCCGGHHHMMM HAASGSBOANZOAQHHNNNNHNHOUURMRA © FH Ww Hf AF 2) Ass = x ob : 2 a = bom = +. .24 = 


KHOFNAMPNOE DANO SCAM PWMOP DOCNM SFMWPDNHNDO KAM SFMWOKDNO SAM FWP DNOESCANM FNOWDHOSEAUM TNO DHOSENANMAMNOP DHSEAMNPMNOPF DHOSCANMPNVOEDHAVENMTMMNOrDHOENAMIWH 
FANN AANAAANAMMMMMNMOM OMY st FF SPT TTT PTMMMMNNMNM MINNOW ODO DODD KOOUE EEE EEE DODDDDDDDDAHAANMNAANAAHNSOCOODO C90 O CPCS CECE FE EKN|ANAANAANANMMMaAMnm 
OC FC CE CFC 0 EC EEN NANNNNANNNANNNNANNANNNANANNANNANANANNANNA 


Co = 2: ee 2 Sr 2 U + U 3) a a 
oo Oo MHOeNDaAeoO ~ am ° - \o oa 
oo aA ort OU FT O TF AQ Ak z YO S) (S) 
Coo rn 0 OoOMOoN Oo oO am roe) ~ o oO zx oO 
oo Aart UF WM SF = Qh a U a =z a x 
oo A nor OM SO ron ne wn Ve) \o co") oO ” 
oo Au Ft VU FY F a Sy) ro) a a ros a 3) 
coo moee°ncdoend$jsa7 oO em ron) roa) ran) Ve) Ve) rae) m 
oo Us Fett te ran) wo RQ Qa a res Q UO Y ro] 
oo =) o UF omoaosto wn oa) teal ad) ron) ™ N wn roa] ~ N 
oo =z ro) wWuUTFrTA TF? UO SF U Uh f= zs a fy a Fx} Ss) fx} 
oo ro) ro) UF OM Oe Oo ro) we roa) w oO ro) on) oO oO i) ro) 
oo =z ro) WwW Ut WH Ft YU F&F => um U 3) :S) 3 =z a =z 3 c 3 
oo COOK OWKONKOWFON CDONOCNOCOCLlMRKOOOOOCOOOOD BDOUOMOOONOCONCOCAMOURRM or eur rw wo mw N oO Mo Oo No 
oo COCO AOOCOOCOMNCOF PFOCOMODOCHOCOCOOOCOCOCSCOSTS YONCROTOASCTFONMOTFOMAOM BIhI MU MA MA Ma MA ) ma ma moar 


DODO PFMDOFQDDOM FODNOPDOOCODOODOO LOS MON COSC DOOMHOGCOCOSCOSSOD COVOGMYVOOOMOSCONGCOCOSFPOFMEPOCSCAWOCOANGD Fro 2ZHO AFMOOCOFr COOsT0CO zOOCOr0O 
QOMS SF PUOOE at eg EO I Ps Bs OOO KOO POO FOO FO UPOOCOKOOCRLODOOODSCOOSOOOOD CONMOCVYSCTOVIOSFOAOSTOMAOMUAOOMHMODOMUD MAD MAD MADOM FOOMSO MrTOOMs? 


NOOEP ON QUAND MOPNAMNAMOP BUNONS OO EOUNONSINWECU DONS DO LU MONSTOD GUD OCONIANT OUMNWDON CUSOHMONUDOCOFPNTONECOM FOHR LU DBDEITNMODONMAWOA WOON 
DOPE LEE EEE DODDDDDDDDAMNAAARAHAAD a ch el a ee a OMOMMMOMYQUUUUUVU VO AOAADHOOMMOLOOO ODOR QWO Cer eePEECEN ANN ANM MMsaeTTFTMMMNM NWOOOF-E 
DDDD DD DDDDDDD DODD DDDODDODDODDDHDDDD DDD DDD DODD DD DOHDDD DODD DDO DDD DD ANAAAAAAAAAAAAAD ak oak cats ck aes oa om oa eK oe RR ce et eas RL, on, eS os oS OG oS A et a on oy 


teed eet ed eed eed oe mel ed mth oo ee et cee eh a oe eel oh el od cel eel cd eel nd ed a el el el cl oe el el eh ee eh ee el ol el ed el ed cee ae ek el el oh ol ol el nel ch ek el el el el eel ee eh nl oe oo ce oe oe ed eek ee ee el eh el eh od 


fee oe ge tee eek ped seed mee weed ceed eee eed weed ooh weed FCC EE” 


BOOS COHGOOOOOSS OOO SS SCOGQOOS GOO OOSCSOOOCDOOSOOSOSSS SS GDSCOOCOSSOSOSOSO SOO DO SS OOOGOSOOSOSOSOOSSOSOOSOSSOOOOOSOSSSD COO COO BOVTOOCOSCSOOSS9ONO CO0CSOOSO 
SOSSSSSSSSSSSOSOOS SOSSOSOSSOSO SSO OSOSSSS OOOOSOSSSSSSSSSSSSOSSOSSSSSSSSHSSOSOSSSSSSSOSSSSOSSSOOSOOEOSSS SOOO SOO CGOeoeeeoeoeso Goooee 


STMT SOURCE STATEMENT 


LOCTR 


i ee ee ee ee ee ea ae ee | =z a 
+t # % % * % isa} ° eet 
% % * % *% * e [oa a fea) fx) mown 
% & # * % * O 2am isa) ox, ro =a © 
# % % * % * BWHezees Re EX [oe] al Se 
% % + % * %t HGH rae ok Vp) < - 2Zz A fi 
+ % % * * ete BH SHH Of feo} cate) fe] E Pea HO 2% & 
+ % % % * #ONBRRSDS OAs Ache ca =a Rw «¢ 
% % + + % ~ #O DHOOCOGMGH WHOm e u?) 3] ae) A. = x 
Ca % % % % tN + OHORKMMmammOH Q WH = is 29 => = = 
# + % % + A400 S44 ED < me eI v4 a aHOO 
% % % % + —I00 toe HHMM MO Ow oO an”) > Pea OHOU & 
% % % % % Term g % SG Q «6H YHN Ou ~ He = >) © Wism © 
% *% a + % wun + GAGmARANMNMN 4 Fe 5 MQ AG a, ae, mp & TE A HH ac 
% % * % % bod # tt AQBDSSV SRN Neat U 1 tt - Oz S at fr] aa UUH Ww 
% % AQ + % % % GHbetceccOMzct TPOME), > MOE © =aOm mm,3 > a moO ui fa 
* +  & + *% Ws. Me #NO Emme mH <€Ow © WY AO « Ls) HO WOM = < Bx) 06 ext fo OG 
* % Aa # % % BO HO #NNOUUREENAGB SG OFPa = MA - Huh OO«a x= 3 PS Oar) I E+ 
+t +t + €£$ A & & * t+ 2 mes Me RMHPRPOOCO AHBKU URaAw Pye ee Os ©) HN 0 E+ = & +2 ee Soar 4 
& e+ t+ @ HH + + * * AMR AM #@PNNOUUNK FSF COOnAD COUGH km acealm A.Ay & a ia * <1 2 
tt + + + wt e + + +t Aga OY @2WMWie YO MOMMIES x & ae = wm mm is) ZMNOOB 
+ % * = % % F#ANMOOCOCOCONMHNO VaHHAAN nwo; & Oo 7p) ZO mn He fey fo) © am Ba I OE 
% % % a * % ~ HCH HHRHEONDMM Gee YW Grit HO Fes co] ZOU OOHNhMO © Baa Ze NOs 
* % oe * % Pwo * © AMO at pet EEA, WO lz me x= Ou > 2 Oy = «PH 
+ ok % YN + # * mW He HNAAAAAARS OR HEHOOU GSH rR = & HH ANH NH 4 OOM mA 
i <E ) + > + +t w #% <r Hm pele reWOoO BHNSHHA A Axts e oO oe] Ae HNOHY Ww) Oo URGA mm 
oO * Yn # +t & * 20 % oC fy A mM Arse WHO | 72) SeacOr>m mmwaqnh © 6S pod PQ 
E+ % tt Oo # % © * or Be Bea Fs Be Ba Fe eB FC) Bia Paes Py fy Pe “—EMONHM WYRM Awe HM Bem mMmoOOmmmAa i) me MAA, 
wnt % => + & * KH % ow #n OOO00M 2+OOHOOOCOO TeStHOM HHHGRMHHEE & © HAH MmUOOA mM) OUR at 
Het Ww e+ WW WN & «& +t GH + BH + 2 He io) 3 eRe eg ene | ft at $c: O 0G 05 [an a GE ae HE 
me % & we &% *% YU + G@ Me Me FMONMMNMMPOMNM MNNNHNM Memeo SOPHO DS mHNDNUOO Rec Bee < ~~ U) ag at 
* & + O WN *# O % © *%* ©O BO HO £# CHNNNNNWONNMNHNUHNN OOQ0000 CoO OoUcoOCm «EO ike Bee oO U7 06 UD Fo 9 
Us HK * FH Sm & A % & et AH we me SMH RRAHWO AWORWAmMmA CD Pres Pies Fg Fes foeeg Fitey Fc) a) Fc) eats Fe) ed fe SD Se BH HHMMOO RE i] HAM NWN 
met Ww + H O # & t+ & * WW AM AM ££ Ue@Mamma Om Mammy io) = a 8G bet 0 0G 06 2 Oo OG 4 ee 6255 Picy Bhs bd Dt bd 
* BF H+ £ HH + O WF NHN W # & #OUROQRF ae V7HAAzaARAARA MBMOOVLOY BHHCHHSHBVeHHH INNO GeHM OHH = Aw >> > 
Bt Bb 2 * UH # OO HB & BD BH % BQOARQAAADARANAARQAAIMETONOCNMWOOCWOR COOP Se PPS tH RHHEHANHD HHH at GD ROD DAME O © Fx) Fo A A 
nut Of © *# H et #t SB O # HH O # Ww He Od ca ms oe a SL oe Sp) me Es eS LOO OOMMONOC CE EKNOHNNNNNNE  OUMMUAMANMMMAZRAWUHaUVOON U em HAAA 
He We &F & UO *F HH DB = + EO * 
ett & * HH FH # t+ * OU OU” % 
+ + A Ga # WM et % = % 
ae *+ O DD # @ + 23H * « E20 % 
14 + EB HZ tH «f *# YO * FB AEN Ba 
E44 % = + % * ow * 
“net # Oo +t & % A, * Sd 
mat % UO * % 79] * Me Me 
Oe % . % % " * BU HO # 
aa % 4 + + + “Se me ~ 
% % % al + % * AM Am +# io - 
% % a % * % 6 - -_ 
t+ J % & + << & % % % * %Yteeeweweweweve ee wo 2 © © & & ~ oe ee © ® eereereve ct oe fue Ex oe eewewevew 
% + + = # + % 4% + # wo ~ XK#OUWDNTOMONEC Notwov oOo SOOCOCOCSSSO COROOWOOR Hem O SOR moe COCCO 
% + + Et % et &£ FO SPP FOOMMMMMMIAMNWM DDOCOW - COOhMOOSO COHMOOMTOU>SFHHEHOOe MOM #OCOCOCOC0O 
* + <— + * % HO VO # OFANNNNANNANRN  feereen © CONMNOOCO fer meOoOsrsOrmmt 1 § }OOOe & Olim| COOe @ « & & 
+ % am +t * + OTF AE ££ KE KODOCOCOCOOOCONANNSG So DDOVENT QOMWOEMNMONAHK FHF COCO DPOREH VUOS ddd eg OS De 
% *% oO * % OD AW #ewvexwxeewewwzeezwen On he wwe NO MM OOro »orm Wye see ew ao cewerwres —ewwrww'’s © © &- Je ews © ROO OOO 
4 mf = i - of = a Ht PS DS DS DS Dd DS Dd bd DS Dd Dd we DS BS Bd Bd BS SFM) OM MN NO ONG SONI ME ON f Dd DS Bg Bd DK De Bg Bd Dd Dg eg BS DS () Dt ca a, a oa ck, oa DS SL) LL) Dd et at OC 
© % 
* * Oa % % +H 
+ % % % * Me He #& 
*% % % * + HO HO Ft DD DO DP OP PPO PDP PPP DP DPDDDDPDDPDDPDPPDDPDPDDPDPPp 
% & % % % alee aie FE DOSS OS SOO DAD OAOSOOANAION OAD OM ODONOODOAAIODAOHOMIADAPOIAOOOOONOOWOAINOOWOIOIOW) WU VUUUUUUUUUUUUUUUUUUUUU 
: . . 7 . Am Ay % OR PAAR RAR APPA Ree ANA AA Ae MARMARA MMM MAM MAMMA MMAS Aa AAR AAA ARAneAaAAAaR 
+ % % % * % a AQ & = = EU) RIE OTS = 
% % % Sa + % 9 zs Re Bowe N ua) 7.) BOW HH & MeN ~ > ZBONBWY 
* * * % % * er? 2] Act=ZagmmMmonun bt xq fe] Pe MeOH we © «Med HE LIE fea) MS Hate OM 
% % % % * H#OBONHMNAZSRHHw<e ct PO Be & MHHee kK HOBSMOMAO MZOmHDE Mant eo Nat AG GawmhywH 
# % % % * FOmNHHOOQAcOAMMAHUA cay Oma =&@ H22DAMORSS DCoHWOAmEt SYM SOP eh Mosse WO HEA Oleing 
% * Sd * *% e+ THOCUBBEAOUDVVAHOOHLDS VY GHHORIMS§RSROUOKRHGHODNNOMRPH tol. HOH 2h) Se OEE OO A240 >> 
* % % % * HENGE OCCA AONnHOOG2SYU OM2 Wr BAHAI EH > BY eID HON ENG OS QAR JN AHO AL A em Bee lAgmy 
He TE Hae TE Se He HE He FE HE Oe EE He HE EE He EE Se HEE He EE HEE He HO OINNOOOUH OU U Fe Oi 0) RO 0 0) 0 Oe OR et MH OO ERMA UOOO ame ARAHAAA 
POP ECMO COTE 
Ooooeeo 
Qooeo0oe 
COooooo 
Coooocoe 
oooooo 
oooooo 
Oooecoo 
folelelel ela) 
Ooooeooeo 
fn) = COooo°oo 
Bas ey olelelela| eo) 
- Ne] Ooocoo 
Bre 1) OQooeo°0oo 


PFOUNDCOODOOO POOLrorcooceceS 
mMONnKOSCOCoOoO BOASCCOCOCOCOe 
MO LDOOOOQOOOWIMNOOOCOSOOSCSOSCOO 
BOF KPOOOCCOOCONMHONDOUOOCOCCSOOO 


DVUODNSOMOHMADNGTFOOAMNEKOCOCAAP VECO FP ADO EHH KMONMDNOCOCCOCOCOOFOCOhOOWSO ty Oe YRONAFOUrDUNONTODO at hI 
ODHNMMWWIM FW CLOOCOMOCOCOCONT OCCT FP COFK KK NOOK OOCOCOCMOO SO OCOCOhOOMOQCO COCO OC PP PRK KER NNNNAMM Taw 
DEANANNANNAAN SOT FE eENOOCOQOCOCOOCOOSO OCOOSOSS SCO SSSOSSCDNANNOCOCOCOS beh COPFDDHDDDDDDDDDODDDDODDODDODWDOM 
FFOOOSOOO SCOSANANNS SOSOOSCSOSSSSS OSOSSOSSSSSSS DDO VENTS MNO MHOCN CESK KCK CK PCE CE Cr rere rececre 
SDOOOODO9OOS COSSDOSOSOOSOSSOSSSSSS SSS SCOSSCOSSVOSOOSSOO OSS OSS SDS OOVDOOVDODODOOCODVDDDDDDOACODCDD00 
CODDOOSOSOSSS OSOSSSSO OCOSOSOSOSOSSSSSS SSS SSS SSOSSSSOSSOOSDOOWDOSCOOOSSOVOODDOSBDDOCDDVDODODOCOD0D000 


PAGE O2A 


CORP 1976 


755104 


EC= 


16 35220 


PN= 


SYSTEM TEST SUPERVISOR 


D3410 ~---- 


PAGE 02 


CORP 1976 


755104 


EC= 


16 35220 


PN= 


SYSTEM TEST SUPERVISOR 


D3410 ----- 


COPYRIGHT IBM 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


COPYRIGHT IBM 


STAHT SOURCE STATEMENT 


LOCTR OBJECT TEXT 


OO1A77 


ia) 
(oe) om 
o iow 
wa Qu x 
i) Cc o) Yi 
Om acs im < < wa Wo oo) Cc < Es 179) 
ie) mow © O ‘@) O a Oz pe} OU bad [<>] 
mao moe mm © © © (oad Ow mo i.) CO eo 
— eae ye a 2) «x — | — O & — — HO 
AM mA, rH RE e & es) m o w fea) qe m2 = ff Qf a [o9) a MA 
ro) ~Q ro = H 4 wn Yn 7) eH me Ao = o a «t 
MQ GArvre HO Om ~m = ff = = 4 [oa ro) a NA azmhw~ -l «<x mG <p] i A 
HO HKeOO =z OA eH oO oO oO oO ow PHHRHEE WOCe be ee HO 4 2O 
ee 2 eh bh Quad Ee 2 Ow is © <x & [e) oO CG a] m oO H20H222 Accm <> =z mes O&O Ce WM 
Of Nabe rH Oo n a) nn Ee HE WME nn NHN = HOUSE OnE ag OME x= = > 
Ux o2zO0 9) aap Oo HW oO HH Bw a) as) Oz une MH Ome ids) Oem Mz MY OHAN HOC HOCO UNZO HU 2 wh & CO =xTm & 
CO MHO Mn wy a an eH OC WH & wn nN oo oon FAO HM Ne wn NH WO H NHORM NnNomnNnamaoaaAa Om BNRHE coisa) U OU « 
OU NHROUOR WHO ff meme WM OO =& Mm cee > = = EGO a= = = = mu ESOQUOGm PmaNn at Du HEmUO <hO me COm>O Om & 
eG RD ©O FW Om & & © =a BH 2B = fe nN =) = 2p) nm AB = CO BMH MM A Zz fmm He «x 4 << W? 
= Ry Une Am@em A -@ hehe A D> oO WM Oh ey mW mAh Hh Bm fy mw OAs MS mwnNhO <NEZe Chef, rMiQhO = UW) Ba Oo Am 
HO BNO OOKA A We MWOZ A m& WM OO & © oO Om Onto EO Of (jo) OR «oO Be Onpoda H HetORnOOAR mOO0O0O BAB fF & Hat © = mim 
Ox OS AQ eoOrkh ZA f& A He & NN Aw ie] [ow [ex [ex op) =a NSZEHZARSZAS Maes rHOhH MH E 7) = 2) 
WwW BNW > x oamh, a wm EAZOARAGSUSHAIW wn ma NEN WM na ep) na mM mz ORNHtH<cet ee FHNMNN FW MS SMNSZHSNSeH <= < CU 
nM HH MH www OD io) FeO OCOOHMOZO ONOKMH YN py =) WAN BW Na uw YnNO HM NONRMNH BH2emz SEE UNMNHN SB WZO OCMmOnm~=zmNM Yn Swe 
Mm fea & ABHRBHNONMZ <e OO YR fx FQ i BIH) ica leat fx Be ei ANDY FR Nee r>PURnZEE <hww Ce HS =& Mary << ZH 
Gm mmOUphR THAR ™ mh Roe esi Of OR Oh MOM H mem & Me mM RM Ake BROS ARP OCORNMmMUOOHNR SkwHRakm aO & Hse © 
AQP HCO > BWA be —<he NAB BHAPHRHUOHORHOAH OAM APH A APHOH APH AH APH AF CHART PNR NMHONUULHNARAP HE RHRHUHOHAU A> e 
RAANDHA NM ae mwOPrer Dt Br HGEAO OC 2 WW H AM AM AMM AMAN AM AMM AM ANMMAMAN BS ANANHNs™ > KMARAMN WH Ww & AM AN 2 2M 
Ke OMetm& SE NOMaGtOUTBaTY aeUSSCHAOCeOoMocH eet et RO Rees Tee SO SK EEO Get SN NO SHR aS eee CeO e— ZOTOaZso 
2 mm Ob ie] ©) OMB = O VO UO YU OR HU HO BO BO BU BHO B&O e Rm OU A UNE HR HHH cae) O UO O YU fam ft) OU 
MODOWN PHEBzAM HHHSAW wea ZOD SHSHSHSHSOMASHWSHOWMSHMHOP SHAMS SHSM ADDHSMOOHDAZS MHZ ZZZZZEQQARADP SAM SHSHSZHSZAM ADDPZzZZaAszz 
Sm om UD Sm met 4 Doe et Et ed bed) et Se eh 0) Oe oe) ce et OD) et Ym 0 et 0 et me ds 0 a) ee ee ie ee 
OCONNOOCRNMMOODP ZZ MPDMNOCOCOCRR RARER eERaMORMOMMOORMOZONMODRMOORRMONRMOONZONAAMONROZNHNORMZORAAAHAWWOOCOONGReORAaHaMaACO ONmMDmDOmam 
RAHN ANYHOW OOM MRO AERO OAH MOMS eM SOE OMB HARM SOOT SMO SOWA MEN HAA ORO MOMMA AON SOMO ONE VAR Oeme.moM 
aH Sal & & a = 
& e << & eH < —< < < e * * Ee <— ee 
tant} <— Ht «tf < uo x eH & ES a < = — HH - < 
N Be & HH NN H & =) MEH n ann nN NN EH CG Hees Be WM H Ae Be ei 
+ ~_ nN «e N A NH 9) <= on ia) OR ee nH io) WAHAMHHN | me MH AA WN 
a & = Be HH HH WN E& ce e Oe 2p) On i?2) ON E+ BHOHAARA Oo N eH WM & cQ He HR 
ca ~ ie) nn wn + WH op) wn wn > We > Ul op) é~ ~~ UrTFPUErEE + nN ~+ WM Mac mW 
oT ane) N fe > HH bb Yh Bee FR Bee AM Ben BN BEN > Be mG —->HSrFOooo NH ™ ei > WY be <2 Toa) one 
o wy © [om H m~ OM MN » W Pm DM DH MM Mm Pe Dee De Dam nN De ™M » NANULUO Bp a 4 ep) »e 1 wp m ON 
I~ oe ~— = N - Db - & . Os OF OHA es OG OH CAH Of CAHR& MOH Gm Wes ne 2 ~ OF& WUE, erat e >i 
Om oome N & >e Ne & YN HB AOR Am BWM RAH BH M™— ORM BAH BH BAM — HOW &§ WH H GOH PFREO OAT HEH SeHBOaAwneE a Ee ~ 
eH = Ey ee Wat BGANN RAKKTALAE™ Br NHN Ve was eo wat WO i MQ wat Mem OOM KH SHH DD USMS S&S Ow BN GYHOMOHOE Me = ee 
TM &F RIOHNOG Mel HSM aAOe © = OONOMRSZ2 MARK ORNAAMOMAWA © NOSADMSHNRKSHINNSZO © FMNON A HZ He ESSEe Sw Gs MH weeMOZOMOOR + ar Oo wAaA e 
MOM ~aAHwOAG ee Ome ow eh 8 8 UU EUS DHHUMRWOUDCRMDOMEDPORH OCOHDORHD eH be ARN eH RAMOOHH ee HH BEHROOCOCOZEZEZOHYO CHP EHR eWHSOH-OD Ueto 
BHHONN MA MNMINOH 8 OZ ZOSMNS BNP NGO UOOCRUHNUSPN USP RNUPDHEUUNU> UNYUUNUPS UP DHOAOHUNDSHNH O@PHUUUGRMUUDOHH MNZMOUCQ00 NNO HHS mwMMH 
SUAHMRGAENAWESOBR SOSA SOHAe OSE ARAMA HHNONNHANNAANNMODONANHAANNANNAAWODHHON HORDES HWAtR ee GCHNNOMDONDRHRSRSHANE eH ONMZUG& 
A rnd fd 0 OO 89 0 Bt SHR HN MOMON NRE BSHEHHEOHHEOR OO SOHO OHWESOWEODNAWHORNABZNBHACNUMNRHANRNNHHELAOAG BHR OMNHE~"SBHOZDHN™t 
(aa | ma oe | ke H eH eH 
N hd Bey = = ie = = = = = Nw a 
eater) NSH Re Or HHH HH CR OR KOR OCONEE COEN Were eer OBsdc ce FO ASH SR SECO OS OR UY 
Phb Pb bh Osh OPE MOMM ON> > BOBOCRFOPFOBO FON PM SPM FPPrrP FPO PPM PO SFPEPOPrP FOPSE Se r>r>zZeZ PPP b>>E>E>PS>r>> EPPNZOEBOEROSP SSP > =F EDP «cc 
SEN WTSCUMS NS eV BSH Ve AV ce eS OhPVSeVSOHeQHOOQTeVLeGHVSVOVNZTLONYVSGVLLeSFSEAHBLTATBMNOQHy MALT NSOQHNHTBLTBLTUNSBTEQBNFVETPVHRP HM HEEBEZDESNMNOMCZAr 
Qu Qu 
e HW ce © He 
Q Q Iw - GN ~*~ ive) (oe) nn - N - UO O & ~ WO ww 
= = mz oO i) io) fo) o>) oO = - fr] Fx —< < op) io) mU « 
ie) fy Are i@s) és) wo ié) 14) o o wo poms Feno] am 1] © .&] H He Se «f 
f=) a <x G4 wn ep) wn wn n wn WY op) nM Oo io) e NY Ww) NO Be A 
a = Om = = = = = = = = nw zm = o) = 4 = eS 
Pee fey wo wR # wa w ww wR w# # rie # # A 4 & He wh # 
MATNOEDNHAOEAMATNOF DHAOCTCAMANOP DOSCNMANOM DHOTKNAM FNUOS DNASE NM FNOP DWH TAM AMNOP DOCNMAMOPLDHOSCANMANOP DHOSCACNMANOPHOCNQMFMNCOEDHAOCLCAMINMOFOS 
DWWD TIN LA. OW WOW OW DOOD EEE EME KE ODD DDDDDDADAVHANNAKAAKHAHOCO OCC 90 O90 000 CFS CSF FEE FS EKNNANANAANNANAANMMOAMMMNNNMNNM Ss FIPAPAPAPTTAMHMMNMMNMMNMMNMNOWOwoOOoowoowr 
AMNMMAMMNMMMAMMMMMMNAMMMNAMMHAMMMANMNMMMAMMMAMMMNHMMMMNNMMNNMNMNsatarsestssasrtassvsstsssssItsasIstsIsIIsstsseIsIIsIVssssssss VIIa TI ssIsssIsIIT IVs TITS 
fo) oo fo hlUwOlUO zrOo UD OMDMO wo ao COCO c£tO «do Oo UO CNOAND worvo oOo Oo O&O Oo 
Fry oo.UmDmWmlmUCUCDUCO eo FO FTO N No wonwuoo Fo DDO ON WEFmmumm nN o Oo © oa Oo 
wo oT Oo Oo FN ZO <£O a&aO «ct Ce SS a N « NONNANNANN We oO fF ON Oo Oo 
1) rN @- oOo oO esr FN eS er —O eer OO 3-0 weno ©". = Orocoo = =- © Oo ar N 
MOQ NaewNo ~ N Ot 2s SFHANZORKNS ANF ANAS NNN NF ANAS NSF NINN Cat NINN FSS CONDTIO ZFAND N sz +s Ft BAO oF StUO 
ODO Otte © io) Com mM OAAmwuasroam am amma amg Am amm am AaAmnmMmmaAA wm AMANM maMN UdUYUDU NAA fea) ma MQM OM «emma om ANHNO 
OD OOOO © © COD © DADRDORMADD DODO DMD DOO DD DOD DD DBDODDOD MD DODOAOODD DY WMWDMMOMOD <«<OOo Q oD DMD DODOD OD DNO 
Fer OTFerr () = Cm I nee em seek weal mee me cel ee oe ee cee oe ee ee ee ee eel ed 5 ee ee coed Ded ee ee ee, wel oe eh ed ee oe ce ee el el oe eh ed TST FTF S|§ Ferre =~ FF OF TET" OO OK" OO 
OQTENDOTO RE FANON BATEHN CCN COOANMNMDNOND MONO QMDAAPOCOA co tFPOUCALODAGD A MODASTFONMCOVMSAPOOCetVGCVUVUYUVUPCOSTFOTACOQOAMALDAADDIANUMVUAONN 
ONE LOANS € TODO MAN HK OOO HOOD FONSTNENDNONANDIONNAMNANAMNANANANNNODMANAN FANN ENNONAANNNS ONE ANNNOOOOLANANNNONANNANS RODENT NONDCOPTONTONONO ca 
UP OM OOMND VU ANOE FHOMCONRN BOUDONONG £O LO ADOSCOOCOOO DOOD OMAP GOSS SOSODOGDOOSCODOMPRODONCHM MND UAODNDDODDDDOO OH NCOhTDOONODNONAENNEODDODOADR, 
WOPOUDTAOPK™ YVOCOKE FrOONodOUNVFrter FOTO TOVUS AM SINHAOAMNSPPONSANSOsrMN ASIAINFO sATPOOAK SOUP TPFOOVOONODSVUOQNDOVsrrrOMOoOVTsr se TProvwwmarToywrANzrooNn 
YOTMOAAINDAORINAO AONON TOO cUNOCS LON CLM TODNOUNS COND ATOVUSCTODAAPOUNDECOVUORS LHINADAOO CLNNADUMOOUNDATPOUNGS LZORNeOOUMAYOOUNNY ZHOF eUNO < 
DOE PETE NAAAANMMOMMOAMNMN A SIPS ATANMNNHNOOWOP LES DODDAND Kat at CM OQ OYVUYVUVOARARAA hh HODO CE EK TNNNAAMMMMMSSFNMMOOUOPEE EE ODDDDODANAANcCeccagQonnooN 
YOUUQUYVYVYV YUUYUNUYUUUUUUYQUUVVUOUVUUUUVOUVVOUULUUUUUOUQUOVOUUUUUNUUUUUNUUUURaARaRAARARAARAAANRAaARAARAARAAARAAARARAARMAARAAARgAAARAARAAgAAAAAA 
Deh eee tee ed eh ceed noth seer me mee cee cee peel cel oe er ed mee ee ee, eh cee er cel ee ee el ee co a ee ce me cee eet mel oe ce ee me mi se eed me mee el oe er ee se ee eth el eh mee ee el cee eh eet ee el ce ee wee ee eh ee eel cel, oe em ol meee ee em el et ee nee ee et ee ee ee se me el seth el eh ee eh ce a ee ee ee ee oe ek et ee oh oe ek el 
DO DDO CDO CO DOC SOO SCO OCSCOSOSO CO DCOOSO CSCS COSCO SSO DOSOSDDTDOD SVD DDO ODDO ODO GD DOS CSCS SSDODSCSOSCDOOSOSCO SDD OOO DOSOODCO DSO SSOSCD OSS SOO SCOSOSO 9 OSSSOCBOOOOOOoO0ooO 


DODO CD OCD OOO DOSOSCOSOSCSMSOS SO SCSSSODAPD SO SOO SSSSSGOSSOSTO OOO OSDOSOSTODON SOOO SSO SOSCSSSSSSSSSSSD SOS SCDW DOOD SOTO OOSCSOSOSOSSSDSOS STOO OOS SVOSOSSOSOSOOOOOOCoOoOoe 


A 
= e = 
a a= 
e i=) fz] ad 
~ = 4 m 
[ow i=) me ro ac wa 
& io) on << 4 ©) 
z= A oO G4 fx} «x ae uy fz] 2) 
m ax EH fel moO fx a | =) 
We Q U iow) me Zz. = m m m 
WNW fs Hh < a «x mm io) wo eH << at 
0 Ie E+ a am as ) mS o) o) or = are ae 
me) e = a z= Qu Sp) & i & 4 fea] 
Zino uw NN Ww i=) < SO oO Y >o < oO > «<x av) mo fevered Fp) E (0 fx] > fa =O aA 
TOAMMNUHM NNWMNN Ne Oo ZO Be BH eR fx ce BU Be iss) <ke UO ee op) UN >< wae Be pl 
OemMmnn WHA NR, O <anm ice eH ow Ure = 2H <u & NA tH UD wR 4 fo <3) AAAE zm 
MM mhomm WSs a @ >O mm Ha a oO & Da Ow » = A <x< AOD Orx<mUu; = NA bP mam o> be 
OMY MMR HAMOARmMmO WM MM WUNO eat) ZzOH a OH H O-2 bY GO Ore mG mie fey NQaAQCa NA aH= Mm Ort 
BM RAOAGRARAAMALU A PP OF BH @ He <m NA = UnHm AHNYU uy rH O WD fe Aub oO YN ARE SGHNnA << = Ne oe) 
SCAND HRtOcge EO CO HH Math V0 0 0 FF Y w= ke i mei rw ee o Oo VU N WE <¢ Gy OPRIx«m wD HN OR & 
QmMiteite =2<a_aH OF HH AMM <0 SmAmO WMH Re OO MAH HH BAR (e) wOcH wm & Ei at al onl 8) Rx ep) mw=@m HORM >O HH A 
I i 09 Am BHnwa MN moO Oa Sq AO oe & Be & NS=s = AS fu OoOUzZ RFR & Aa wz OG SG BSeQ AQ HAwMOae QA Ze FH 
NoOonNH fq =H BMOgdgORCOn MOUs UONMZH ae OOD AHH OUnRWAO OOM GHD H Amol O DEOU AHMAR AAHAOCEHawH Ac HO H 
bam 9872 +1 RPARAAERGHU Mm Mam POO HeMmam 2O oO a HO ORG fea] 0D AAO B@ SBZOHBG OC OHRHONAZAeN AAazt DO OC H 1) 
MOOORAZOAZZGH OCObPeEMOONW BZMUORHBWHO HO Ym HM DOG Meets ANH ZO WH BORPMNHO @ UNSMAtHHE SHO WN2acmem mao BH WM > 
= — BBBwACQeiaa MH EM MaetNQ Sm eo 2S HOM =F mou sq ct QUBHM NNW HHA O «=z = = & Ha> CONN BHOZM eu = >< OU] 
Obra aes SES WOM OHNH BH HH Am me fF & eH OU sH la wm Gm A He O moO FQ 644 © fh C#OHOr, = FR WMO Aa 
ARI HOSE UH wmwomOH ASR NU BORA BHO O FHS HODRH HRMmAkm _«¢@woO HDRmNOCHm AYUOHWOHMm YOn mM OCODMGaEa Hk zz mm UO 
HAHEZBUSCrPOCOUrNA AOFH NNON CHRAHP PP MPrPHA Anh & NNMNEN BZ AHO 4H WOm MM BHMO HH cP Ae RKORHSZNNHMNHRAH CO «es AAS>H 
DO DCOOCORPUNVLUPU eH & WMH U«a« mPumk MH Ac ~e Ne ah Ar [e<] MM F HOW NHN MP BH Ss OCAGA HAAZOe =z + OO ARN 
PAMHOUDWN MY NROMAMcs@rs YRMTOM Al HHA T ONTO AoA Mat Mm HwOo eyo SwomrmmO TMC khMH fcapeod ) cab at sfooleed a°o he 1opoorcot @ pends Feo] reek oT 4 
me DAMM WM GAO UVOHO! BO AH URHHO UUMD H OW WM UO @tUOH UL UBD © cD HRY WOO «- UO HA AD eB UO O YO O BIE 
ASEAN Aes Zee DAS SZ ZORSS FOMUBzMWAZMOAMWZOAASZOASZSZase SZQKOZH D2 ZB AWMABZA A ZONA AzBHeaezOAazWaAbDsz 
Na P>>bPOOOCOPOeUN cae ONE HW AMHR NHH eet ee OM EHS eat OP eee Htc Ecc SES eH 00 0) SH eet de ec ee Re et Oe a a Ea > 
rita ae MM HOPZRORmA<KMOZNEDNNSTNNMRMOOMEARODNHODRZOZK<KGOORRNO RED EmMOMOGRZDNEDAAmNMOZOMOMONMROOKORRARMHEaDHmOONO 
- HONNNNNNNNNNN ANAM GOO OS HHO ANCHO OOOO KOO SOO AHNOAUOM OAM M MMe AHORHUHMMNAAGHHAOANANOANEAcHOMAMMOMMMeAHA 
fx] 
Qu 
es > = & x] % fH 
e 
- - = Z Zz, oS) am N oO N 
= i UNNEM +* Fx % ox, OO OnAmes+ < mm 
[o2) is) BcAOnm xx wo CO ORMAH BE io) _ ~~ 
QQ aA QOonemyH 0G OO Om Grebo mA, wo (e) os) EX ~ N z 
e FrPOOCOR#AKse ROH Oa Om AMUN? A> MN (o) mo Ow O wm & fon) tN - fr] 
> PMmUOUUHRAHAHRNHRE é mm Ay Ge HOO BH mom a8) G Mm Ay om 0 MN 2m Mm YU Wm Wm ea fan) £2 N 
e z AMaene CQO WE foi ue HO O MMRN UA aN GE Pawel) + NY =e wan G@ © = << am & at ste Bw ww [ow es 
wu) - A WNWNNst BSPCTHS « . HO BH BHO ee PSH BOG -— & BO GS & HO B40 se Om Ob Mey = ZB CS GH Mem we sz e lon 
* D id Se ee HIONOODTM> Bem nOmM WM = MOHAN We AOew N es AMmMNN es G&G WO NOs N GRO CORR g— AAR MM ™ el A» Os Pw N OG 
“=z M1 BOK WOK MOG Eewz Mater Hc ec f SEEK MMNMO NSH NTO NMMABH COMO AOROGeE a) KMEM AMG AazcO«amMrsGs Aesresas Be st 
o 7" m e« PeMNHA WY © HWEOnHNOLO wWOKANHRHSewDO Sr ee REI OS 8 ARH ee HOR Rt HMR a © HH ZOMO ED RMAMWANAMYAGHeReCmH & 
CAT CAT CQ ZUWRAAHEA RR HOUOMUOUOQD WOH MAMOBROKCE GSAS Men te Te eRe SS GAH AOZ wm BeOS 8 ew ee 8) OO a aS ae Se ee ee 
oEGum omm™ OMNHOEEZEZVARARUMOK MO ee CR SWHOHOGE YN GMHAQNAQHAHO whe OR MANHKHHNAQHAGBOMMOCRABROKMHAOM «© MPRKMMS = SO A OMO Rs O20 40 Soe 
© Oe ew = On & © OM SE OOOP OHH SHEEN EGHOOSKOOS HAAN A HME SHOSHONE BRK Se SHSSTHOSMOS AHEM SOME OC GH SGN BEM eos SS Se eee eee ee 
pene oC) PA EE pe DEE 1) IO, U UO OHH 1 BRO AON RU O Ci HO RI BRO OHO ZO A RN 1 DE BO PO eB EP HH HH EO oO 
z z z 4 z 
/ = ee = rice 4 jas Bree pases See = a HoH HH & Mem Sauna teaeos eae OSE aoe SH wee ORHS 
e Oe EO ONE Ye HH SG al = eI 
UdOULRLUUA See ee Db Oe al ee PROMNPE>P>Prrp Pr MOM POP>> sz SPMOPN>sEe Seu a RBMpNBOLS> Eh UMP MO>x>AID ERE PrP Or>O MOM Mma dh 
De OOO RAO KZN SESEDSETETSE TN HOTH AOD eH eeSBENBEH Toy Hey Sek PE eCOAedEDZOINSEDNKNVUMSHUNLNNY CENA SKE NEVES KHER AE IHN) «x 
= fx - Oo - 
am z z rN Mm - foe) BHam~ Ww o : =e 2 6 = = fs 
Y — Ww Aw Bw 1s} <3] an oe A ee S2 = 
= he Pa Es = < a A A A J | Za wel fl a wl mo J A oo & mG = 
14s) i) mn z «. op Qa A A A a a HHeQ A A A A Qu aA - O oO 1S) = 
79] wn | lon] (o) (o} > H AH eH eH eS H On WH H HH fH aa [e) aq @ =z oO 
= = ww Y — fp) A RF RH G&G wF #4 maw WF A wR 159) wR | AQ A e <3) 
eAMAWw DHOK AMS NOM ODNOKAMSNOKLDNOKAMSMNOLDHOK NINE DHNOKAMTNOMLDHOKAM SNE DHOKAMANOFDHAOK AM SNOEDHOKAMNOFDHOTANSNOFOHNOEN 
SR SS SF FSS FT OUNINNNINIAININN OOD DOW DO OOF EEE ERERERODDDDDODDDAAAAADADAHSDCOOOSOSO Se HHH THK EK KANANANAAAIMM MMM MOM FST SSS IIS TO 
ANANANNAAAANANANNANANANANANNANNANNANN ANN NANANNNNNAN NNN AN ANNAN AANA NAMMAMMAMMMMMMMMAMMAMMMMMMMMAMMMAMmMMaa; AMMAMMMNM AMmAMMM 
is) i g 
= re 
mg 
~ Ww weDosrNa2oecnort tai 0 eo owomte tO ae = - Oo N 
{<3 a ODMDUYNUUATSTOALN Coo CoO ONMNNANM NO co) oO 7) oO >) 
N fon) KHDODDDAMAAMOA o=- oOo OCOMNGCM Ae fo) - ro) ro) oO 
ic} '@) AQecrecrecrecrerererere ON OF SP rorer &N QO N -) oO Oo 
zt oO ag 
i+ x 4 OODFTTONUTFONOCOr Os oo ON NoComH DO coo o oO U YY oo oo FOr + = ~ < om NOW SO cg 
z co) BOOMMMMNUIMIINUILAL) wo NN NO OCOFUOENH MO ON m- ON nam MQ ON NN Oro oO ro) - mmm noo Nn pase 
a wo EOP ANNNNANNNANND ar fo eke) Or KFNDOK NO -—-o oOo @® Oo © -® coc ceAG &- - o) Oo wom Yr & 
So S FeENOCOOCCOCOCCCOoe Sn tom one eNXN NOeere OTF WNe oe - Ff NE ch aad NOON N oO ere See CNN &— -- 
cd =z 


ZO moO NO DDDDDOOCOCODOS HR KFONODNME RO MDADUSDOR OOK DOK NO UANATONT OK AKO MK MODK NOU MOD NHNM HK MNOWOOWSCODOOMMADS NOT K Nc morass 
ns 


m= 
DOOTOO DODDDDDODOODOM OM DMO MODNOCOCSCOCDDOSCOCSCOOMEAOMNOMAMANHSGONVTSVOMD 
mMa2oOOmMsO OFDDD OOF FT IIOS POM OOK NS ORNS FR FOODS FOF INDO MNOMDOONTNOOSCWKVOKM FONQNOMNFOWVKTHOOVMOUMNUVOUMLFYUMNWOFTOONN 


00 


CO af Or CO og YOODUNDM COW UND UNO FOUND UND KOO UND OWD VON TD LYVOND A VONUD UNF WVON FUDD NNODNONOD LUVONF 00 LUDNO BUS FO EMONS ODM UNOZ OA 


a 
fo ofc oloeloolog) Or one oh ps2) NC) a Pd FD Pe Ba Bg By OOOO EE NANNAMMM ST FTFINMNMNMNNNNOGOOORERERDDDONAHAANH eat acMaNMMAMNVvVvOOUYH 
cma dt id OO QO CERO Ec a CaCO OOO OMIM OMAMANOMANNMNAtoMMMONMMOMooMOMMOMAmMAAMAMAMMMMMAMRAAMAMMAaMAMaMaAMMaMMAmAMaNAMNvYYY 
anh oath a oh ek eh FF FH PT CK CPC rrr rer rrr rrr rrr rrr. ore = 
oooo0o0oo DO00D000000000000000000000909009900990900909009000990999900099990999999999999 9999999 9 OO 8 8 oe ee eS SSssa0 

CDoOo09oo°0o DODOOO COO CO OCOOOSOOOOOOSDOSSO SSO SSOSOSOSSSOSSSASSSSSSSSSHSSSSSSSSSSSSSSSSSSSSOSESSSsO og Sg SS Geo QoS eooooeg Oo 


OD FT PT ly icy Fe Bes Pe Pes Ps Pe OOOO 


PAGE O3A 


COPYRIGHT IBM CORP 1976 


755104 


EC= 


PN=16 35220 


SYSTEH TEST SUPERVISOR 


PAGE 03 Den acre 


PN=1635220 EC=755104 
COPYRIGHT IBM CORP 1976 


SYSTEH TEST SUPERVISOR 


OBJECT TEXT 


D3410 ----- 


STAT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


STAT SOURCE STATEMENT 


LOCTR 


x WN 
oO mM 2 e 
> i) oO & Yo «ec x= a 
x z [<4 fe Hp>Om fo a 
& {e) 4 > 2 at & fx) =< 
= ” cond Mec e J N 
[oe he wm RO Oat «<<. =] > 
& oO <3) o) U os 9 5 Fx 2] > =) z oO fq 
wn [.} = f=} ee TO hk ‘o) HHO A Ww p e a 
at I] fx} UHU e Act hia > & 2 0 ica) a - 
eo 4 a = wo om =a wn =mn0 «x = WMA mmr om U | fl Fey ca) 
Oo ani © x= & yn n Net .S) PI oO B10 HOA faa) oe) a m =) m0 Eiec oO =| 
ool a] Bp He <« Mm AQ jes Toegen fee) = wUO HAA Bim. f2) AQ BHR a «a =Q Rf sen m 
~ « RmWeeH mG fy, wee HMO a MORI at oz Fay Da & a = Zz < & Pem Bee Hee 29) a 
< ee MHORM © wm PAA a.- = m4 Ome af RI > aH = z WM & PDH ZG Dem OCnecm wn e 
Hee WMNUMO oO aera A HAHO uprR 2 ACG FP NONRISAaH x OH & fu. E+ zee O, ax fx e 
See 28 Pech HM &@ NEY A wwe tome 0) 4 tl 0) a II NN OBO oO & ALU (oa) oO 2==mOhm OO ABW f= Ht fy, 
HH =z BHOOa moO my» WMDmOH M % 22 BRMOARBRzA BM We m4 < < Mee IH WA UW ny aA mo 
AXONzm HARUM) HOt hie OUZ ZRWM> MmMaADraAH © 0655 0G fe, oe, Wn E+ & a <= Oo, O «6 fe. 23 wm a 
HRA HHHOOO Bee ZBOROBHNA ww EE ae © PRY NHPOCODmaMNAD AMAQUHMA Mm WD peGiw We & z MMOH eeuO Mm OG Fe: = A 
& NetHe GG BH YF ZMOAWHNHE aq OU OW B@eUNmM HAHMmARA Oe < @ HHO rif, Lie) m= WH ©) H2Z0COO AaAr> A ox 1 bas MH 
HMOUZMONANSDHaet MOM PAt A HMR ac ee B20 a 2H eee eNO MH mee O60 fe, mh, Coo ww MN Wem HNAW ANM mk © 
MOKA UN weeded B2WNM BM O OZ Bea loge hI} MOL MEY ne OQ & Mug «<< O fo) Ozhlm man AROHQNAEHM ANH oO 2) 
<— G6 = WNRAONMNNMm WM AANA = Uz MamHO H ZHO HoH Of NPOZA UPrMAaAnNZuNm YW He z mo MHWHO Gn WW aH = am Oo 
MGEHOM MOM MmAHZO AG theme hy oO QO OBR RZhOZOMGEAHR PMO Hee WH ee eee Hh, bt Gee 4 Boa Min Hee We MMmsmU am Ura e 
NOZBANWHAKA fe BHOHRH HM ria mMHOAPOHSES BAY BHA KHUOQNDAHNA HO Him PasH <i h AH YH RK rHPAZ NN PTAORPUQ Par fa, 
“QHWMeere AOAOCZO 0 ACO NH HN ZmMM MAAQAHnMH WMAMNH OM E44) iQ at BQA> © SFR Wr PK EMNTM AM AG HN BPeAWACHAeQ WMAMANNAMNHNZ AN m& BW 
SnD HB Mate HOH TBH st HONDAS Sembee st Ewe UM GHHR et SHOE TN SMOG AUtmMm reeset aH, MWAtOUSe leech Eee USTeroma 
Hal HU UGB UO B&B UMUMOHO YO YU UR MY UNA NA VU GAG MHHHOOOUs UrmmMnAIA U U U O MOMMY we rc) Om 3 MU UO Ua 
RARMONZARAABASZPHZABRABZASZHBSHZAZAZSHRAOQPASR GM mMb= ANAS ADSZZHH 26M 20Mm OAH ZOAASAWOH SOBA BHM DHA ZtORQADARAADHZAzzZzMm 
VY|OCVQVOVN eae MM CeCHYdteatbeiata a CV Maa Teta et Het eied SP PUAHE MAH eCHOUHR Mt eS SS MNS ah SO ai OD HR mY) Ui Ee 
COMHNNMOOOP PDP ENA MOOCOmNMN GAGE mDahOONOM2ZZ ANS am OO <2 ROR RRA RONAN DP MORMDP PRP KANG PPR NmNGZHDOOCOACTZONMMOOONOOONRADPDaADmAO 
ANQAMNAOAAAMHMMMmHMO IAHR MH MMMM HHOW ea SAE AGMNAHOMOeGSOQHOAMAKONAHMMMMONNHMOMOMMOHMAMHNE YAS NAO MN AHA ARH OmMemMwv 
N Zz &4 w et 
& ids) %t + 1a) mw Oo «< 
«x oO - Fa cae] WY) <£<O & & 
2) (ee) + Riamme tt wn JM Ay 7) 
mH ~ eH =z - > WHR GA, > > Zz =, BimeH Ww Zz wn) 
\o mm Ww NN ro) aA A A —- GH ~» HOW mp ic He ae <3 ~m DRY «a i<) ~~ Mm 
few] a Fae 1°19) =) ww AA ww wo wo OY MQ eH PHO HRI a UO ms & mm mN MEd IN e <3) YW & 
» ET) wf em e~m @ wa wt SG - Ud et oe GP WNNHN UA » Leg me H . 7: a | am > ™- & »- 
Ss WB we He Best PP w a > QW BN K— wo eS EwUM ~ ee Sie OQ wen DREME MG tw wz, Aap) Nn Ha Nee mee He HE CO @ = Ee E 
Nem HE BHAWAN & BF e HOM AMPK &- KoOom » OOG % —m HOG BHHOem HM emmMm ~mMPrToo lS Saad > BH & OO 2h BMOREr HH OM Rr « Pp er As 
TM = OHNE MOUGYHMUEUDMMNUCADHOROMOMOOH « Aramrh . — > RPAZOK «a 8 SEHMONOMAN Aer We DANM2SN OMOKHem “ mUMe Fe BQ DANHMem 
BG w OMe eH MHOAWMGOD Mas eO SWS Bee mie Ale or pf = M+ CONS DBDEMYw oF SUM K MNLNGGSTOHONNWGRRONSCOMANMM Ke BQN CO DF NBD Bwe 
A™E GHEE OREO MH ot be BHHIWMOMIOO »® eNO SHH ORAN CK MHODGZUGMHORUA © OOH A 8 8D Am WO 8 WO WH OBR ZHUAQAHWMONeE He ol WOH P-E 
62M at TQQOWMDGHMAONHOOUMUNMUOMUZUBUO BHOOWDA a AH OO De MUP ONAN He- NORRIY ar OSZMHE &§ MONMGOM SHON StS WNHUOCED> »§ HOUDSENUZUUAA 
MOE SVMHOMGON MANGES SOMOS CNW MH et A Me NMS NOME MSSESe NUONMBDODSMNGOZHOSRKOA EWE AWOGAcMOMMONTHHNON D> mANNARHO 
UW 06 RIG Eee a 0 BY SRR HOM ™WR=D™DWHMOHMMOGMrmAMOOMEMNAr NM FP~MAHMOHHEANUNEUWRMNOOKHRGA~YUHO UOC MAa™~VWOHUOMSeRHHGOAG~ONRRHAHAGAaMr=ZERAO~mMHAMKa 


He a H 
Bx aa 7] = He - fa fs eH = N Das He 3 
Sze GH BBSeHeHHe oS bd St Bad He SCOR AHH BO HH c<OrmrcteOc rer BHeM le. Coie MS Eee HH 20S Bk, SEABO Beene 
PRBwiGMM PrrPmMmBRMO FM>MPNMHWOANMOM MU bPb> BEEP NASP> YY PEPE >Pr>>PPbhr>rmOPN Er BPMOMNM MPEZEMONM MESZEBEAPOOS HEPES EAPO UP>PE EP PP>PPMOOM Mm = 
RYOHO gO<eyNOUMNTceVeyAOMOGHMV aye Qy{ZoNTOc€clMNASMN YY BDSM OCLCTNMTLTMH NAR VQNNOANSHYS<e CDN te cVYUQOQSSSL ote eNOS CHYLOoONUTSENHS cy ywmMy 
7 N [2 <4 oN ~“ 
iL) eC - = ) oO - ad © m - Be & & = Bas 
oOo wo Qs oO oO fo] i=) Oo ~ © oO N ~~) =z Be a CO 
A: Aa = be 4 = x a EJ = a z - a BM ic | tome Fee] z= & 
& & eH H oa H eH t= - La! 4 wo oOo oO AA A a OO i 
oO kM wo wo wo .&) a) Oo a) i) és] 22] eS & Ooo oO © ww Oo 
eS 4 [<>] i. fs by iS io) <>] <3) $2] Oo Oo OO O © fx Fe] yg © 
WYN & m mM Q m ~ ~ One it m ma wR Oo © Ow oO oO ma Oo @ 


MDNOSCNMNOEDHOSCATMNOPDHAOSCAMSMOPDAOSCAM ANOPDHANOSCAMTMNEDAHOSCAM SINWE DNOTAM SNOOP DHOCKNM FMNOFDHOSCAM ANOLE DHOCAMIMNOFDHOKNAMIMOFDAGEANM 
DODAAAAAANANNOO 0990000 CE CFE HEE MANNNANNAN NAAM MAN MAME SF xe FTI SI STIS STTIMMMMMNMNMNMWM OOOO OO ODWOOOE EEE EEPEEE DODDDDDDDDMNAAMAAAAIAAHRCOOCO 
LDU UD UL U9 L009 9 1989.00 1.00 10.0 19 10 1011.9 10 191011010 1010019 1011010 101.910 1011.0 10119 10 10110 1010120 WL LOLOL LO WL OW DO WW DUO WW ODDO OD DU DDD OU UU DUO DWU DW UUW DOWN DUO DOO E EEE 


oO N ag wr worms wzs0O oO re wONoO & N (©) 

So © es oOo NNN NO (>) oo ONN NN ~ © 

© bed ae Oo ONC Ae (o) oo =O © —< eo 

= N - oo TOF FCT @ oo Qe =— - oO 
MY © Ooradorzo oo COO vse om MUO wec=srtUo © WPM ENOM® DMoOcUd Tetm wo (>) Orw OCoTONY Of NNN tao 
UY oOo OEMmvocooco oOo wDmDUo S&C MAM OD BMODUN © MNOUMUMOG MOUNDN OO N (>) en TNOCANN BH QAM Aoo 
Do O&O OOMeFO SO Bove Ff OOoNn OD DUeOOO WDOODODKD NOOwon eoWn ad - mowed MormMmnomd wom WA one 
=F OO FeEEANGO &- CLEAN AN Ferro CF CENTS LO SOPOT TET Neer = N Sank aah ood CORNET FE! SFE Cee CEN 


FD AD OVGCSCHOODOD OD MOCSCRADNN STEM le Nest EON ee COMO BORK TT IOOOMOME Ost LOPTOrPNAHANT 
NEADANNNOMNCONOFOANANNODNN& OOO bOO SFLOOCOHhOFMNAMOIDNNOUNANNDANFONFANNSCFOCORNON 
FRO DOOCOOSCON DONE COOCOCEFM hOPF KOPMNNADONMONE ND at NNO AODODMONS aE OOrmMmocdconoownm 
PO OQDOS POS POOTPEOUPMN SPOR SASTOOMNOP LE SrOOMOPrVerTCoOntrNcdcoDoDAPwurwosztzoreFOoOMnz0VU 


r 


DONE AANDDADDAHVOANMOSANDDMNOMKKVNLOAMEQILONANHAOSCSe 
O LKB —IFNOOS BODNMONONOO LOCOCO TOO hOMOONENONNONOAN 
DIO FrOODA UdNOMUDDDMMASMOMI NOMOMAI HF OBDDOOMDBNMO 
WAS SFPOOOWOSOSFONVWVDVDVOTFOVE DODGE TS roOmMmognnvusrwoouszronwo rw 


BBFE 


9 et MN CO Mar al UNDO UOUWO UMS aMOPT OD EUNONTO0D EUDONS DO GUO TO RCUNDANDUMNOONNWUD <cUMOW<« 
UU QV ADA DBA haODOOQOO PC KNANNNANNAMMMMNM NOM 2 Fst FTFAPMMMNMNMN OOOP LEE DODODDAAHAAD at ati of 
Beg Big Fits Pg Bog Fis Fy Bas Pg Fes Pa MOO DODODOODOOCDOODOSOOSODSODOOOOOSOSOOSSSOSSOOSSOSSODOODOOOSSOSGOSOSSOSCCOO 
ee ee ee NNN NN ANNNANNANNNANNNNANNNNANNANANANANNNANNNANANNNAANNANNANANNANANANN 
BDOVAOOOSCS DOH OOSOOSOSO OOSSS SOOSSSS OOOO SOSSOSOSSOSOSOSGOOSS OOSOOSOSSOSSOSSOSOSCOOOOSOSOSS 
DO OODQOOVOSO SOOSOSSOSSSHSSSH SCOOSOSOS SOOSOSOSOSOSSOSOSSOSOSSSSSSOOOSOOSOSOSSOCSOOSOS OOO OO9oeooO 


WN ONTO UST LBUNNDUONUD VOSFUOKUMONIDONAPONATSDOUAN 
AMA MMA ST SAPOMNMNMN NWO EEE DODDDOADOGAAHAHAD af at ef OM MOM 
freq Pde Big Bite Bitig Ging Py Fite Fae Fig Firy Sing fing Beg Pot Fig Fizay fling Fae fins fing Fizug Flag Ping Fiz Pitey Pty Fine Fay Fig Ping Fey Pray Fite Fang Fig Fir Fics fing Fes Pry Py Fig fey 
C0] CO 0 LL OE 
DODO OTOCOODODOVDDDOVOODGVDDOOOOO COSCO SOS OSD COCOOCOCCSoO 
DODO GOSCSODOCODSOOOSOSD COCO SCOSOSOSSOOOSOSOOSSOOSSCSOCSCOOS9OCOCSOOo 


0O01FC4 


ic] 
~ a, 
<M «<x 5 
Ua om . 
Ou =a A ee nN 
an} oo A < a = rea 
O ww ro) = mm ro =) H 
wn oO e oO ma . OY a 3 re) ou f= 
= x i) 6 iH e «<x woe ra hls 7) MO > we 
A 6) ba} 4 e fat & HU co) HoH > rw] My = 
Oo 10 eH OH ex Mz fe te > fq ~» Mm Bm 
DOO fm AN = Osta 6) ADOn = zz HH A I GS ec BMat ic] 
o +e) O Gt aq ZA H mrp © BOOM © Orn oa © [30] BE Ee. Meat G64 fQ + oe 
Gao mM x <, Aa aqae <— MiexmM 71 NOOO «et mM Um oe) Os Pa «< = 2 & Bel >OP> 
B3 BQ <e & HH Ge = ach] E+ = th at Yr BE a oH ro] ro) E+ MY mom wom maO 
wn & on & BS wo H B2MO OM BAe w& Som ma om Rul E40 (o) COm<mOOn ats 
> & HZ met > MAOKH Or Nm OM N&m WANMerPOm @ om 2 mh 2) =z, m UBO UB e 
& | =moO> oa Ss om E409 OrArimas mNHMSerOOKHUULGEH w® CO ORM = YW ema <a a roe) =z Ot, 
eS Ou HZMnMEO A Hawa, w ™ Wel bo O NVONMZHR NABH HORlPp muha w O UZzH GH H SBROMBVSZOW =u © 
4 = I =ZBnOom @ WH «@ AMUO HO NO BMHOHR URUHMA nno = He <3) z& AAN BoD fang SE 7 Pd pt oe 2 
an (o) vib (>) =O ph BH & HER oe =—UO $m MMAR WHR wethi < MQ MRO PM HOH HN A Ber i=] Sh xt eH = ae 
U GO > HUMOGOm HcasMUOU MR GAZAHeH HAO hs U fy at pete) Pry YF HROm 2H AQ aceate UO eb OO be Oe fe, om Py fa) 
mM &4 =) MHHOHR Eb TAGwhAHS BMNDDANMHOWA & AQ Maemo rmaRmOUWOHOHA aan CAAe «2 AH HM « fo] 2) NM OMHOHOHHO OHHO- 
& OH He 4 MAUI fe &e HH A HH HSABGO MN MO=z ih =3Oby WARM OR:00 A oh Ets AA EA oJ ZEB O OR ONB-HR O& OtQ O<z WM MmZO 
=< NH QOH AmNzRNm Mah MHmHe<Cmm OFTMUO MAGH OO KOHRZ GHA GONE HNPH Oh Qt) Niet HOO, WOnsr te, CO fey SW £ee SANA ANWeNAY 
= HM =H A ANH Oo meeMO We A MW ENOom} Om Et “se ZH OMANRMNA (oe) on wn mm wale ANH wOOmM Oo O NOM NOM MM N Ua 
+ = OD gQNAaMRE = Beek +t en < Bi HORMHORH 4 wa bee BHR MON BHHm UO<eie WH = UO BH GHHHm Awa MOORE 
= Om Rh OSI AG El fe Hee eH OREM OUM ERO HO MUNPHS BO HHGmOMm O Hh ete a AOL On BUS MRBUGMGHHR, few] aD LG mMNOmO 
GS HH OAA PHHAH Hee = Orci PHHAPOHHNH Bat cet} PMOPGMZZACAOH «ar 62 ZAP QUUNZHUPHPNAQ > Zar BH Abe HeHAHA me Pee 
% Oo MM O MOCAeGH BM HO BHOZ HW WHhOCE Yo He MNOW ANMwWARaAnH = MO MO HHOQNONAH PNM YOAMNNAAS MO KLOAUNAHOUNROAROWO WW A 
AeA MO Hehe HEURGSDHrHNmNOm MHA 


BUUMYL UND U Of UX MAW} ibe UU UY YU Om fy HUY S) U (x3 HOD BIH HOOmM YU OR om fo UO UO A 
22% 2HR  ZBZNROOQASHSZHRSASEO SHOWS DN MHDS COA SSG ZA SBAWHQYSMHMMAQORSZABSOOBAAeAWORDPANH 2S HHH SMO D HHO SAS eOOHMARHNARAHZAszOe 
ist dol fl inl ffi ee dere ot SOP ot et oe oe de ttt Or td heed lr Ol Ole fd) tt tpl te ol oot ot te eel a elspa te toll l pl @lpy +: ob ot Tob ot -f-el- 2 -f steel- tae stlel ft ot 4. Eo) 
AM GMA MMCNMMOOOOCON GRAMS G2 Dp MMOD DPANASZNNMOOOCRG2ZNRONR MAD ROGRHZNMOOCOCOCMMAMP PADMA etOONO se NUGHSZSSENMOOZNANMHMDPMODODOORPOOCODNMmDAOM 
NMMNMHMNWNDE dy BHO MOMHOOH AM eGR HHA QA AMO Hi Mec MAO eS TONSA Sse OOO HMMOMMMMNNANAHANNHON HESS IAA MmORM MMMM NHHNTSIMH SHAM MaAMAO 


T 
H 
C 
Cc 


e BH 
e < tt Et +t ON 
«x eH & « Zn + 
a) nw SmHE 
7) HHNn mes ~ SAQA DMAm mH N am 
uw nw & Zz ~ b> z= +2 C8 >@ mo am 
77) ~ mh H) w ic] NN m Ww HE Ww fy Cie PUM ki> Oe ff ~ é~ 
~ wm Wb 370 ie | wn fe Toe} 0 = 04 (aa) we UU a& <3) Bs APaANn Hh om hy % fo} mm 
wn e &=WN &—& am H mor om iG = fa GK mm oO aT) 4 ~ PamO ANRm VA Mm eDH em © OW we 
‘ HE GO, = OG eet z Are) Ze Mm MH LOM »® PeUMMEMUOUMUOM MW @ Mm Oty «8 hh PMH G&G Ae BH NGO Km ro} 
A MAY Hee eM ew HK RPM ON ON 8 ARN A Sm mawom N N ANG ee GOO Oe & b> OR AAR e HB es HY wm & BNVE> oO Ge Gf bond 
+ 6M MOH AULUMSMGHMsSM SMH GAeeRKOW «© WOM s Heo Gs SOM ™maMmm wh MO MO Se wrt NeN SEM EGO BEEZ MO MOM “QM “TEN AwHeM 
MQ eS BUM Ade DG HNMR MHMO CHOMP Rm HOR RUANMHRe MON em HAD mNONER BENGE sNeE EA sei WCOORIDWO ED QQ MNO MMOMU™ eH Wp GoOsazs™ 
BHHA HHH COR eM 8G OM MMU RGEANO KH Ome ame SEG ee 8 eM HS SE A © am 8 a MMHOMNOUNRKHODODEEMSHat EI « Om 8 Ot 8 HOR MOMOGMARAS ei ee 
BHNOHVOOH> OAHOMHMUZSUSHZUMDRA =] AHMOHN REHM OMB Heine eR MONHOMUMMAZOMBOR em HOU & MMO OGMHD PHP AMMmZOMZOA MUY OHHO WBN & 
MM BoNMNGOS Eee SS MmONHR HE CNOO KAMA ZAM OWNA SASH tS BOOMER WREWMOMDHNONM@Wes ANNANAHSZOMND ee SOE RZOAMGHHOM=ZSRBONWRNAN 
4B 4 00 9 9 0) 8 OF Ot BO Bf Bt 4 Ot HOR ONS Be BO BO BO Bt ONO OO Bh rt tt hh p05 0 Bg Bt Bt E40 IO © OU Ot Et tt Eh 0) © OT IE OO ac 
oc; 
a) fry mH bd rH H fra am H fe z z= 
+ AH WE Memo Hh HH Ree Be PORE Ee He SH HORE PHY Ree Bee Ae eet Nee Oe OOOH AEHeY Se ee eH ME 
= «<2 BOB SPPPMMHMOM MMU SOR PHAPPUPPP>U ME FENPM>PrUPPEEP>PrMl MOMNM OM PPP >> rPrr>OZ>r>PrPPPrrEPPr>rMOMM ONPES>>Berh>b>rOMNNO>” 
OCH VORHHAOHABZLCAT COVHHVKHY< eH {QTc gONQVTUNANVUNHSSOoM IAN AVN CeVOCHHOMQNNNSSO<{7y7H dehy a ygCormosueVeYVFLLTLV TLS CUNSLNHV ceo €KkTNSLecvneSwBoeHy7 7 ywwW 
N m Qu 
+ 9} eH = = SS) ra) - mM AN > - ON 
G bo OQ fe aa xz oO m- NN Mm = fo) srs w ~ wo wo wo wo foe) z m= 

ox «<x (<3) i ro] real few} + 34 2“ pd = = = xz 2 = zz = = < < «tt 

AQ a e z U U a) rs) re} m fee] is] oc am OG a CG os fare] i.) fy 

foe) wn fx] <. & =z 3 a fx] mM ca | fx] fq is FQ fx | a. 

w" 7 2) UO H H wn Ba =) eS & EH i) i) eS & & Be & et &t a) U oO Uv 


FAM FMNOPDASCAM PWOPDHOSCAUM SNOOP DHENM FNM DHOLNM SNOOP DHOSCAM FN OF DHNOLENAMFMNOE DHOSCNM FNPF DHNOK AN TNOPDHOSENAMANOE DHNOKNMANODHAOEAMIMw 
PEPE P PEEL ODD DDDADDAAAAKHAANAANGSOO SO O00 OO CCT SHEE TANANNAANANANAAMNMMMMMNONM sts SSTTTITITTONMMMNMNMNMNMMNSOWOOW0WD0OOE EEE PEELE PrOoDmDmmamaoano 
Re ea to oe 0 em on oe 2 0 2 2 oH oo 2 2 2 2 dal) eltalvel al alee) eo) fice a) el sl el gitel sl alvelal ate el ela al nl aeielelralgite| el alreltel sini siteltelralelelel sl givelelel al altel eialal elelel aisle ela ialslel eel sie elal el elalel ele] elelrales) 


So o o& & re wo eroro sro - 
oO o Oo © Ooo ite) SCONNA NO oO 
Oo - FN oo < ONG Ne © 
- oe Oo SO oo b ad BZOFrE FAN So 
za zs 7-7 JF NTONW NO Ox0oWD oO ONS bol Lead © tw cow Zao NLUSO TOON BONN VUS0o © fee) Ovo © 
«a ama mMQ mnooo zo CCD © COON Oo a) QDWDOWNO nD OOrsr NVOH MOoOAD wro fo) Lu «<< oo (=) 
fee] DoD © © Oerre Uo SCcMo®D « er So oO OOrNvde OD DDOON DOOM NODDD DOE Sd NO “oe ~ 
- FFF ORINAIN eS erFOor «© NN oO co) Ornorn CE EEO PET K OPO FE SEN N oo NN N 


UR SOND U LODOINIHNEK NA LOPNODHDUN QO CT MK HADDDK FON BONN TOO SPADOHMAOODSINK Oe MAAMANO STAT BODDMMO VC OP COS AFOCONEMNECNALNG € FO SPOT AN CAO at 
NBOAN NAN BNOCOND US FO OhON OC BODOONOANEOOQOONG ly DONNY QUNNOCONDCOCOC FT OCOMOO MANO N FE NNNCENANNOMANNONAN | O00 UOCORN FONRNNONDUCOMO fy 
COMOODODNOCOCS YVAMM COMOMOMMN UD LNDDADNAMNDADLY AADWM VO CLUOMMN HAV CODDDAMMADNDOMODODMNCOMSOAP GCDODNMNDODODOSCOM MODACO DQOMCOMOAM Dk BODRMNNOONMMRWN 
PMAPWMSEMY VOTO VSP TCOMOOQWVCOPUWOMOMOTFUMOOUQMNOEPNUP rT POON DVLA sts TPOOWOZOONMN ST TOONGVOMEPVSVAPAROK AOS TOT ATTOAASACTOOMOOOMP NAVEL NOT? Orerchor- 


ONFO0UORTOOUDND EHONAS OO LUROND CUO FD URNS BRINGS OD UNOCTOD AOU RONDO OND MONA WD EU MONAUDUOND UO PUOND MOO UOT ATO BOUNMONO DG ZHAN A0 eon tooU 
WY QBQ|ARO}’ A] ey By es a OOO OO COD FE FEO NANNANNMMOMOMN Ft 37 ATT INNMMNMIMWMOW OOP EEE DOD ODDDAOAMNHANA ead cat oad oe £0 09) 109 9) OU) OE BT Bd BD iy Fn Bits By Pe OOOO FHM EK KNNNNNN 
aoa loa eae eee eee lore lal olalotalalshatesholstcsfcaisstcal oles test alealcatcsicsicatcatcsicsiclcatsoicsl oral apcstcstcsregcaicotcaicatcstcsissicaicalCyicaicsicaicaisolotcsics icslcal shes pcolcutsstca pcs eisai ce ics ice icatcetcs[. ol. oi<s i: yc ayo] hv. Sys S eco. Sy. Shay ays Sy oy Se ESS 
Seth a cea coe cet ea ca aoe ah oath ee cee ee el a ee ce nt ae ee ee oe ca ek me ee ee eh eh el ed eh ek eh eh me el el ek el eel oe ol ee ed ae el ee ek cee eel cee ee ee net el oe cee ot ed oe oe ed a dh oe a th el ce ee el eh te ed ce el nee eh ee ee ee ee oe el el eh oh el 
DODO ODO OSOSODO SDH OSSOSGOOSOQOOOS SOS SOHO OCOD OOO SO QOSSSOSOSO SSO ODO SOSA SOSH SOOO CO ODOOSOSS OCOSOSSSGOOCOOSOOSSOSSSSSSOSOSOSOOSOOSSSSSS SOO Soo Coo o oOo oeosoo 
DODO GDDOO 90900990000 68 SCOSCSSOSOSSSOS OCS DSSS SS SOS OS SSSOSSSO OSS OSDSTO SSS SOOSCOS SD DOO OOSOSOOSSSDSSDOSDOSDGOOOOSOSOSHOOSOSSDOSOSOSOSSOSOSOSOSOS so coooo0o002 


COOCCOCTCOODOSCOOCCOCCCOoCoooo 
CODTOSCOOCSCOOSOOCCOCCOCSCOOCOOOooce 
ABNOR NNDDNMNNNNNNNANNNNNN NN 
DOOOCOOGCOCOOCSCOCCOOOCSCOCOCOooOOooO 
SCHAREAMmmMOOHDUOOOQNNDWODWHOWw> 
COP ONENVOMNDEOQNDOHNROANLSHN OF 


SYSTEM TEST SUPERVISOR PN=1635220 EC=755104 PAGE O04 


D3410 ----- SYSTEM TEST SUPERVISOR PN=1635220 EC=755104 PAGE OUA 
OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
1A 08 704 JINN S$MSGO8BR BRANCH IF TO LARGE E ME ATTRIBUTES AND REFERENCES 
4 B10 705 TBT (R3 SIXTEEN) IS THIS DEV ASSIGNED DECLARED NG 
1202 706 JON INDNEW BRANCH IF YES 0 RO. ABSOLUTE. HEX VALUE (00000000) 
O30A 707 ABI TEN, R3 BUMP R3 527 5 36 539 542 547 561 567 570 576 
5 0BC 708 J GCObENT1 BRANCH 577 665 681 #4689 #2716 
O30A 709 FINDNEW ABI TEN, R3 BOMP R3 0 eR. ABSOLUTE. HEX VALUE(00000001) 
4B10 710 TBT (Bae SIXTEEN) TEST ASSIGNED BIT 292 293 339 340 368 369 372 450 481 
12FD 711 JON NDWEW BRANCH IF YE 486 501 542 577 590 591 637 6 38 639 
50B8 712 J GOODENT1 BRANCH 647 651 657 657 662 664 673 678 717 
GO2ZE 2104 0001 713 $MSGO8BR SWI ONE, PROGACT DECREMENT PROG ACTIVE INDICATOR 718 
4GO2E 188A 0001 714 SWI ONE, PROGACTV DECREMENT PROG ACTIVE COUNTER 0 R2. ABSOLUTE. HEX VALUE (90009902) 
6802 1CC8 715 B $MSGO8 BRANCH 285 286 322 323 336 347 356 357 364 
GO24 20DC 716 $PRNT MVA LIST, RO LOAD ADDRESS OF ADDRESS VECTOR 364 364 364 365 366 366 375 376 376 
6 908 O25E dl NVA COHPRNT, Rt LOAD ADDRESS OF COMMON PRINT ROUTINE 376 376 377 450 458 459 460 496 497 
498 515 523 44 54 6 
18D4 719 LIST DC A $ipr) PRINT ROUTINE ADDRESS VECTOR 599 666 666 669 672 673 680 682 688 
18E4 720 DC A(S$HDR1 689 690 697 699 
190E 721 DC A (LINE1 0 -R3. ABSOLUTE. HEX VALUE (00000003) 
1938 722 DC A(S$HDR2 284 288 291 293 301 309 313 321 322 
1962 723 DC A (LINE2 323 325 375 325 325 326 327 327 327 
19E2 724 DC A(STPGM 327 328 4O2 420 429 W4us 484 48s5s 486 
19F0 725 DC A(PGMCT 488 490 492 504 506 507 512 515 515 
1A00 726 DC A(PGMC1 515 518 521 523 523 524 529 530 533 
727 END D3410 535 538 541 543 549 559 564 566 569 
572 573 606 607 610 612 614 616 618 
621 628 631 634 648 665 667 670 675 
681 682 695 703 705 707 709 710 
0 ~R4. ABSOLUTE. HEX ALUE (00000004) 
297 298 299 329 330 331 332 337 338 
342 344 346 349 352 353 363 368 377 
482 Woy 508 513 516 522 596 601 
0 -R5. ABSOLUTE. HEX VALUE (90000005) 
262 262 306 307 313 317 318 320 361 
361 467 468 483 493 496 496 496 509 
510 518 519 521 528 531 579 580 583 
Pon ce 589 590 595 597 597 597 600 
-R6. ABSOLUTE. HEX VALUE (00009006) 
578 581 581 584 S87 588 
~R7. ABSOLUTE. HEX VALUE (90000007) 
260 264 266 290 335 350 354 356 358 
367 367 371 374 403 421 427 428 G31 
W4yy 4ug 461 470 473 520 S44 558 571 
572 574 575 576 585 586 622 651 658 
659 661 677 679 6 86 691 694 
473 SBDA ADDRESS. HEX LOCATION(00001DD4) IN CSECT(D3410 ) LENGTH (2) 
97 $DEVPT ADDRESS. HEX LOCATON (OOOO 1B 08) IN CSECT (D3410 ) LENGTH(2) 
248 277 81 436 553 57 643 646 
178 SHDR ADDRESS. HEX LOCATION(000018D4) IN CSECT(D3410 ) LENGTH(14) 
180 SHDR1 EDURESS: HEX LOCATION (000018E4) IN CSECT(D3410 ) LENGTH(40) 
184 SHDR2 ADDRESS. HEX LOCATION (00001938) IN CSECT(D3410 ) LENGTH (40) 
141 SHTOE ADDRESS. HEX LOCATION(0000188C) IN CSECT (D3410 ) LENGTH (2) 
142 $HTOE1 Ree LOCATION (0000188E) IN CSECT(D3410 ) LENGTH (2) 
284 $IDLE ADDRESS. HEX LOCATION (00001B48) IN CSECT(D3410 ) LENGTH (4) 
296 SIDLE1 ADDRESS. HEX _LOCATION(00001B6A) IN CSECT(D3410 ) LENGTH (2) 
273 28 390 423 499 93 602 702 
321 $IDLE10 ADDPESS. HEX LOCATION(QOOO1BBA) IN CSECT(D3410 ) LENGTH (2) 
319 SIDLE11 ee HEX LOCATION (00001BB6) IN CSECT(D3410 ) LENGTH (2) 
288 $IDLE2 ADDRESS. HEX LOCATION(00001B54) IN CSECT (D3410 ) LENGTH (2) 
290 $IDLE3 ADDRESS. HEX LOCATION(00001B58) IN CSECT(D3410 ) LENGTH (2) 
286 SIDLEY ADDRESS. HEX LOCATION (00001B50) IN CSECT(D3410 ) LENGTH (2) 
309 SIDLES ADDRESS. HEX LOCATION(00001B94) IN CSECT(D3410 ) LENGTH (2) 
311 $I DLE6 ADDRESS. HEX LOCATION (00001B98) IN CSECT(D3410 ) LENGTH (6) 
307 $SIDLE7 ADDRESS. HEX LOCATION (00001B90) IN CSECT(D3410 ) LENGTH (2) 
301 SIDLES8 ADDRESS. HEX LOCATION (00001B78) IN CSECT(D3410 ) LENGTH(4) 
329 SIDLEY ADDRESS. HEX LOCATION(OOOO1BCC) IN CSECT(D3410 ) LENGTH (4) 
466 SINVAL ADDRESS. HEX LOCATION(00001DBC) IN CSECT(D3410 ) LENGTH (6) 
391 $MSGO1 ADDRESS. HEX LOCATION(00001C86) IN CSECT(D3410 ) LENGTH (6) 
394 $MSG02 ADDRESS. HEX LOCATION (00001C94) IN CSECT(D3410 ) LENGTH (6) 
397 $M SG03 ADDRESS. HEX LOCATION (00001CA2) IN CSECT(D3410 ) LENGTH (6) 
401 $MSG05 ADDRESS: HEX LOCATION (00001CB6) IN CSECT(D3410 ) LENGTH (6) 
44u2 $MSGO7 ADDRESS. HEX LOCATION (00001D66) IN CSECT(D3410 ) LENGTH (6) 
406 $MSGO8 NOOBS S HEX LOCATION (00001CC8) IN CSECT(D3410 ) LENGTH (6) 
713 $MSGO8BR ADDRESS. HEX LOCATION(000020C0) IN CSECT(D3410 ) LENGTH (6) 
409 $MSGO9 ADDRESS. HEX LOCATION (00001CD6) IN CSECT(D3410 ) LENGTH (6) 
413 $MSG11 ADDRESS. HEX LOCATION (OOOO1CEA) IN CSECT(D3410 ) LENGTH (6) 
416 $MSG12 ADDRESS. HEX LOCATION (OO001CF8) IN CSECT(D3410 ) LENGTH (6) 
654 $MSG12BR ADDRESS. HEX LOCATION (O000200F) IN CSECT (D3410 ) LENGTH (6) 
431 SNONAC ADDRESS. HEX LOCATION (00001D34) IN CSECT(D3410 ) LENGTH (4) 
424 S$NONACT ADDRESS. HEX LOCATION(00001D18) IN CSECT(D3410 ) LENGTH (6) 
464 S$NOTCOMP ADDRESS. HEX LOCATION (QOOO1DB4) IN CSECT(D3410 ) LENGTH (6) 
453 55 \57 &77 
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D3410 ----- SYSTEM TEST SUPERVISOR PN=1635220 EC=755104 suecene 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
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EGOEO --- SYSTEM TEST EXERCISOR FOR THE TTY ATTACH PN=1635238 EC=755104 PAGE 03 EXOEO --~- SYSTEM TEST EXERCISOR FOR THE TTY ATTACH PN=1635238 EC=755104 PAGE 0O3A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000424 C190 470 RTO62 HVB R2)+,R1 LOAD ONE BYTE AT A TIME 587 * CALLING SEQUENCE * 
000426 7924 FFOO 471 RBTWI ¥'FPOOT RI STRIP HIGH ORDER BITS 388 * : 
00042A 6E03 O47A 472 BAL  XIOWR, R6 ISSUE WRITE COMMAND 289 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: * 
OOO42E B8FA 473 JCT  RT062,REG LOOP UNTIL MESSAGE IS PRINTED 590 * . 
000430 6E503 0486 474q BAL XIOCR,R ISSUE CARRAGE RETORN 59) So > B XIO XEQ ANY CYCLE STEAL COMMAND, MOD=0 * 
000434 6EF03 O48E 475 BAL XIOLF,R6 ISSUE LINE FEED 222 * : 
000438 4029 000C 0001 476 AWI = 1,$CKbt BUMP CHECKPOINT 993 * RETURN CONTROL * 
O0043E 6002 477 RT061 SVC. IDLE DELAY FOR INTERRUPT 234 * : 
000440 4CA3 478 TBTR (R4,IN) CHECK FOR INTERRUPT 225 * ETURN TO USER NO ERROR * 
000442 10FD 479 JOFF TO6 BRANCH IF NO BQ GH he he 0 oh he hee a a he ae Re a a oh 2 a ce ac ake a a a a ak ke af a ade ae ake ae ae ae age ake af ak fe ai fe af ake ake ae ae ate ae ak ofc ac akc akc ag ake afk 2k 
OOd0eue4y CE25 0012 480 MVWZ OPTN3, R6 ZERO OPTION WORD THREE OOO4YAO 4CA3 598 xXIO TBTR i IN) CLEAR INTERRUPT RECEIVED CNTL BIT 
000448 6£03 0496 481 BAL XIORD,R6 READ DATA BUFFER OOOUA2Z 1252 299 JON TOCK BRANCH IF ON 
O00uuC 6908 0024 482 MVW DCB2.k1 LOAD READ DATA BUFFER OOO4YA4 6EOD 0018 600 MVW R6, LSTIO SAVE IAR FOR RETRY IF REQUESTED 
000450 7906 0011 483 CWI X'0091",R1 IS BUFFER FOOAL TO X-ON KEY OOOYAB8 4O2Z2E 0018 0004 601 SWI 4 £STIO POINT AT CORRECT INSTROCTION 
000454 6800 00c8 48g BE $PENT BRANCH YES TO CONTINU OOO4AE 4324 0000 602 MVA $ID, R3 LOAD ADDRESS OF START OF PROG 
000458 6E03 OUTA 4ugs BAL XIOWR, R6 WRITE BACK DATA OOO4B2 CB2F 0018 603 SW R3 L§tTIo SUB TO OBTAIN LISTING ADDRESS 
00045C 50FO 486 J RTO6 1 BRANCH TO WAIT O004B6 4324 0022 604 MVA  DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 
488 * OOO4BA 6D08 0588 605 MVW  TIODCB,RS * AND THE FROM ADRS, ALONG WITH 
489 * READ DATA CONTROL BLOCK OOO4BE OFO4 606 MVBI 4,R7 * THE NUMBER OF MOVES 
490 * 0004C0 2D64 607 MVFN (hs) (3), MOVE 1 STATUS WORD AND ADJUST 
OOO4S5E 491 RDDCB EQU * USE FOR DCB REFERENCE ONLY 0004C2 802B 0232 0060 608 CB PUTEPE, TYPE23 CHECK FOR PROCESSOR 23 
OO045E 10 492 RDCTL D x'108 CONTROL WORD 0O004C8 1803 609 JNE XIO5 BRANCH NOT EQUAL 
OO00u5F O00 493 RDDA DC X'oor OOO4CA 4524 C000 610 MVWI x*CO0O0*,RS5 LOAD LOOP COUNT 
000460 0000 uu Dc X'00008 OOO4YCE 5001 611 J XI06 BRANCH 
u9e * S004 4cos 613 ktoe ters (RO eT) SPT EXPECTED IN 
WRITE DATA CONTROL BLOCK SET EXPECTED INTR CONTROL BIT 
000462 #33 Geoce x90 aogaas Seas Bue S15 oe BESS. TgRTOER EREOE IP vor co=7 
RDCB EQ * USE FOR DCB REFERENCE ONLY RROR IF NOT CC= 
000462 50 499 WRCTL x'soe CONTROL WORD OO0O04DC 6002 616 XIO8 SVC IBLE ALLOW OTHER PROG TIME 
000463 OO 500 WRDA DC X00 OOO4UDE 4C03 617 TBT dF} TM) IS TERMINATE BIT ON 
000464 0000 501 WDATA DC x¥"O0000! OOO4EO 6A00 0160 618 BON TERM BRANCH IF ON 
293% BO04Ee 1230 620 JON. TOK. evs. CHECK IF ALL WAS SATISFACTORY 
PREP TO ONE DATA CON T 
504 * TROL, BLOCK OOO4E8 4CAB 621 TBTR- (R4,NI) IS THERE GOING TO BE A INTERRUPT 
000466 505 RPREP EQU + USE FOR DCB REFERENCE ONLY OOOUEA 6ACO 0000 622 BON Rof BRANCH NO 
000466 60 506 RPCTL D x'608 CONTROL WORD OOO4YEE 7DA1 0001 623 AWI R ADVANCE TIME OUT COUNT 
000467 00 507 RPDA DC X00 OOO4F2 18F4 624 JNZ  xf08 BCH IF TIME OUT NOT REACHED 
000468 0001 508 DC x'00018 OOO4F4 4C61 625 TBTS Rite ER) SET ON ERROR CONTROL BIT 
a3 S8BUES 2885 osoe oes ead REE BRANCH fo: BRrNy Bayon, CONTROL 82" 
* 
511 * PREP TO ZERO DATA CONTROL BLOCK oc P22 SPSS ESSE SESE SESS ESS TTS REESE SSS SESS STS TSS SESS SES TE SSSR SSS SST SSL SSS SESS 
OO046A 512 UNPRP EQU- * USE FOR DCB REFERENCE ONLY 30 * : 
O0046A 60 513 UNCTL DC X'60° CONTROL WORD 631 * SUBROUTINE : 
00046B 00 514 UNDA DC X'00! 632 * * 
00046C 0000 219 : DC x¥'Q0008 oan . I/O EXECOTE ERROR HANDLING ROUTINE * 
* 
ae : DIAGNOSTIC RESET DATA CONTROL BLOCK o2> ; PURPOSE : 
OOO46E 519 RESDW EQUO * USE FOR DCB FREERENCE ONLY 637 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 
OOOU6E 6E 520 RECTL oDC X"6E? CONTROL WORD 638 * PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE * 
OOO046F O00 521 REDA DC x'008 639 * SUPERVISOR AND IT WAS NOT ACCEPTED. * 
000470 0000 522 DC x*00008 640 * . 
523 + 641 * CALLING SEQUENCE * 
24 * CARRAGE RETURN DA ONTROL BLOC 
its 525 ER EONTROL. SEOCk 643 + SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND * 
CRDCB EQU- * USE FOR DCB REFERENCE ONLY 
e307 88 San ERGT' BE 1:58: _— A geal 
Cc X 
000474 008D 529 DC X'OO8D* 644 . B $PRNT DUMP STATUS BEFORE TERMINATION : 
30 * 
531 * LINE FEED DATA CONTROL BLOCK 649 FAI II III IOI IO III III IOI IOI IO IORI OI BOR I HOt 
Sie 332 + . gogaee | 965 oe STORE CELeE Wi ie: ST rat ea ae ele oh 
3 LFDCB EQU- * USE FOR DCB REFERENCE ONL ° S 13- 
000476 50 534 LFCTL EQ x'50' CONTROL WORD : 000500 C328 0014 652 MVB R3,S10IN * PUT IN LOG OUT AREA 
000477 00 535 LFDA pc Xtoor 000504 6802 O05D2 653 B PRNT BRANCH TO PRINT ERROR 
000478 OOOA 536 DC X' OOOA® Pht ttt tte StS ESET ES TFT SLT FT ST TS FTL ST ST SST TS TTT SESS SS TSS TS TSC SS SS SST TS SSS SS 
538 eR IACI III TOR GI IO IORI I IO I IOI IR i tet 656 * be 
539 * ISSUE ALL I/O COMMANDS FROM A COMMON SUBROUTINE * 657 * SOUBROUTINE . 
540 * TO DISPLAY INSTRUCTIONS AND OPERATING PROCEDURES TO THE OPERATOR* 658 * . 
244 * AND SET UP ANY REQUIREMENTS FOR OTHER I/O COMMANDS * 623 A ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL' : 
* 
543 * --> BAL XIOWR,R6 XEQ WRITE COMMAND * 661 * PURPOSE : 
544 * --> BAL XIOCR,R6 XEQ CARRAGE RETURN + 662 * “ 
545 * --> BAL XIOLF, R6 XEO LINE FEED * 663 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 
546 * --> BAL  XIORD,R6 XEQO READ OF THE DATA BUFFER x 664 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * 
S47 * * 665 * EXPECTED CODE. * 
ere ease eaeeueD 248 SEO IO OR ORO OR iio Ok ai IO iO sok ii ii ii I Ri I Ii te 666 v4 rik re * 
A 49 XIOWR MVA WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL Cc G SEQUENCE i 
000480 690D 0464 550 MVW R1,WDATA LOAD WRITE DATA INTO IDCB 668 * : 
000484 500D eee 551 oe J x16 : BRANCH 669 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT * 
IODCB SET UP CONTROL BLOCK FO Cc : 
S09c8e 2099 oes ours 8a atone va EFSca, cans sole ae ons cask 1 alecoteagiiia 
XIOLF MVA  LFDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL : 
000494 5005 555 J X ' BRANCH 673 * SVC EXIT RETURN TO USER VIA SUPVR * 
000496. 4Cé6B 296 XIORD TBTS (R4,NI SET NO INTERRUPT EXPECTED BIT 674 * : 
O0O0U9E 5000 558 J 50) BRANCH 000508 706E 676 INTER CPLSR R3 SAVE INDICATORS 
B60 eI RIO IO IOI III IOI IOI I ICI IOI IOI RIOR IOI RIO Hk QOOSOA 336A 677 SRL 13,R3 POSITION INDICATORS IN R3 
561 * * 00050C 4424 OO00E 678 HVA  OPTN1,R4Y SET UP BASE ADRS 
562 * SOUBROUTINE * 000510 4c61 679 TBTS (R4,ER) SET ERROR ON I/O COMMAND CNTL BIT 
563 * a 000512 5007 680 J 1 BRANCH 
564 * EXECUTE INPUT AND OUTPUT COMMANDS * eas BCT ge ee Ee Berge ET ne ee Cee ae Ae eee Te ee Te eee ee 
565 * * * 
566 * PURPOSE M 684 * SOUBROUTINE * 
567 * * 685 * * 
568 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. % 686 * OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL® * 
569 * THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: * 687 * : 
570 * * 688 * PURPOSE * 
571 * 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 689 * * 
572 * THE I/O COMMAND. * 690 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST * 
573 * 2. SAVES THE DCB BLOCK USED * 691 * * 
574 * 3. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 692 * CALLING SEQUENCE * 
575 * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 693 * bd 
576 * MYSTERY INTERRUPT gat) CONTROL BIT IS SET. x 694 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 
S77 * 4. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7 SET THE * 695 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * 
578 * EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE NECESSARY IO. * 696 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE : 
579 * 5. AFTER ISSUING THE 1/0 COMMAND, TIHING * 697 * COMMON SECTION IS HANDLED HERE. . 
580 * STARTS TO DETERMINE A LOST INTERRUPT. * 698 * be 
581 * 6. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF * 699 * RETURN CONTROL * 
582 * WAS AN_ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * 700 * : 
583 * 7. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. * 701 * svc EXIT RETURN TO USER VIA SUPVR . 
584 * 8. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * 702 * . 
585 * 9. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. * FOF SEEKER EEE EEE RKEEKEE EERE EERE KE RCEEEKKEERKKREEEKKEREESKEEEEKEEEEEE EEE 
586 * * 000514 706E 704 INTOK CPLSR R3 SAVE INDICATORS 


E4OEO --- SYSTEM TEST EXERCISOR FOR THE TTY ATTACH PN=1635238 EC=755104 PAGE O4 EGVOEO --- SYSTEM TEST EXERCISOR FOR THE TTY ATTACH PN=1635238 EC=755104 PAGE OUA 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000516 336A 705 SRL 13,R3 POSITION INDICATORS IN R3 822 * BRANCH IS TAKEN TO PRINT THE ERROR 
000518 4424 QOOOE 706 MVA OPtTN1 RY SET UP BASE ADRS 823 * ----> PRNTRTIN THIS LABELED ADDRESS IN SYST PROG ID = peers Vee 
00051C 4C24u 7107 TBT ee Xf) IS AN ERROR EXPECTED 824 * POINTES TO A COMMON ERROR OUTPUT AND FORMATTER art Ee 
00051E 1001 708 JOFF NTh1 BRANCH NO 825 * WHICH WILL RETURN TO THIS PROG VIA REGISTER SEER 
000520 4c69 709 TBTS RG,GI SET GOOD INTERRUPT BIT 826 * * 
000522 4Cc63 710 INTR1 TBTS RU.IN SET INTERRUPT RECEIVED B27 REE KKKEKEK EEK ER EKK EEK KE EKER EEK KEKE KEKE EEE KEKE EAE KK EH KE KK 
000524 C328 0015 711 MVB 3, SIOIN+1 SAVE INTERRUPTING CC CODE 0005D2 4624 0012 828 $PRNT MVA OPTN3,R6 LOAD ADDRESS OF OPTION WORD THREE 
000528 6F0D 0016 712 MVW R7,$1S SAVE INTR STATUS AND DEV ADRS 0005D6 6D08 181E 829 MVW PRNTREN, RS LOAD ADDRESS OF COMMON PRNT ROUTINE 
00052C 78B9 T13 INTR2 CPCL R5 COPY INTERRUPT LEVEL TO CHECK OOOSDA 4424 QO000 830 MVA $PID, R4 LOAD ADDRESS OF START OF PROG 
OO0O052E 3521 714 SLL 4,R5 POSITION INTR LEVEL AND PUT OOO0SDE 4324 0042 831 MVA PCTR, R3 LOAD ADDRESS OF PASS COUNTER 
000530 0501 715 ABI 1, R5 * IN 'I* BIT OOOSE2 6FA3 0000 832 BAL ey R7 BRANCH TO COMMON PRINT ROUTINE 
000532 CD24 0056 716 CW SINTL, RS IS THIS THE CORRECT INTR LEVEL 0005E6 CE25 0012 833 MVWZ OPT 3+ RG ZERO OUT ALL FLAGS 
000536 1004 717 JE INTR3 * YES, GO EXIT THIS LEVEL OOOSEA 4424 OOOE 834 MVA OPTN1,R4 LOAD BASE ADDRESS FOR INDICATORS 
000538 3521 718 SLL 4,RS SET LEVEL IN HIGH ORDER BYTE OOOSEE 802B 0232 0060 835 CB CPUTYPE, TYPE23 IS THIS A TYPE 23 PROCESSOR 
00053A 6DOD 0020 719 MVW R5 DEV3+2 STORE IN DEV4 OOOSF4 1803 836 JNE $PRN2 BRANCH IF NO 
O0053E 4c65 720 TBTS RG LE SET INTR LEVEL ERROR CONTROL BIT OO0O05F6 4524 E000 837 MVWI X*EOOO!,R5 INIT LOOP COUNTER 
000540 4CA2 721 INTR3 TBITR R4,_XI WAS INTERRUPT EXPECTED OOOSFA 5002 838 J SPRN1 BRANCH 
000542 1201 722 JON NTRX * YES, EXIT OFF THIS INTR LEVEL OOO05SFC 4524 8000 839 $PRN2 MVHIL X*8000'*,R5 INIT LOOP COUNTER 
000544 4c60 723 TBTS auf MI) * NO, SET MYSTERY INTR CONTROL BIT 000600 6002 840 $PRNI SVC IDLE DELAY 
000546 6006 724 INTRX SVC XIf EXIT THIS LEVEL VIA SUPVR T 000602 4cC03 841 TBT fk TM) SHOULD PROG TERMINATE 

726 ORO ORI IO OK RO IORI III I IOK OR iO IRR i tO ROK kok tok tok kakokok 000604 6A00 0160 842 BON TERM BRANCH YES 
727 * * 000608 7DA1 0001 843 AWIL 1,R5 INCREMENT LOOP COUNTER 
728 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT * 00060C 18F9 844 JNZ $bRN1 BRANCH NOT ZERO 
729 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN * OOO060E 6802 00C8 845 $PENT BRANCH TO RESTART FROM BEGINING 
730 * RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. * B47 ORR RIO IO ORO IOI II IOIOIIOIOI IR IOI IIIS IO OR III IOI RR IO RK tog te ak 
731 * * 848 * ALPHANUMERIC BUFFER STORAGE * 
‘ T3 2 A RO I RIOR IO IORI IRI OR RO II ROR OR IORI ok ko ak ak re Be Rog er ee ye ee REREEELERERESEAEERE REE EEEEE AE RS 
000548 4cC20 733 XIOCK TBT R4,MI DID MYS INTERRUPT OCCUR LPHA EQU * 
OOOS4A 1208 734 JON Ente BRANCH YES 000612 20282129222A232B2 851 DC Ss‘ iL leah 
O0054C 4C25 7135 TBT 42h E) WAS AN INTR LEVEL ERROR FOUND 00061B 2C252D262E272F40 852 DC st - Ae oe 
OOO0O5S4E 1002 736 JOFF IOCM * NO, CONTINUE CHECKING 000623 4B41I49424A4Z4BRYY 853 DC S'*HAIBICKD ' 
000550 4C61 737 TBTS sBC ER) SET ERROR CONTROL BIT ON 00062C 454D4 64 E4T4F30383 854 DC S'EMFNGOOS81! 
000552 SO00E 738 J rocu BRAN 000635 39323A333B343C353 855 DC S$'§'92:3:4<5=6! 
000554 4C24 739 XIOCM TBT se XE) WAS st ERROR EXPECTED 00063F 3£E373F50585159525 856 DC S*ST2?PKOYRZS* 
000556 1212 740 JN ToéI * YES EXIT THIS ROUTINE 000649 7B 857 DC X*7B! LEFT BRACKET 
000558 4&C21 741 XIOCV TBT she ER) WAS ERROR INTR CONTROL BIT ON OOO64UA 54 858 DC s'qe 
OQOO0S5A 100C 742 JOFF IOCX * NO XIT THIS ROUTINE OO0O064B 5C 859 DC x'5c! REV. SLASH 
00055C 402F OOOA 0004 743 XIOCQ CWI X'0004", SRTNE Is ROUT THE NUM = 4 00064C 55 860 DC stu 
000562 1806 T44 JNE XIOCU IF NO ERROR 0O0064D TD 861 DC X*7D¢ RIGHT BRACKET 
000564 C320 0015 T45 MVB SIOIN#1, 83 GET CONDITION CODE OOO064E 56 862 DC sty? 
000568 F304 746 CBI X"OK"', RS TIS CC = ATTENTION OO064F TE 863 DC X'7E* UP ARROW 
OOO56A 1802 T47 JNE XIOCU ERROR IF NOT 000650 57 864 DC S'qt 
00056C 6802 O3E8 748 B RTO6 INVOKE ROUTINE SIX 000651 SF 865 DC X'SFt LEFT ARROW 
000570 6802 05D2 749 XIOCU B S$PRNT . BRANCH TO PRINT ERROR 000652 20 866 DC sft BLANK 
000574 CB25 0012 750 XIOCX MVWZ OPTN3, R3 CLEAR OUT OPTION 3 CNTL BITS 000653 00 867 DC Xx*oo! END OF CHARACTER SET 
000578 68C2 0000 751 B R6) te oe TO USER VIA REG 6 000654 454E544552 868 $ENTR DC S'ENTER!® 
00057C 4C29 752 XIOGI TBT R4,GI) GOOD INTERRUPT BIT ON 0000C8 869 END SPENT 
00057E 12F8 753 JON rocu BRANCH YES 
000580 68C2 0000 ae : B (R6) RETURN 
428 e Ifo PARAMETER LIST 
000584 OO4C 758 IOBLK DC A(S$DVAD ADRS OF DEVICE ADRS | 
000586 O4FC 759 IOERR DC A (XIOER ERROR ROUTINE ADRS | 
000588 0000 760 IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 
OOO5S8A 0000 761 IOMOD DC A (*-* MODIFIER 
00058C 0000 762 DC A (*- * ADRS OF LAST SVC CALL 
00058E 0000 ack eOtSe DC A (*-* SECOND WORD OF LAST IDCB 
ay * INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
000590 dO0d4C 767 INTBL DC A($DVAD ADRS OF DEVICE ADRS 
000592 0O514 768 DC A (CINTOK INTERRUPT OK RETURN ADRS 
000594 0508 769 DC A (INTER INTERRUPT ERROR ADRS 
000596 0003 770 INTCC DC xt t INTERRUPT CODE EXPECTED 
T1722 OOOO IO IO IO ROR IO IO II IOI IIR OR IRR gO RIG IO kok kaki ak 
7173 * * 
414 * SUBROUTINE 
Lila . CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE : 
ia 7 PURPOSE . 
780 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND * 
781 * PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * 
782 * TO INTERRUPT. * 
783 * * 
40e : CALLING SEQUENCE : 
aoe : THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: : 
788 * --> BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
789 * --> BAL SCONR, R6 BCH TO CONNECT * 
464 4 --> BAL SCONP, R6 PREPARE DEVICE ONLY - 
7192 * RETURN CONTROL * 
793 * * 
tae : BXS (R6) RETURN TO USER VIA REG 6 : 
196 ORO IOI III III III IOI IOR RIOR I IORI ORI IOI Rg kok fake ate ake 
000598 797 $CONR EQU * 
000598 4724 0590 798 MVA INTBL, R7 SET R7? TO CONTROL BLOCK AND 
00059C 6014 799 SVC CICB * CONNECT IT TO THIS DEVICE 
OO0059E 68C2 0000 800 B (R6) RETURN 
0005A2 801 $CONC EQU * 
QOO05A2 CB25 0012 802 MYWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
0005 A6 8828 0056 0588 803 $CONP MVW S$INTL, IODCB PUT IN LEVEL & INTR PARAMETER 
O005AC 4724 0584 804 $CONU MVA TOBLK, R7 SET RV TO CONTROL BLOCK TO PREPARE 
OOO5BO0 4020 0014 O7FF 805 MVWI X*O7FF", SIOIN INITIALIZE CONDITION CODE STORAGE 
0005 B6 CB25 0016 806 MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
OOOSBA 6EOD 0018 807 MVW R6, LSTiIO SET UP ADDRESS THAT STARTED LAST I/0 
QOOOSBE 4O2E 0018 0004 808 SWI 4 £LSTIO DECREMENT TO POINT AT INSTRUCTION 
0005C4 4324 0000 809 NVA $hID R3 LOAD ADDRESS OF START OF PROG 
0005C8 CB2F 0018 810 SW R3 LSTIO SUB TO OBTAIN LISTING ADDRESS 
0005cc 600C 811 SVC PREP * AND CALL ON SUPVR 
OOO05CE 68C2 0000 812 B (R6) RETURN 
B14 OOOO IGOR IOI ORO IOI IOI IOIGIOIOR OI I OI IOI OR ak a kK IO IK ac ak 
ate : COMMON PRINT ERROR INTERFACE ROUTINE 4 
817 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 
818 * BRANCH IS TAKEN TO PRINT THE ERROR * 
819 * ----> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 
820 * BRANCH IS TAKEN TO PRINT THE ERROR * 
821 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 
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E4OEO --- SYSTEM TEST EXERCISOR FOR THE TTY ATTACH PW=1635238 EC=755104 
CROSS-REFERENCE LISTING 
DECLARED NAHE ATTRIBUTES AND REFERENCES 
52 . REG. ABSOLUTE. HEX VALUE (00000000) 
386 399 468 
0 .R1. ABSOLUTE. HEX VALUE (00000001) 
263 263 286 286 288 290 303 £303 309 
317. 331 #334 337 #340 343 346 362 + @&369 
370 389 393 395 396 416 416 436 438 
439 443 460 461 462 470 471 #424482 8 483 
0 ~R2. ABSOLUTE. HEX VALUE (00009002) 
250 269 332 335 338 £341 «+9344 347 #370 
392, 393) 434 435) 436) 4K 469470. 
0 -R3. ABSOLUTE, HEX VALUE (90000003) 
171 174 179 443 602 603 604 +607 ~~ #650 
651 652 676 677 #+%706 $705 711 «27785 #746 
750 802 806 809 810 831 
0 oR4, ABSOLUTE. HEX VALUE (00000004) 
160 161 163 190 191 195 196 285 291 
367 382 384 414 424 428 429 «478 8 556 
598 613 617 619 621 625 626 678 #£679 
706 707 4#+709 ©7110 720 721 «#497230 «©73302~=«735 
737 739 741 °752 830 834 °& 841 
0 oR5. ABSOLUTE. HEX VALUE (00000005) : 
172 174 -22200~=C«a2230ss- 2224s 225) 2262) 2997S 299 
299 420 422 426 605 607 +610 612 £42612 
623 713 714 #+$.+.45 £716 «#718 «#2719 829 832 
837 839 843 
0 ~R6. ABSOLUTE, HEX VALUE (00000006) 
181 182 188 192 221 £4227 £4228 248 ~# 262 
264 265 282 283 284 +287 #4=«°294 #300 #301 
304 305 306 310 311 ®2«93912 313 318 329 
352 381 =6390 30s 3910S 397) 401) 402) 403s 13 
417 431 432 433 455 457 458 459 ~~ 465 
466 472 474 475 480 481 485 £600 ~~ 622 
751 754 800 807. 812 828 833 
0 -R7. ABSOLUTE. HEX VALUE (00000007) 
173. 175 «=©176)~—SsCs«178 +=) 1862) 203.2-«- 2207'S 210-~—Ss-211 
254 333 336 339 342 345 348 +%\(}350 371 
606 712 798 804 832 
63 $CKPT ADDRESS. HEX LOCATION (0000000c) IN CSECT (E40 EO } LENGTH (2) 
222 266 293 302 308 30 349 ° 388 °&4d0 
801 $CONC ADDRESS. HEX LOCATION (000005A2) IN CSECT(EGOEO ) LENGTH(1) 
262. 282 329 381. 413 
803 $CONP ADDRESS. HEX LOC ATION (000005A6) IN CSECT(EGOEO ) LENGTH(6) 
797 $CONR ADDRESS. HEX LOCATION (00000598) IN CSECT(E4OEO ) LENGTH(1) 
804 $CONU ADDRESS. HEX LOCATION(OO0O0S5AC) IN CSECT(E4OEOQ ) LENGTH(4) 
104 $DATA ADDRESS, | HEX LOCATION (0000001A) IN CSECT(E4O0EO ) LENGTH(2) 
127 $DVAD ADDRESS. HEX LOCATION (0090004) IN CSECT(E4OEO Y LENGTH (2) 
a 136 164 165 166 67 168 169 #170 
130 $DVID ADDRESS. HEX LOCATION (00000058) IN CSECT(E4OEO ) LENGTH(2) 
868 SENTR ADDRESS. HEX LOCATION (00000654) IN CSECT(E4OEO )} LENGTH(5) 
135 $HTOE ADDRESS. HEX LOCATION (00000062) IN CSECT(E4OEO ) LENGTH(2) 
129 $INTL ADDRESS. HEX LOCATION (00000056 IN CSECT (EYQEO ah gvENGTH (2) 
101 $IOIN ADDRESS. HEX LOCATION (00000014) IN CSECT(E4OEO ) LENGTH (2) 
102 $ISB ADDRESS. HEX LOCATION (00000016) IN CSECT(E4OEO ) LENGTH(2) 
131 $MXSL ADDRESS. HEX LOCATION (0000005A) IN CSECT(EGOEO ) LENGTH (2) 
139 $OUTN ADDRESS. HEX LOCATION (0000006) IN CSECT(E4OEO ) LENGTH(2) 
158 $PENT ADDRESS. HEX LOCATION (000000C8) IN CSECT(EYVOEO ) LENGTH(6) 
192 $PEN1 ADDRESS. HEX LOCATION(00000148) IN CSECT(E4OEO ) LENGTH(4) 
58 $PID ADDRESS. HEX LOCATION (00000000) IN CSECT(E4VOEO ) LENGTH(4) 
828 $PRNT ADDRESS. HEX LOCATION (000005D2) IN CSECT(E4OEO | LENGTH (4) 
260 292. 319 353 430 45 463 627 #653 
840 $PRN1 ADDRESS, | HEX LOCATION (00000600) IN CSECT(E4OEO ) LENGTH(2) 
8 39 $PRN2 ADDRESS. HEX LOCATION (O00005FC) IN CSECT(E4OEO ) LENGTH(4) 
195 $PUPD ADDRESS. HEX LOCATION (00000158) IN CSECT (EUOEO ) LENGTH (4) 
215 $PUPB ADDRESS. HEX LOCATION (00000190) IN CSECT(E4OEO ) LENGTH (6) 
205 $RETI ADDRESS. HEX LOCATION (0000016C) IN CSECT(E4OEO ) LENGTH(6) 
232 $RTAD ADDRESS. HEX LOCATION(000001BC) IN CSECT(E4OEO ) LENGTH (2) 
62 $RTNE ADDRESS, HEX LOCATION (0000000a) IN CSECT(E4OEO ) LENGTH(2) 
202 $TERM ADDRESS. HEX LOCATION (00000160) IN CSECT(E4OEO ) LENGTH (6) 
210 $TER1 ADDRESS. HEX LOCATION(00000184) IN CSECT(E4OEO ) LENGTH(4) 
850 ALPHA ADDRESS. HEX LOCATION (00000612) IN CSECT({E4OEO ) LENGTH(1) 
41 CICB ABSOLUTE. HEX VALUE (00000014) 
54 CPUTYPE ABSOLUTE. HEX VALUE (00000232) 
527 CRCTL ADDRESS. HEX LOCATION (00000472) IN CSECT(E4OEO ) LENGTH (1) 
528 CRDA ADDRESS. HEX LOCATION (00000473) IN CSECT(EGOFO ) LENGTH(1) 
5 26 CRDCB ADDRESS; HEX LOCATION (00000472) IN CSECT(E4OEOQ ) LENGTH(1) 
107 DCBUF ADD CSECT(EGOEO ) LENGTH(2) 


RESS. HEX LOCATION (00000022) IN 
363 364 604 614 
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EGOEO --- SYSTEM TEST EXERCISOR POR THE TTY ATTACH PN=1635238 EC=755104 
CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 
ADDRESS. HEX LOCATION (00000024) IN CSECT(E4OEO ) LENGTH (2) 
3 312 434 4460 482 
ADDRESS. HEX LOCATION(0000002C) IN CSECT(E4OEOQ ) LENGTH(2) 
RESS. HEX LOCATION (00000012), IN CSECT(EGOEO ) LENGTH(2) 
226 258 259 37 18 444 ° 719 
RESS, HEX LOCATION (00000020) IN CSECT(E4OEO ) LENGTH(2) 
OLUTE, HEX VALUE (00000021) 
625 6 744 


42 
39 
97 
44 
132 
133 
45 
91 
151 
T2 
767 
770 
676 
704 
724 
710 
721 
758 
760 
7159 
763 
191 
261 
93 
535 
533 
94 
103 
88 
144 
148 
145 
149 
99 
65 
76 
43 
124 
46 
53 
71 
493 
491 
521 
519 
50 
47 
51 
507 
248 
282 


EXIT 
E4OEO 
GI 
HTOE 
HO0000 
HOOO01 
IDLE 
IN 
INARA 
IND 
INTBL 
INTCC 
INTER 
INTOK 
IN TRX 
INTR1 
INTR3 
IOBLK 
IODCB 
IOERR 
IORSP 
ISTTY 
ITSTY 
LE 
LFDA 
LF DCB 
LI 
LSTIO 
MI 
HSG01 
MSGO2 
MSG11 
MSG21 
NI 
OPTN1 
OPTN3 
OUTIN 
PCTR 
PREP 
PRNTRTN 
QUES 
RDDA 
RDDCB 
REDA 
RESDW 
RESET 
RICB 
RID 
RPDA 
RTO1 
RTO2 


9 
OLUTE. HEX VALUE (00000006) 


OLUTE, HEX VALUE (00000029) 
OLUTE. HEX VALUE (0000001A) 
RESS. HEX LOCATION(0000005C) IN 
RESS. HEX LOCATION(0000005E) IN 
HE VALUE (00000002) 
ALUE 90000023) : 
CATION(000000C6) IN 
ALUE (00000008) 
CATION (00000590) IN 
CATION (00000596) IN 
OCATION(00000508) IN 
SS. HEX LOCATION(00000514) IN 
ESS. HEX LOCATION(00000546) IN 
RESS, HEX LOCATION (00000522) IN 
RESS. HEX LOCATION (00000540) IN 
HEX LOCATION(00000584) IN 
7 254 350. 804 
HEX LOCATION (00000588) IN 
HEX LOCATION (00000586) IN 
HEX LOCATION (00000588) IN 
HEX LOCATION (00000146) IN 
HEX LOCATION (00000202) IN 
HEX VALUE (00000025) 
HEX LOCATION (00000477) IN 
HEX LOCATION(00000476) IN 
HEX VALUE (00000026) 
HEX -BOCATEOH (0098901), 5H 
HEX VALUE (00000020) 
RESS. HEX LOCATION (00000074) IN 
RESS. HEX LOCATION(0000009A) IN 
RESS, HEX LOCATION (00000094) IN 
RESS. HEX LOCATION(000000C2) IN 
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OLUTE, HEX, VALUE (00000028) 
RESS» HEX LOCATION (0000000E) IN 
RESS. HEX LOCATION (00000012 IN 
OLUTE, HEX VALUE (00000001) 
RESS. HEX LOCATION (00000042) IN 
OLUTE. HEX VALUE (0000000C) 
OLUTE. HEX VALUE(0000181E) 
OLUTES HEX VALUE (0000000D) 
RESS. HEX LOCATION(O000045F) IN 


RESS. HEX LOCATION(0000045E) IN 
RESS. HEX LOCATION (O000046F) IN 
RESS. HEX LOCATION(0000046E) IN 
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EY¥4EO --- SYSTEM TEST EXERCISOR FOR THE 4979 DISPL PN=1635241 EC=755104 PAGE 05 E44EO -~- SYSTEM TEST EXERCISOR FOR THE 4979 DISPL PN=1635241 EC=755104 PAGE OSA 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
* * BOGEOE Bae 0232 0060 1028 ne EN ae Seiwon eee co 23 PROCESSOR 
* : * 
: THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: iy 000808 4524 E000 ae aoe Aude ene eed COUNTER 
* --> BAL CMPU, R6 USE COMMON COMPARE FOR ONEQUAL VALUE* 
x =- * QOOO80E 4524 8000 1062 $PRN2 MVWI xX'8000',RS5S INIT LOOP COUNTER 
phahe eerie BB BBB 8888 1ogg SPAN See AEF Bibb puoc renarnae 
* % 
oe ae ae ceey ges on TEE Le eee 
* a O 
a ae te Ro aacgee a Tee BEG Ae : 00081F 18F9 1067 INZ gbRit BRANCH NOT ZERO 
* * 000820 6802 0062 1068 PENT BRANCH TO RESTART FROM BEGINING 
i ee aK RK RK OR IR Kk tk kkk gk kk gk i kkk kk teak ike ake ate ae ate ae ake ake fe fea ak TOF Om He He He He ee ee EK EE KE KK EK EE KE KK KE EEK KK EE 
* 1071 * MOVE DCB VALUE INTO DCB STORAGE ALREADY DEFINED * 
* COMPARE DATA FOR UNEQUAL 1095 : TO MOVE THE STRING OF DC TO SET UP THE WRITE DCB : 
* 
000746 6D08 052E CMPU MVW WRADR,RS SET UP WRITE BUFFER ADRS 1074 * BAL SETWR, R6 BCH TO SET UP DCB * 
OOO74A 6B08 053E MVW  RDADR, R3 SET UP READ BUFFER ADRS 1075 * BAL | SETRD,R6 BCH TO SET UP DCB * 
OOO74E 6F08 053¢ MVW RDBCT,R7 SET UP BYTE COUNT FOR COMPARE 10 FG HERE KK KE EEK RR KK KKH KK KK KK KK KK KEKE KK KKK KKK KKK KK KK KK a KK KK KK KK 
000752 68C0 0000 BZ R RETURN TO CALLER, BYTE COUNT ZERO 000824 4524 0530 1077 SETRD MVA RDDCB, R5 SET UP READ DCB ADRS AND USE 
aggre ZBhe given [23], (5 conPat DaPA $53838 229% sac 1948 serwr aya asege#s seetae nate See Toners! 
000758 68C0O 0000 ‘ BE R6 BCH IF DATA THE SAME AND RETURN 000838 0F 10 1980 BV BE 1GRT INT? R770 LENGTH OF DCB 
* ‘< 
PRINT COMPARE: ERROR boo8aD 6 ecae 1982 BKS. (R6} neue SD 
BeoTeS aGok CMPP aga at am) at oho a anne eRe te OF CMP ERR 108 4 9 RIO ROR IORI IRI IIR IOI RIOR IOI RII KOK Xt tk 
000760 C1EO FFFE MVB R3 g7 2) 0B GET LAST GOOD COMPARE 1085 * ALPHANUMERIC BUFFER STORAGE: KEYBOARD PATTERN 
000764 3141 SLL ate POSITION FIRST BYTE 10 BG eH ee a ee ee a a ae a HEGEECEHESYESESSS Pre TTerT TCL ert TTT Trt ttt Tete te st 
000766 71E4 MVW 1. SAVE BYTE FOR NOW 000834 4O40GO4O4ORO4O4O4 1087 ALPHA DC cf 
000768 C1E0O FFFF MVB R3.-1 /R1 GFT BYTE THAT FAILED 000841 7C6C5SC4C6061DBE6C 1088 DC tr cat $.-O+ ! 
00076C 7920 OOFF NWI 'OOFF';R1 REMOVE BIT 0-7 00086B SD4AEOUF 1089 DC X'SD4AEOUF® EF PAR CENT. Back SL,OR 
000770 7721 ow R7, R1 * AND GET 1 ST BYTE BACK OOO86F FIF2F3506E7A5ESF7 1090 DC C'§'12366>3 32'*456° 
000772 690D OO1A MHVW R1,DEV1 STORE INTO DEV1 00087B 6FT7F7ESA 1091 DC X'6FTF7ESA¢ ?,QUOTES,=,EXCLAIM 
000776 7564 MVW 8 =©R5, R3 MOVE ADRS TO OTHER REG OO0OO87F 4DFTFB8FI4O 1092 DC c'(789 § 
000778 C1EO FFFE MVB {Rs -2),R1 GET LAST GOOD COMPARE 000884 1094 WRBUF EQu * HAXISUM WRITE BUFFER 
00077C 3141 SLL R POSITION FIRST BYTE 000884 404040404 OKO4O4O4 1095 D CL80' °* 
00077E 71E4 MVW Ri.R7 SAVE BYTE FOR NOW O0008D4 1096 RDBUF EQu * MAXIMUM READ BUFFER 
000780 C1EO FFFF MVB {x3 raek R1 GET BYTE THAT FAILED OOO08D4 YOUO4O4O4O4O4O4OY 1097 D cLso' §' 
000784 7920 OOFF NWI (OOFF',;R1 REMOVE BIT 0-7 000062 1098 END $PENT 
000788 7721 OW R7,R1 * AND GET 1 ST BYTE BACK 
QOOO78A 690D OO0I1C MVW R1,DEV1#¢2 STORE INTO DEV2 
OOO78E 6802 O7E4 B SPRNT BRANCH TO PRINT ERROR - 
SOIR OI RIGO IO II iii OR oR iO ii tok kof ak 
* * 
* SUBROUTINE : 
: SPECIAL ERROR CHECKING OF THE DCB : 
* PURPOSE . 
* TO SET THE CONTROL BITS, BEFORE ISSUEING THE I/O COMMAND * 
* TESTING TO VERIFY THAT THE ERROR DID OCCUR, AND VERIFYING * 
2 THAT THE RESIDUAL ADDRESS IS WHAT IT SHOULD BE. 
: CALLING SEQUENCE : 
* --> BAL  ERTST,R2 USE COMMOM ERROR TEST SUBRTN * 
: DC A (1) DISPLACEMENT FOR RESIDUAL ADRS : 
; RETURN CONTROL : 
: BXS (R2,2) RETURN TO USER VIA REG 2 - 
eee ce ere erry conte set eee r eee cee erste tee 
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1 
1 
1 
1 
1 

000792 4cé64 1 ERTST TBTS SET EXPFCTED ERROR FOR EACH FAULT 

000794 40629 900C 0001 1 AWI rSEKE INCREMENT CHECKPOINT 

00079A 6E03 0000 1 ERCAL BAL R6 GO XEO I/0 COMMAND 

00079E 4c21 1 TBT i Ra! ER) DID ERROR CONTROL BIT GET SET 

0007A0 1202 1 JON RTSV * YES,GO CKECK RESIDUAL ADDRESS 

0007A2 1 CSADE EQU 

OOO7A2 6802 07E4 1 . B SPRNT BRANCH TO PRINT ERROR 

OOO7A6 AAOB 0702 1 ERTSV AW R2) IORSP DEVELOP DCB ERROR ADDRESS 

OOO7AA 8828 0702 07D0 1 ave fh, ERTSZ SAVE DCB ADRS FROM SUPER BLOCK 

0007B0 CE25 0012 1 MVWZ PPR ZERO OPTION WORD THREE 

0007B4 4C6A 1 TBTS yea pt), SET PROBABLE ERROR 

0007B6 6E03 05B8 1 BAL roés REQU EST START CYCLE STEAL STAUTS 

OOO7BA 882B 0032 O7D0 1 CW CSTLI, ekeSs TEST FOR CORRECT RESIDUAL ADDRS 

0007C0 1004 1 JE ERTSX’ RESIDUAL ADDRESS OK 

0007C2 8828 07D0 0020 1 MVW  ERTSZ,DEV3+2 CHAS! RESIDUAL ADDRESS 

0007C8 SOEC 1 J CSADE BRA 

OOO7TCA 4CAT 1 ERTSX TBTR (R4,CS RESET CS IN PROGRESS CNTL BIT 

0007CC 4CA1 1 TBTR (R4,ER RESET ERROR RECEIVED CONTROL BIT 

OOO7CE 5201 1 : BXS R2,2) OK, RETURN TO CALLER 

0007D0 0000 1 ERTSZ DC A(*-*) EXPECTED RESIDUAL ADDRESS SAVE AREA 

0007D2 1 CSRTN EQU * 

0007D2 6D08 0036 1 MVW  CSTL3,R5 GET CURRENT STATUS WORD 

0007D6 1002 1 JZ CCRTP BCH IF NOTHING WRONG 

0007D8 6802 O7E4 1 B $PRNT IF ERROR 369 PRINT 

0007DC 4c21 1 CCRTP TBT tt ER) RESET THE ERROR CONDITION 

O007DE 6A00 O7E4 1 BON PRAT IF ON GO FO RERT 

0007E2 5600 1 BXS | {R6) RETURN IF NO ERRORS 
1 PT STEPS SES LES ESL ESE STEPS SSL SSS SESS SESE SRS STS SSS SSS SS SS SSS SS STS SST eee et es ss 
* COMMON PRINT ERROR INTERFACE ROUTINE : 
1 * ----> RG LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 
1 * BRANCH IS TAKEN TO PRINT THE ERROR * 
1 * ----> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 
1 * BRANCH IS TAKEN TO PRINT THE R . 
1 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 
1 * BRANCH IS TAKEN TO PRINT THE OR : 
1 * ----> PRNTRIN THIS LABELED ADDRESS IN SYST RR OOG ID = D3410/SYST i 
1 * POINTES TO A COMMON BRNOE OUTPUT AND FORMATTER ROUTINE* 
1 . WHICH WILL RETURN TO THIS PROG VIA REGISTER SEVEN * 
1 Cpnur ea be ee neces oe Gearon darn @ancee 

OOO7E4 4624 0012 1 $PRNT HVA N3, R6 LOAD ADDRESS OF OPTION WORD THREE 

0007E8 6D08 181E 1 MV PRNTREN. RS LOAD ADDRESS OF COMMON PRNT ROUTINE 

OOO7EC 4424 0000 1 MVA  $PID,RG’ LOAD ADDRESS OF START OF PROG 

0007F0 4324 0042 1 MVA  PCTR,R3 LOAD ADDRESS OF PASS COUNTER 

OOO7P4 6FA3 0000 1 BAL RS) R7 BRANCH TO COMMON PRINT ROUTINE 

0007F8 CE 25 0012 1 MVWZ OPTN3,R6 ZERO OUT ALL FLAGS 

OOOTFC 4424 OOOE 1 MVA «© OPTN1, RG LOAD BASE ADDRESS FOR INDICATORS 


EQGQEO --~ SYSTEM TEST EXERCISOR FOR THE 4979 DISPL PN=1635241 EC=755104 PAGE 06 E44EO --- SYSTEM TEST EXERCISOR FOR THE 4979 DISPL PN=1635241 EC=755104 PAGE O6A 
CROSS-REFERENCE LISTING COPYRIGHT IBH CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
48 REG. ABSOLUTE. HEX VALUE (00000000) 89 cs ABSOLUTE. HEX VALUE (00000027) 
301 321 333. 353 510 678 681 769 8 841 1023 
0 eR1. ABSOLUTE. HEX VALUE (90000001) 1011 CSADE ADDRESS. X LOCATION(000007A2) IN CSECT(E44EO ) LENGTH (1) 
228 229 230 234 235° 236 251 £254 °& 265 1022 
266 267 272 #$302 #305 #£(:334 #337 473 475 108 CSBUF ADDRESS. HEX LOCATION(00000032) IN CSECT(E44EO +) LENGTH(1) 
476 479 515 516 517 4520 # £966 967 968 587 694 
969 379 971 972 973 975 976 977 978 579 CSDCB ADDRESS. HEX LOCATION (00000540) IN CSECT(E44E0 ) LENGTH(1) 
0 ~R2. ABSOLUTE. HEX VALUE (90000002) 1029 CSRIN ADDRESS. HEX LOCATION (000007D2) IN CSECT(E44EO } LENGTH (1) 
207) 224 «= 227) 252s 254) 303) 3052S 3335S: 2337 B44 
379 381 384 388 289 331 394 298 399 109 CSTL1 RBRESS. HEX LOCATION (00000032) IN CSECT(E44E0 +) LENGTH(2) 
424 426 429 431 436 £437 440 uu Was 111 CSTL3 ADDRESS. HEX LOCATION (00000036) IN CSECT(E44E0O ) LENGTH (2) 
446 474 475 485 487 489 491 512 517 515 1030 
518 519 1014 1025 116 CSTL8 ADDRESS. HEX LOCATION (00000040) IN CSECT (E44 E0 ) LENGTH (2) 
0 -R3. ABSOLUTE. HEX VALUE (00000003) 772 773 
4 86 487 490 491 612 615 675 687 688 515 DC BCK ADDRESS. HEX LOCATION (000004E6) IN CSECT(E44E0 1 LENGTH (4) 
689 692 693 696 740 741 742 766 767 381 386 391 396 §=401 06 411 416 4 
7173 800 801 809 850 915 919 922 923 426 431 437 = 441 
957 960 967 970 974 975 978 1054 504 DCBSU ADDRESS. HEX LOCATION(OOOOO4CA) IN CSECT(E44EO ) LENGTH (2) 
0 ~R4. ABSOLUTE. HEX VALUE (00000004) 4 36 440 445 
138 139 151 154 457° 458 459 463 465 100 DC BUF ADDRESS. HEX LOCATION(00000022) IN CSECT(E44E0 ) LENGTH (2) 
504 508 510 511 #=677 #4+2.678 681 £683 #4698 689 
706 709 711 #=$715 £49716 768 769 #4771 775 98 DEV1 ADDRESS. HEX LOCATION(OOOO001A) IN CSECT(EG4EO ) LENGTH (2) 
802 803 805 806 807 818 #819 821 831 178 179 973 
833 835 837 839 841 843 846 864 965 99 DEV3 ADDRESS. HEX LOCATION (QOQOQOO1E) IN CSECT(EG4EO ) LENGTH(2) 
1006 1009 1017 1023 1024 1033 1053 1057 064 180 181 217 218 232 38 519 520 81 
0 ~R5. ABSOLUTE. HEX VALUE (00000005) 1021 
153 157 177. +2178 179 180 181 315 317 529 DGDCB ADDRESS. HEX LOCATION (00000500) IN CSECT (E44 EO } LENGTH (1) 
319 347 349 #351 613 615 690 692 694 619 
696 703 705 #£«21705 713 811 812 813 814 83 ER ABSOLUTE, HEX VALUE (00000021) 
816 817 852 853 856 858 956 960 974 458 715 775 835 84 5 1009 1024 033 
1030 1052 1055 1060 1062 1066 1077 + # «421079 081 1008 ERCAL ADDRESS. HEX LOCATION (O000079A) IN CSECT (E4UEO ) LENGTH (4) 
0 -R6. ABSOLUTE. HEX VALUE (90000006) 378 
137 176 182 183 204 210 220 225 226 1006 ERTST ADDRESS. HEX LOCATION (00000792) IN CSECT(E44E0 ) LENGTH (2) 
249 250 255 #260 270 271 299 300 306 379 384 389 394 399 04 409 414 419 
312 331 332 338 344 £373 374 375 461 424 429 
462 469 471 478 481 493 506 507 509 1014 ERTSV ADDRESS. HEX LOCATION(000007A6) IN CSECT(E44E0 ) LENGTH (4) 
685 838 851 866 913 920 925 959 961 1010 
1008 1016 1018 1035 1051 1056 1081 £1082 1023 ERTSX ADDRESS. HEX LOCATION(O0O0007CA) IN CSECT(E44EO ) LENGTH (2) 
0 Pp: ABSOLUTE. HEX VALUE (90000007) 1020 
146 148 150 162 164 165 211 213 253 1027 ERTSZ ADDRESS. HEX LOCATION(000007D0) IN CSECT (E44EO ) LENGTH (2) 
304 336 472 482 484 $488 614 691 695 1015 1019 1021 
190 342 1829 aag 917 958 966 969 972 39 EXIT ABSOLUTE. HEX VALUE(00000006) 
59 $CKPT ADDRESS. HEX LOCATION (0000000C) IN CSECT(E44YEO _) LENGTH(2) 36 EG4EO CSECT. START(00000000) LENGTH(2340) ESDID(0) 
177 221 268 311 343 70 477 492 505 36 
856 1007 91 GI ABSOLUTE. HEX VALUE (00000029) 
914 $SCONC ADDRESS. HEX LOCATION (00000716), IN CSECT (E44 EO ) LENGTH (1) 805 864 
210 225 249 +299 331 73 46 43 HTOE ABSOLUTE. HEX VALUE (0000001A) 
910 SCONR ADDRESS. HEX LOCATION(0000070C) IN CSECT(E44EO ) LENGTH (1) 483 
‘4 ne 204 - er RBGRa DR ae ; 125 HO0O0O ADDRESS. HEX LOCATION(0000005C) IN CSECT (E44E0 ) LENGTH (2) 
ESS. HEX LOCATIO C) IN CSECT(E44E LENGTH 
ae ; 57 164 +» 871 8 oe aaa ( ; (2) 126 HOOO1 ADDRESS. HEX LOCATION (OQ00005E) IN CSECT(E44E0 ) LENGTH (2) 
DVID ADDRESS. HEX LOCATION IN CSECT(E44UE LENG 
a ‘Mem «© Seed x een nannen as Coes) ae 40 Tne ABROLUTE, HEE, YALUF (90009892) 496 
HTOE ADDRESS. HEX LOCATION C4) IN CSECT (E44 E0 LENGTH 
482 ( ) ( ) (2) 85 IN ABSOLUTE. HEX VALUE(00000023) 
122 SINTL ADDRESS. HEX LOCATION (00900056) IN CSECT (E44 EO ) LENGTH (2) 154 683 698 711 806 
135 160 207. 208 09 2 4 814 916 66 IND ABSOLUTE. HEX VALUE (0000000E) 
95 $IOIN ADDRESS. HEX LOCATION(00000014) IN CSECT (E44E0 ) LENGTH (2) 459 
742 +809 918 880 INTBL ADDRESS. HEX LOCATION (00000704) IN CSECT (E44EO ) LENGTH (2) 
96 $ISB ADDRESS. HEX LOCATION (00000016) IN CSECT (EU4EO ) LENGTH €2) 911 
500 810 }»=85 766 INTER ADDRESS. HEX LOCATION(0000063A) IN CSECT(E44UEO ) LENGTH (2) 
124 $M XSL ADDRESS. HEX LOCATION(OQOO0005A) IN CSECT(E44ED ) LENGTH (2) 882 
171 775 INTET ADDRESS. HEX LOCATION(00000652) IN CSECT(E44EO } LENGTH(2) 
134 SPENT ADDRESS. HEX LOCATION (00000062) IN CSECT (E44EO ) LENGTH (6) 770 
56 172 187 68 1098 800 INTOK ADDRESS. HEX LOCATION (00000656) IN CSECT(E44E0 ) LENGTH (2) 
54 $PID ADDRESS. HEX LOCATION(00000000) IN CSECT(E44E0O ) LENGTH (4) 881 
687 922 1053 822 INTRX ADDRESS. HEX LOCATION(OQ0O0068C) IN CSECT(E44E0 ) LENGTH (2) 
1051 $PRNT ADDRESS. HEX LOCATION (000007E4) IN CSECT (E44 EO ) LENGTH (4) 820 
1612 1233 1e3e 521 717 43 845 849 982 806 INTR1 ADDRE 5, HEX LOCATION (00000664) IN CSECT(E44EO ) LENGTH (2) 
1063 $SPRN1 jADORESS. HEX LOCATION (00000812) IN CSECT (E44 EO ) LENGTH (2) 811 INTR2 BUDE RRBs HEX LOCATION (00000672) IN CSECT(E44EO ) LENGTH (2) 
1062 $PRN2 {ARDRESS- HEX LOCATION(OO00080E) IN CSECT (E44EO ) LENGTH (4) 819 INTR3 REDRESS: HEX LOCATION (00000686) IN CSECT(E44E0 ) LENGTH (2) 
138 SPUPD ADDRESS» HEX LOCATION (00000078) IN CSECT(E44UEO ) LENGTH (4) 871 IOBLK ADDRESS, HEX ratte adel St ha an Sober Eeey ) LENGTH (2) 
170 $PUPS ADDRESS. HEX LOCATION(000000D8) IN CSECT(E44EO ) LENGTH (6) 873 IODCB ADDRESS. HEX LOCATION(QOOQOO06FC) IN CSECT (E44 EO L LENGTH (2) 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000586 4cC27 706 TBT R4,CS) IS CS IN PROGRESS 824 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: * 
000588 1006 707 JOFF INTET * NO 825 * . 
00058A 4C68 708 TBTS {au cey TURN ON CYCLE STEAL INTER ERROR 826 * --> BAL CONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
00058C 6FOD 0040 709 MVW 7,CSTL8 SAVE CS ERR ISB VALUE, BITS 0-7 827 * --> BAL CONR, R6 BCH TO CONNECT * 
900530 C328 0041 710 BVE R3, CSTLE+1 * AND THE COND CODE 828 . --> BAL SCONP, R6 PREPARE DEVICE ONLY : 

BRANCH 
000596 4Cé61 712 INTET TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT 830 * RETURN CONTROL * 
000598 5007 713 J N BRANCH 4 831 * * 
319 ERE K ERE EEE EERE KEE EE ROE RR RRR EERE RK KEKE KKK KK EERE KEE EEK KK EK KOK Hee 4 BXS (R6) RETURN TO USER VIA REG 6 * 
*x * 
7J1i7 * SOUBROUTINE * BG HH EK KEE EEK RK KK KEK EKER KEKE EEKEKRKEKEEEK EKER KEEKKKKKEKE 
718 * * 000626 835 $CONP BOU * 
719 * OKAY INTERRUPT RUNS ON INTERRUPT LEVEL *SINTL! * 000626 4724 O61TE 836 MVA INTBL, R7 SET R7 TO CONTROL BLOCK AND 
720 * * 0O0062A 6014 837 SVC CICB * CONNECT IT TO THIS DEVICE 
721 * PURPOSE * 00062C 68C2 0000 838 B (R6) RETURN 
722 * * 000630 839 $CONC EQU * 
723 * TO CHECK THF INTERRUPT AND CONTINUE THE TEST * 000630 CB25 0012 840 MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
724 * * 000634 8828 0056 0616 841 $CONP MVW S$INTL, TODCB PUT IN LEVEL & INTR PARAMETER 
725 * CALLING SEQUENCE * 00063A 4724 0612 B42 MVA IOBLK, R7 SET R7 TO CONTROL BLOCK TO PREPARE 
726 * * 00063E 4020 0014 OTFF 843 MVWI X*O7FF', $I0IN INITIALIZE CONDITION CODE STORAGE 
727 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 000644 CB25 0016 B44 MVWZ $ISB,R * AND CLEAR OLD ISB VALUE 
728 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * 000648 6E0D 0018 845 MVW R6 LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
729 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 00064C 402E 0018 0004 846 SHI 4 LSTIO DECREMENT TO POINT AT INSTRUCTION 
730 * COMMON SECTION IS HANDLED HERE. * 000652 4324 0000 847 MVA $ID R3 LOAD ADDRESS OF START OF PROG 
731 * * 000656 CB2F 0018 848 SW R3,LSTIO SUB TO OBTAIN LISTING ADDRESS 
732 * RETURN CONTROL * 00065A 600C 849 SVC PREP * AND CALL ON SUPVR 
733 * * 00065C 68C2 0000 850 B (R6) RETURN 
734 * SVC EXIT RETURN TO USER VIA SUPVR * aed ~SS PS SEES ESE SES ELS SSE STE SET ES SE SSS SSS SSE SSS SSS STS SS SESE SSS TSS TS Se eee ee es | 
735 * * * * 
T36 Hk tI RRR ROR IK RRR IOI ROR HOR IORI RIOR IOI FOR RIOR I KR OIOfa kak to tt tote ak 854 * SUBROUTINE * 
00059A 706E 737 INTOK CPLSR R3 SAVE INDICATORS 855 * : 
00059C 336A 738 SRL 13, R83 POSITION INDICATORS IN R3 856 * COMMON COMPARE ROUTINE * 
00059E 4424 OO0E 739 MVA  OPTN1,R4 SET UP BASE ADRS 857 * * 
0O005A2 4C24 740 TBT {Re Xf) TEST EXPECTED ERROR BIT 858 * PURPOSE * 
0005A4 1001 741 JOFF INTR1 BRANCH IF OFF 859 * * 
QOO05A6 4C69 742 TBTS R4,GI SET GOOD INTERRUPT BIT 860 * THIS ROUTINE WILL ALLOW A COMMON COMPARE OF DATA THAT WAS * 
OOO5A8 4C63 743 INTR1 TBTS R4,IN SET INTERRUPT RECEIVED 861 * WRITTEN AND THEN READ BACK. IF THE COMPARE HAS BEEN DONE, THE * 
OOO5AA 4C27 7T4u TBT R4.CS IS "CS IN PROGRESS! ON 862 * ERROR LOGGING PORTION MAY BE USED BY ENTERING AT 'CMPP!. * 
OOOSAC 1204 W5 JON nth? * YES, BCH AROUND UPDATE 863 * THE READ BYTE COUNT IS USED FOR THE FIELD LENGTH. * 
OOOSAE C328 0015 746 MVB R3, SIOIN¢1 SAVE {INTERRUPTING CC CODE 864 * * 
0005B2 6F0D 0016 747 MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS 865 * CALLING SEQUENCE * 
0005B6 78B9 748 INTR2 CPCL R5 COPY INTERRUPT LEVEL TO CHECK 866 * * 
0005B8 3521 749 SLL 4,R5 POSITION INTR LEVEL AND PUT 867 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: * 
OOOSBA 0501 750 ABI 1,R5 * IN "I! BIT 868 * . 
0O05BC CD24 0056 751 CW SINTL, R5 IS THIS THE CORRECT INTR LEVEL 869 * --> BAL CMPU,R6 USE COMMON COMPARE FOR UNEQUAL VALUE* 
0005c0 1004 752 JE INTR3 * YES. GO EXIT THIS LEVEL 870 * --> BAL CMPP,R6 USE LOGGING PORTION OF COMPARE RTN * 
0005cC2 3521 753 SLL 4, R5 POSIT{ON RECEIVED LEVEL 871 * * 
0005C4 6DOD 0020 754 MVW r5, DEV34#2 STORE INTO DEV4 872 * RETURN CONTROL * 
0005C8 4Cc65 755 TBTS RG,LE SET INTR LEVEL ERROR CONTROL BIT 873 * * 
OOOSCA 4CA2 756 INTR3 TBTR RG, XI WAS INTERRUPT EXPECTED 874 * BXS £86) RETURN TO USER VIA REG 6 * 
0005cc 1201 757 JON NTR * YES, EXIT OFF THIS INTR LEVEL 875 * OR B PRNT PRINT ERROR * 
0005CE 4C60 758 TBTS R4 MI) * NO, SET MYSTERY INTR CONTROL BIT 876 * * 
0005D0 6006 759 INTRX SVC XI? EXIT THIS LEVEL VIA SUPVR TO PGM | B77 KR KK OK OK RK RK ROKR Kk KK kK OK kk kk tok kokok ok gk ikok gk RRO a kk idk tok ie ake afc age 
TG 7 KK KK KK KKK KKK KK KOK KK KK 878 * 
162 * 879 * COMPARE DATA FOR UNEQUAL 
763 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 880 * 
764 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 000660 6D08 O4A2 881 CMPU MVW WRADR,RS SET UP WRITE BUFFER ADRS 
765 * RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 000664 6B08 O4B2 882 MVW 8 8=RDADR, R3 SET UP READ BUFFER ADRS 
166 * 000668 6F08 O4BO 883 MVW RDBCT, R7 SET UP BYTE COUNT FOR COMPARE 
T67 20k OI OOOO III IIR IOI IORI RRO ORO ROI III IOI OR RR fOr i i i i otto ak 00066C 68C0O 0000 8B4 BZ R6 RETURN TO CALLER, BYTE COUNT ZERO 
0005D2 4c¢20 768 XIOCK TBT (Ra MI) TEST MYSTERY INTERRUPT 000670 2BA6 885 CFNEN be3} . (85) COMPARE DATA 
O005D4 1202 169 JON TORR BRANCH IF ON 000672 68Cc0 0000 886 BE R6 BCH IF DATA THE SAME AND RETORN 
0005D6 4C25 770 XIORT TBT Re LE) WAS AN INTR LEVEL ERROR FOUND 887 * 
0005D8 1002 7171 JOFF rocM * NO, CONTINUE CHECKING 888 * PRINT COMPARE ERROR 
OOOSDA 4Cé61 772 XIORR TBTS eh ER) SET ERROR CONTROL BIT ON 889 * 
0005DC 5010 173 J Tocy POSITION LEVEL TO BITS 12-15 000676 4C61 890 TBTS cae ER) SET ERROR CNTN BIT BECAUSE OF CMP ERR 
QOO5DE 4CAA 774 XIOCM TBTR  (R4, PE) WAS THIS A PROPABLE ERROR 000678 7724 891 CMPP MVW 7,h1 GET BYTE COUNT TO CONVERT 
0005EBE0 6AC0O 0000 775 BON R6f BRANCH IF YES QOO67A C1EO FFFE 892 MVB srs -2),R1 GET LAST GOOD COMPARE 
OOOSEX 4C24 7176 TBT RG, XE) WAS AN ERROR EXPECTED OO067E 3141 893 SLL R{ POSITION FIRST BYTE 
0005F6 1211 777 JN 1061 * YES, CONTINUE CHECKING 000680 71E4 894 MVW R41,R7 SAVE BYTE FOR NOW 
OOOSE8 4C27 7178 TBT {Ra CS) WAS AUTO CS IN PROGRESS 000682 C1EO FFFF 895 MVB R3 ~ 1) eR] GET BYTE THAT FAILED 
OOOSEA 1005 779 JOFF rocy * NO, CONTINUE CHECKING 000686 7920 OOFF 896 NWI 'OOFF',R1 REMOVE BIT 0-7 
QOOO5EFC 4C28 780 TBT Ra CE) Is c§ IN AN ERR CONDITION OO068A 7721 897 OW R7,R1 * AND GET 1 ST BYTE BACK 
OOOSEE 6800 O6EC 781 BOFF SRON * NO. BCH 00068C 690D OO1A 898 MVW R1,DEV1 STORE INTO DEV1 
OOOSF2 6802 O6FE 782 B SPRNT GO PRINT CS ERROR 000690 7564 899 MVW R5,R3 MOVE ADRS TO OTHER REG 
Q005F6 4C21 783 XIOCV TBT {Re ER) WAS ERROR INTR CONTROL BIT ON 000692 C1EO FFFE 900 MVB (R3 ~2),R1 GET LAST GOOD COMPARE 
0005PF8 1004 784 JOFF ro€x * NO, EXIT THIS ROUTINE 000696 3141 901 SLL R4 POSITION FIRST BYTE 
OOOSFA 6802 O4FC 785 XIOCcQ B XITocs-4 * AVAILABLE, GO AND GET IT 000698 7T1E4 902 MVW R1,R7 SAVE BYTE FOR NOW 
OOOSFE 6802 O6FE 786 xXxIocd B SPRNT PRINT FRROR Q0069A C1EO FFFF 903 MVB ie -1),R1 GET BYTE THAT FAILED 
000602 CB25 0012 787 XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS Q0069E 7920 OOFF 904 NWI 'OOFF',R1 REMOVE BIT 0-7 
000606 68C2 0000 788 B R6) RETURN TO USER VIA REG 6 OO06A2 7721 905 OW R7,R1 * AND GET 1 ST BYTE BACK 
QO060A 4C29 789 XIOGI TBT R4, GI) WAS GOOD INTERRUPT RECEIVED OOO06A4 690D OO0IC 906 MVW R1,DEV1#2 STORE INTO DEV2 
00060C 12F8 790 JON Toéy BRANCH YES OOO6A8 6802 O6FE 907 B SPRNT BRANCH TO PRINT ERROR 
OOO060E 68C2 0000 $4 B (R6) RETURN VIA R6 ee PEP ESE SESS SESE SSS LES CSL ES ESE SSE SESS TSS SSS Sete es ese eet ee ee CCSCLOSS SSL Se Se 
% * * 
Jae 4 I/0 PARAMETER LIST B45 : SUBROUTINE * 
* 
000612 0O04C 796 IOBLK DC A(SDVAD ADRS OF DEVICE ADRS 913 * SPECIAL ERROR CHECKING OF THE DCB * 
000614 0572 797 IOERR DC A (XIOER ERROR ROUTINE ADRS 974 * * 
000616 0000 798 IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 915 * PURPOSE * 
000618 0000 799 IOMOD DC A (*-* MODIFIER 916 * * 
00061A 0000 800 DC Al *-* ADRS OF LAST SVC CALL 917 * TO SET THE CONTROL BITS BEFORE ISSUEING THF I/0 COMMAND * 
00061C 0000 801 IORSP DC A(*-*% SECOND WORD OF LAST IDCB 918 * TESTING TO VERIFY THAT THE ERROR DID OCCUR, AND VERIFYING * 
802 * 919 * THAT THE RESIDUAL ADDRESS IS WHAT IT SHOULD BE. * 
803 * INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 920 * * 
804 * 921 * CALLING SEQUENCE * 
00061E 0O004C 805 INTBL DC A ($DVAD ADRS OF DEVICE ADRS 922 * * 

000620 059A 806 DC A(INTOK INTERRUPT OK RETURN ADRS 923 * --> BAL ERTST, R2 USE COMMOM ERROR TEST SUBRTN * 
000622 O57E 807 DC A (INTER INTERRUPT ERROR ADRS 924 * DC A (1) DISPLACEMENT FOR RESIDUAL ADRS * 
000624 0003 808 INTCC DC X*0003! INTERRUPT CODE EXPECT 925 * * 

810 «eee Ke ee ROR tok tok SO oR i ik tO bot kok doko tok ket kk 935 * RETURN CONTROL * 

811 * * * * 

ae : SUBROUTINE : 328 : BXS (R2, 2) RETURN TO USER VIA REG 2 * 
* 

B14 * CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE * G30 BEEK EERE KEE EEE EERE KEE KE KEE KEKE EE EERE EEE EK EEE EEE EK EE KE EEE 

815 * * OOO6AC 4C64 931 ERTST TBTS R4,XE SET EXPECTED ERROR FOR EACH FAULT 

816 * PURPOSE * QOOO6AE 4029 000C 0001 932 AWI ,$CKP INCREMENT CHECKPOINT 

817 * i 0006B4 6£03 0000 933 ERCAL BAL | GO XEQ r7o COMMAND 

818 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND * 0006B8 4C21 934 TBT ae ER) DID ERROR CONTROL BIT GET SET 

819 * PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * QOO06BA 1202 935 JON RTSV * YES,GO CKECK RESIDUAL ADDRESS 

820 * TO INTERRUPT. * 0006BC 936 CSADE EQU * 

821 * * OOO06BC 6802 O6FE 937 B SPRNT BRANCH TO PRINT ERROR 

822 * CALLING SEQUENCE * 938 * 

823 * * 0006CO AAO8 061C 939 ERTSV AW (R2) , IORSP DEVELOP DCB FRROR ADDRESS 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
SOUECA CEDS OO1S ne 344 HVUZ OPGNO Re. SERO OPTION WORD THREE © oS eee? yeas egy ee eee 
CA CE 
OOO6CE 4C6A 942 TBTS fra PE) SET PROBABLE ERROR 48 - REG. ABSOLUTE. HEX gator opceoese) 
0006D0 6E03 O4FC 943 BAL Toés-h, R6 REQUEST START CYCLE STEAL STAUTS 286 314 326 393 
0006D4 882B 0032 O6EA 944 CW CSTL1, ERTSZ TEST FOR CORRECT RESIDUAL ADDRS 0 -R1. ABSOLUTE. HEX VALUE See eo 57 267 aA a5 
OO06DA 1004 945 JE ERTSX : RESIDUAL ADDRESS OK a36 he neo eu 228 ao Ae 239 tat 
9006 DC 8828 O6EA 0020 246 MVW ERTSZ, DEV +2 WAS" REST UAL ADDRESS 835 896 aes 498 $36 so 505 863 AN 
OO06E4 4CAT7 948 ERTSX TBTR R4,CS RESET CS IN PROGRESS CNTL BIT 
OO06E6 4CAT 949 TBTR (fue RESET ERROR RECEIVED CONTROL BIT 0 ~R2. ABSOLUTE. HEX VALUE (00000002) a6 or d8G 594 
0006E8 5201 930 : BXS R2,2) OK, RETURN TO CALLER 384 484 386 489 394 394 396 335 404 
QO06EA 0000 932 ERTSZ DC A (*-*) EXPECTED RESIDUAL ADDRESS SAVE AREA ioe net: ne 436 44 ts rae wae tee 
OO06EC 6D08 0036 955 MVW CSTL3,RS5 GET CURRENT STATUS WORD 459 464 +82 rte 950 
OO006FO 1002 956 JZ CCRTP BCH IF NOTHING WRONG 0 -R3. ABSOLUTE. HEX art ) P : P 
0006F2 6802 O6FE 957 B SPRNT IF ERROR GO PRINT 553-556 oie 624 oer ee $23 $3 one 
OO06F6 4C21 958 CCRTP TBT gR4 ER) RESET THE ERROR CONDITION 677 a ae ne ne: a0 ae too aac 
O006F8 6A00 O6FE 959 BON PRAT F ON GO PRINT ee g a0 pga. 608 
0006FC 5600 960 BXS (R6) RETURN IF NO ERRORS 
962 ok OOO OR ORO iO tok kok otk kok iokokoiokiakokok totok te dk akotk okie kkk kok 0 eR4, neocnetss Bee eee eee. 465 457 een ail 
363 ; COMMON PRINT ERROR INTERFACE ROUTINE ?: 15 gis 620 35 eu 3 a 648 32 B53 
965 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 
966 * BRANCH IS TAKEN TO PRINT THE ERROR * 755 736 758 768 270 772 774 7176 778 
967 * ----> R4 LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 780 83 89 890 931 934 942 948 949 
968 * BRANCH IS TAKEN TO PRINT THE ERROR * 958 978 982 989 
969 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 0 ~RS. ABSOLUTE, HEX Se 
970 * BRANCH IS TAKEN TO PRINT THE ERROR * 153 157 uae 178 179 #180 8=8©181 308 310 
971 * ----> PRNTRTN THIS LABELED ADDRESS IN SYST PROG ID = D3410/SYST \ * 312 nae re} 350 224 378 G2 629 631 
972 * POINTES TO A COMMON ERROR OUTPUT AND FORMATTER ROUTINE* S22 TH gas eae ag jbo ee Li soe 
973 . WHICH WILL RETURN TO THIS PROG VIA REGISTER SEVEN ; Le 434 1092 1008 1D0e 0 985 
g76 AO IO Ga OO oii ii OG lob i tom oi ii RO x gi ig g Bok iodok doko 0 -R6. ABSOLUTE. HEX eT a 
OOO6FE 4624 0012 976 $PRNT HVA OPTN3,R6 LOAD ADDRESS OF OPTION WORD THREE Shas «She ee cee San CG ae- 564 Boa. aa 
000702 6D08 181E 977 HVW  PRNTREN,RS LOAD ADDRESS OF COMMON PRNT ROUTINE So8 o52 $3, 432 634 482 Sing ai 3 2 
000706 4424 0000 978 HVA $PID, LOAD ADDRESS OF START OF PROG 394 373 340 «463 ten ee 24 342 343 
OOO70A 4324 0042 979 MVA PCTR, R3 LOAD ADDRESS OF PASS COUNTER 36 356 3 48 ey aB4 gae 844 Le ae 
0OOO70E 6FA3 0000 980 BAL (RS) R7 BRANCH TO COMMON PRINT ROUTINE ee. ae 984 1006 1607 
000712 CE25 0012 981 HVHZ OPTN3,R6 ZERO OUT ALL FLAGS ae taee te A 
000716 4424 OOOE 982 HVA  OPTN1,R4 LOAD BASE ADDRESS FOR INDICATORS 0 -R7. Pe tababae i eae pe wc p ech dee. Sas ‘ “e 
00071A 802B 0232 0060 983 CB CPUTYPE, TYPE23 IS THIS A TYPE 23 PROCESSOR 13 336 é26 $2 685 682 Z ae 2 
000720 1803 984 JNE $PRN2 BRANCH IF NO 289 2 6 " 33 g 09 4 836 
000722 4524 E000 985 MVHIT X'E0OO',RS INIT LOOP COUNTER B42 883 89189 8 02) 905, 980, 1005 
000726 5002 986 J $PRN1 BRANCH 59 $CKPT ADDRESS. HEX ee A ees | IN CSECT (EYSEO 4 LENGTH (2) 
000728 4524 8000 987 $PRN2 MVHI X'8000',R5 INIT LOOP COUNTER V7 et 253) 3071 303 39) 341) 452, 932 
00072C 6002 988 $PRN1 SVC IDLE DELAY 839 $CONC oy mane T tual reagan oi cake ea IN CSECT(E45E0 ) LENGTH (1) 
ROUGE. ieace sngae 450 Se Co SuRuCcECyEe 835  $CONR ADDRESS. HEX LOCATION (00000626) IN CSECT(EUSEO ) LENGTH(1) 
Boars Be oon. 654 chic ae eeetce qow scne 120 $DVAD ADDRESS. HEX LOCATION (0000004C) IN CSECT(E45EO ) LENGTH (2) 
ROM BEGINING 
enehek “eave TNCs age Gees Ceaeed soso ceeeseeeeCeetsiwe cr ces peneseceeneces reekcscuess ibe Gad 123 $DVID RUpRESS alles LOCATION(00000058) IN CSECT(E45E0 ) LENGTH (2) 
* 
997 * TO MOVE THE STRING OF DC TO SET UP THE WRITE DCB : 122 $ENTL ADDRESS. HEX LOCATION (00000056) IN CSECT(EYSEO |) LENGTH (2) 
* 
336 : BAL SETWR, R6 BCH TO SET UP DCB % 95 SIOIN ADDRESS. HEX LOCATION(00000014) IN CSECT(E45E0 ) LENGTH(2) 
1000 * BAL  SETRD.R6 BCH TO SET UP DCB * ae 679 746 84 
1001 eG OO Ri OIG IORI BO i IO IO GI io Rai soi io Rook kok oko $ISB aur ah LOCATION (00000016) IN CSECT(E45E0 ) LENGTH (2) 
Bootie “eoge ee SAO ep eepeoen Sg 124  $HXSL ADDRESS. HEX LOCATION (0000005) IN CSECT(EUSEO ) LENGTH (2) 
GOnguaY Venta MGee ee Gee eeee Cait by nO TL eacah Gr bee 134  $PENT ADDRESS. HEX LOCATION (00000062) IN CSECT(E4SEO ) LENGTH(6) 
OOO74A 2EA4 1006 MVFN (R6), (R5) HOVE DCB 96 172 ~=6 187 —S 9 
00074C §&600 1007 BYS R6 RETURN 54 $PID ADDRESS, HEX LOCATION (00000000) IN CSECT (E45 £0 ) LENGTH (4) 
sees PEE CKE Oe Uke ENA REREEERS AGS 0615 eae eee a ee eee eeenns 976 S$PRNT ADDRESS. HEX ear ar ere hata | IN CSECT(E45E0 L LENGTH (4) 
1010 * ALPHANUMERIC BUFFER STORAGE, KEYBOARD PATTERN 219 468 654 680 782 86 907 937 957 
1011 SOICIOIO OR iG IO IGOR Gia tok io bok gi gO i fok i gg tok kodak kokok 959 
OOO74E 4040 4O4O40KO 1012 ALPH1 DC ce ‘ — 988 S$PRN1 Soe eae LOCATION (0000072C) IN CSECT (E45E0 ) LENGTH (2) 
THER . ~-O+ 
BOOTT ES SOUREULED ee AONE eee CIERUAEGR EE en ee DAR cron Bick SL, OR 987 $PRN2 ADDRESS. HEX LOCATION (00000728) IN CSECT(E4SEO ) LENGTH(4) 
e eonett e 
ROT eEe “DUVeTGEO et) aR ae pe; eaeeporcede 2, QUOTES, =, EXCLAIM 138  $PUPD ADDRESS. HEX LOCATION (00000078) IN CSECT(E45EO ) LENGTH(M) 
000792 4DF7F8F9404040404 1017 DC Cc" (789 t 225) 275 315 
OOO7A4 1019 WRBUF EQU * i? MAXIMUM WRITE BUFFER 170 $PUP8 aH HEX LOCATION(000000D8) IN CSECT(E45E0 ) LENGTH (6) 
eno eEs OOS OURO ORON ton RDBUF EQU rhe MAXIMUM READ BUFFER 154 $RETC NDDRES? HEX LOCATION(QOOOOO0OA8) IN CSECT(E45E0 ) LENGTH (2) 
@ t 
neoOne BONO OOS ONON ORS e505 RAD Shere 159 $SRETI ADDRESS: HEX LOCATION(O00000B4) IN CSECT(E45EO ) LENGTH (6) 
153 $RETN ADDRESS. HEX LOCATION (OOOQOQO0A4) IN CSECT(EUS5EO ) LENGTH (4) 
187 $RTAD ADDRESS. HEX LOCATION(00000104) IN CSECT(E4SEO ) LENGTH (2) 
58 $SRTNE ADDRESS, | EX LOCATION (0000000) IN CSECT (E45E0 ) LENGTH (2) 
144 $TERM ADDRESS. HEX LOCATION (00000080) IN CSECT (EUSEO ) LENGTH (6) 
164 $TER1 ADDRESS. HEX LOCATION (000000CC) IN CSECT(E4U5E0 ) LENGTH (4) 
1013 ALPHA ADDRESS, | HEX LOCATION (00000754) IN CSECT(E45EO ) LENGTH (42) 
1012 ALPH1 ADDRESS. HEX LOCATION (O000074E) IN CSECT (EUS5EO ) LENGTH (6) 
958 CCRTP ADDRESS. HEX LOCATION (O00006F6) IN CSECT(E45EO ) LENGTH (2) 
90 CE ABSOLUTE. HEX VALUE (00000028) 
458 614 708 780 
38 CICB ABSOLUTE. HEX VALUE (00000014) 
881 CMPU ADDRESS. HEX, LOCATION (00000660) IN CSECT(EG5E0 ) LENGTH (4) 
50 CPUTYPE ABSOLUTE. HEX VALUE (00000232) 
306 344 638 983 
488 CRDCB ADDRESS, HEX LOCATION (00000484) IN CSECT(E45EO ) LENGTH(1) 
89 cs ABSOLUTE. HEX VALUE (00000027) 
457 615 618 4 948 
9 36 CSADE ADDRESS. HEX LOCATION(OO0006BC) IN CSECT(EGSEO ) LENGTH(1) 
108 CSBUF ADDRESS, HEX LOCATION (00000032) IN CSECT(E4U5EO0 ) LENGTH (1) 


B4SEO --~ SYSTEM TEST EXERCISOR FOR THE 4978 DISPL PW=4414313 EC=755104 PAGE 06 E45EO --- SYSTEM TEST EXERCISOR FOR THE 4978 DISPL PN=4414313 EC=755104 PAGE O6A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAHE ATTRIBUTES AND REFERENCES DECLARED WAME ATTRIBUTES AND REFERENCES 
526 CSDCB ADDRESS. HEX LOCATION(000004B4) IN CSECT(E45E0 ) LENGTH(1) 42 RICB BEOOLUTE: HEX VALUE (00000013) 
954 CSRTN ADDRESS. HEX LOCATION(OOO006EC) IN CSECT(EUSEO ) LENGTH(1) 47 RID ABSOLUTE. HEX VALUE (00000009) 
109 CSTL1 ADDRESS. HEX LOCATION (00000032) IN CSECT(E45EO ) LENGTH(2) 254 RIPL2 BE peee sy HEE. Docat ton cecgooncn) IN CSECT(E4SEO ) LENGTH (6) 
111 CSTL3 ADDRESS, HEX LOCATION (00000036) IN CSECT(E45EO ) LENGTH (2) 260 RIPLY ADDRESS. HEX LOCATION (000001DA) IN CSECT(E4520 ) LERGTH(6) 
116 CSTL8 ADDRESS. HEX LOCATION (00000040) IN CSECT(E45EO ) LENGTH (2) 267 RIPLS ADDRESS. HEX LOCATION (000001F8) IN CSECT(E45E0 ) LENGTH(6) 
462 DC BCK ADDRESS. HEX LOCATION (0000045a) IN CSECT (E4520 L LENGTH (4) 269 RI PL6 ADDRESS. HEX LOCATION(00000200) IN CSECT(E45EO ) LENGTH (6) 
381 386 391 396 401 06 411 #416 421 261 
426 431 437 4&1 4 275 RIPL7 ADDRESS. HEX LOCATION(0000021C) IN CSECT(E45EOQ ) LENGTH (4) 
451 DCBSU ADDRESS. HEX LOCATION(0000043E) IN CSECT(E45EO ) LENGTH(2) 3 270 
436 440 204 RTO1 ADDRESS. HEX LOCATION (00000110) IN CSECT(E45EO ) LENGTH (4) 
100 DCBUF ADDRESS. HEX LOCATION (00000022) IN CSECT(E45EO ) LENGTH (2) 188 
626 234 RTO2 ADDRESS. HEX LOCATION(00000172) IN CSECT(E4SEO ) LENGTH (4) 
98 DEV1 ADDRESS. HEX LOCATION (0000001A) IN CSECT(E45EO ) LENGTH(2) 189 
178 179 898 906 284 RTO3 ADDRESS, HEX LOCATION(00000220) IN CSECT(E45EO ) LENGTH (4) 
99 DEV3 ADDRESS. HEX LOCATION (0000001B) IN CSECT(E45E0 ) LENGTH (2) 190 
Por ee ee ee ae 218 en 67 er eee ee Seana 324 RTO4 ADDRESS. HEX LOCATION (00000298) IN CSECT(E4SEO ) LENGTH (4) 
;: N CSECT ENGTH 
560 aaah, ( ) 373 RTOS ADDRESS. HEX LOCATION (00000316) IN CSECT(E45EO ) LENGTH (4) 
83 ER ABSOLUTE. HEX VALUE (90000021) 192 
ae eae Oo cet Suey ehcapton Boreoenan 49 pee 8o ‘ : 1002 SETRD ADDRESS. HEX LOCATION (0000073E) IN CSECT(E4SEO ) LENGTH (4) 
: cs E G 
378 ( as . yee se 1004 SETWR ADDRESS. HEX LOCATION(00000744) IN CSECT(E45EO ) LENGTH(4) 
931 ERTST ADDRESS. HEX LOCATION (O0QQQ6AC) IN CSECT (E4520 \ LENGTH (2) 240 291 331 375 100 
322 384 389 394° 399 04 09 414 419 348 SHDN2 ADDRE S. X LOCATION (000002FC) IN CSECT(E4SEO ) LENGTH (4) 
939 ERTSV ADDRESS. HEX LOCATION (000006C0) IN CSECT(E45EO ) LENGTH(4) 349 SHDN3 ADDRESS, HEX LOCATION(00000300) IN CSECT(E45EO ) LENGTH (2) 
948 ERTSX ADDRESS. HEX LOCATION (OOQ006E4) IN CSECT(E45EO ) LENGTH (2) 339 SHDNG ADDRESS. HEX LOCATION (000002D6) IN CSECT(E4S5EO ) LENGTH (6) 
952 ERTSZ ADDRESS, HEX LOCATION (000006 EA) IN CSECT(E45EO ) LENGTH(2) 310 SHUP2 ADDRESS. HEX LOCATION (00000284) IN CSECT(E45EO ) LENGTH (4) 
39 EXIT ABSOLUTE. HEX VALUE (00000006) 311 SHUP3 ADDRESS, HEX LOCATION(00000288) IN CSECT(E4SEO ) LENGTH (2) 
36 E45E0 CSECT. START(00000000) LENGTH(2116) ESDID(0) 301 SHUP4 ADDRESS, HEX LOCATION (0000025E) IN CSECT(E4SEO ) LENGTH (6) 
91 GI ABSOLUTE. HEX VALUE (00000029) 4y START ABSOLUTE. HEX VALUE (0000000A) 
125 HOO000 ADDRESS. HEX LOCATION(0000005C) IN CSECT(E45EO ) LENGTH (2) 45 TERM ABSOLUTE. HEX VALUE (00000007) 
126 HOOO01 ADDRESS. HEX LOCATION(0000005E) IN CSECT(E45E0 ) LENGTH(2) 65 TM ABSOLUTE. HEX VALUE (00000003) 
oi as eee Be yy eee {200000 82) 127 TYPE23 ADDRESS, HEX LOCATION (00000060) IN CSECT(E4SEO ) LENGTH (2) 
85 IN ABSOLUTE. HEX VALUE (00000023) 509 WRADR ADDRESS, HEX LOCATION (000004A2) IN CSECT(E45SEO ) LENGTH (2) 
805 INTBL ADDRESS. HEX LOCATION (0000061E) IN CSECT(E45EO ) LENGTH(2) 508 WRBCT POUR E SS tet r pe orton woop ooU aL ay CSECT(E4SEO ) LENGTH (2) 
703 INTER ADDRESS. HEX LOCATION({O000057E) IN CSECT(E45E0 ) LENGTH(2) 1019 WR BUF SORES Snes ee IN Cee one ) LENGTH (1) 
712 INTET ADDRESS. HEX LOCATION(00000596) IN CSECT(E45EO ) LENGTH (2) 502 WRCTL AERO oa cnee LOCATTON (00000494) IN CSECT(E4SEO ) LENGTH (2) 
737 INTOK ADDRESS. HEX LOCATION(0000059A) IN CSECT(E45SEO ) LENGTH (2) 501 WR DCB eRe aa LOCATION (00000494) IN CSECT(E45EO0 ) LENGTH (1) 
759 INTRX ADDRESS. HEX LOCATION(000005D0) IN CSECT(E45EO ) LENGTH(2) 505 WRHLA ADDRESS. HEX LOC ATION (00000494) IN CSECT(E45EO ) LENGTH(2) 
743 INTR1 ADDRESS, ,HEX_ LOCATION (000005A8) IN CSECT(EG5EO ) LENGTH(2) 503 WRPOS ADDRESS. HEX LOCATION (00000496) IN CSECT(E45EO ) LENGTH (2) 
748 INTR2 ADDRESS. HEX LOCATION (000005B6) IN CSECT(E45E0 ) LENGTH (2) 504 WRPRE ADDRESS tek Boe ntT OU COeeoceaelaas i rial ra ) LENGTH (2) 
756 INTR3 ADDRESS. HEX LOCATION(000005CA) IN CSECT(E45EO ) LENGTH(2) 506 WRSHF ADDRESS, HEX LOCATION (0000049C) IN CSECT(E45EO ) LENGTH (2) 
796 IOBLK ADDRESS. HEX LOCATION (00000612) IN CSECT(E45EO ) LENGTH(2) 86 XE ABSOLUTE. HEX VALUE (00000024) 
146 150 16 3 7 64 451 740 77 931 
798 IODCB ADDRESS. HEX LOCATION (00900616) IN CSECT (E45E0 L LENGTH (2) 84 xI ABSOLUTE. HEX VALUE (00000022) 
145 160 161 550 £552 58 560 616 £627 151 643 756 
841 612 XIO ADDRESS. HEX LOCATION(O00004F6) IN CSECT(E45EO ) LENGTH(4) 
797 IOERR ADDRESS. HEX LOCATION(00000614) IN CSECT(E45EO0 +) LENGTH (2) 351 957 = 559 
134 «144 0~CS~aNKDS—C«§ 768 XIOCK ADDRESS. HEX LOCATION (000005D2) IN CSECT(E4S5EO ) LENGTH (2) 
799 IOHKOD ADDRESS. HEX LOCATION(00000618) IN CSECT(E45E0 ) LENGTH (2) 621 636 64 
san Soeer 148 ose ag : 12 617 none hoes 774 XIOCH ADDRESS. HEX LOCATION (O000005DE) IN CSECT(E45E0 ) LENGTH(2) 
- HE TIO C) IN CSECT(EUSE LENG 
215 217 500 ( ) aes 558 XIOCR ADDRESS. HEX LOCATION (OOOOO4EO) IN. CSECT(E4SEO ) LENGTH(6) 
209 ITST2 ADDRESS. HEX LOCATION(0000012A) IN CSECT(E45EO ) LENGTH(6) 235 285 325 374 
223 6 16 XIOCS ADDRESS. HEX LOCATION (00000500) IN CSECT(E45EO0 ) LENGTH (6) 
220 ITSTS5 ADDRESS. HEX LOCATION(00000158) IN CSECT(E45EO ) LENGTH (4) 456 785 943 
216 786 XIOCU ADDRESS. HEX LOCATION(QOOOOOSFE) IN CSECT(E45E0 ) LENGTH (4) 
87 LE ABSOLUTE. HEX VALUE (00000025) 773 +790 
755 __770 783 XIOCV ADDRESS. HEX LOCATION(OOO005F6) IN CSECT(E45E0 ) LENGTH (2) 
88 LI ABSOLUTE. HEX VALUE(00000026) 779 
653 787 XIOCX ADDRESS. HEX LOCATION(00000602) IN CSECT(E4SEO ) LENGTH (4) 
97 LSTIO ADDRESS. HEX LOCATION (00000018) IN CSECT(E45EO ) LENGTH(2) 784 
622 623 625 845 846 48 677 XIOER ADDRESS. HEX LOCATION(00000572) IN CSECT(E45EO ) LENGTH(2) 
82 MI ABSOLUTE. HEX VALUE (00000020) 134 7 
758 768 789 XIOGI ADDRESS. HEX LOCATION (0000060A) IN CSECT(E4SEO ) LENGTH(2) 
61 OPTN1 ADDRESS. HEX _LOCATION(OOQQ0000E) IN CSECT(E45EO ) LENGTH(2) 777 
138 = =©705 ~—-739 552 XIORD ADDRESS. HEX LOCATION (QO00004CC) IN CSECT(E45EO ) LENGTH (6) 
70 OPTN3 ADDRESS. HEX LOCATION(00000012) IN CSECT(E45EO ) LENGTH(2) 304 342 
454 787 840 94 1 772 XIORR ADDRESS. HEX LOCATION(Q00005DA) IN CSECT(E4SEO ) LENGTH(2) 
117 PCTR ADDRESS. HEX LOCATION (00000042) IN CSECT (E45£E0 ) LENGTH (2) 769 
136 979 550 KIOWR ADDRESS. HEX LOCATION (00QQO4CU) IN CSECT(E45EO ) LENGTH (6) 
92 PE ABSOLUTE. HEX VALUE (0000002a) 220 255 302 34 7 53 
455 774 94 622 XIO1 ADDRESS. HEX LOCATION(00000514) IN CSECT(E4SEO ) LENGTH (4) 
41 PREP ABSOLUTE. HEX VALUE(0000000C) 562 613 
163 849 635 XI02 ADDRESS. HEX LOCATION(0000053C) IN CSECT(E45EO ) LENGTH (2) 
49 PRNTRTN ABSOLUTE. HEX VALUE(0000181E) 619 
977 642 XIO5 ADDRESS. HEX LOCATION(00000552) IN CSECT(E4SEO ) LENGTH(2) 
522 RDADR ADDRESS. HEX LOCATION(000004B2) IN CSECT(E45EO ) LENGTH(2) 639 
882 643 XI06 ADDRESS. HEX LOCATION (00000554) IN CSECT(E45SEO ) LENGTH (2) 
521 RDBCT ADDRESS. HEX LOCATION (OO0004B0) IN CSECT(E45EO ) LENGTH (2) 641 
265 273 883 645 XI08 ADDRESS. HEX LOCATION (00000558) IN CSECT(E45E0 ) LENGTH (2) 
1021 RD BUF ADDRESS. HEX LOCATION (000007 Fu IN CSECT(E4S5SEOQ ) LENGTH (1) 651 
514 RDDCB ADDRESS. HEX LOCATION(OO0004A4) IN CSECT(E45E0 ) LENGTH(1) 
2462 552 1002 EKER KE KK KK KK KR KR RRO kook ok kK TD AST PAGE KOR KOK OK OK ORK RK OK dO ROK KK KKK 40K KK a 
46 RESET ABSOLUTE. HEX VALUE (00000008) 
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EG48EQ --- SYSTEM TEST EXERCISOR FOR THE 4964 DISKE PN=1635244 EC=754882 PAGE 03 E48EO --- SYSTEH TEST EXERCISOR FOR THE 4964 DISKE PH=1635244 EC=754882 PAGE O3A 


LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBH CORP 1976 LOCTR OBJECT TEXT STHT SOURCE STATEHENT COPYRIGHT IBH CORP 1976 
0O0046A 0000 474 DC FIQ? HOT USED 000502 4324 0000 589 VA SPID,R3 LOAD PROG START ADDRESS 
00046C 0000 472 DC F'o? NOT USED 000506 CB2F 0018 590 Bu R3, LSTIO SUB TO OBTAIN LISTING ADDRESS 
OOO46E 0000 473 pc Ft? NOT USED 00050A 4324 0022 591 IVA DchUP, R3 SET UP TO ADRS TO HOVE DCB TABLE 
000470 0000 G74 DC Ftgoe NOT USED QOOSOE 6D08 OSFA 592 Hvg TODCB, R5 * AND THE FROH ADRS, ALONG WITH 
000472 0000 u75 pc F'ge NOT USED 000512 OF10 593 HVBI 16,R7 * THE HUHBER OF HOVES 
000474 0004 476 DC —- X 0004" 2 WORDS OF STATS 000514 2D64 594 HVFT §R2) §R3) HOVE DCB TABLE 
000476 0032 477 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 000516 OBFF 29 HVB 55,8 CLEAR CYCLE STATUS BUFFER 
478 000518 4524 0032 596 HVA CSBOF,RS5 x TO ALL ONES # 
W799 ***%a READ DCB ahe oe ae ae ate ae 00051C OF10 597 HVBI 16,87 od 
uso * 00051E 2BAC 238 FFE R3, (R5) ut 
000478 2009 481 RDDCB DC x?2009! READ DCB CONTROL HORD 599 % 
00047A 0000 482 DC F'Q? NOT USED 000520 4CA3 600 XI02 TBTR fR4 Ih) CLEAR INTERRUPT RECEIVED CNTL BIT 
00047C 0000 483 DC Poe HOT USED 000522 1249 601 JOW ToéK BRANCH IF OW 
00047FR 0000 4ey pc x*Qo000° SFARCH ARGUMENT N-C 000524 4724 O5F6 604 HVA IOBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
000480 0101 uas DC X'01018 SEARCH ARGUMENT H-R 000528 802B 0232 0060 603 CB CPUTYPE, TYPE23 CHECK FOR PROCESSOR 23 
000482 0000 486 DC A (#-¥*) CHAIN ADDRESS 00052E 1803 698 JNE XTO5 BRANCH NOT EQgae 
000484 0010 “87 DC A 16) BYTE COUNT 000530 4524 C000 6 HVHI X*C000*,R5 LOAD LOOP COUNT 
000486 O06Cc4 488 DC A (RDBUF) READ DATA ADDRESS 000534 5001 606 J 306 BRANCH 
ugg x 000536 75AA 607 xIOo5 gy R5,R5 LOAD LOOP COUNT 
000488 6D08 0034 491 CSRTN MVW CSTL2,R5 LOAD SECOND WORD OF CS DATA 000538 4C62 683 XI06 BTS zh XT) SET EXPECTED INTR CONTROL BIT 
00048C 1002 492 JZ CCRTP BRANCH IF ZERO 00053A 600A 60 SVC TART CALL SUPVR FOR I/0 CONHAND 
OOO48E 6802 0684 493 B $PRNT BRANCH TO PRINT ERROR 00053C 6002 610 XIO8 SYC IDLE ALLOW OTHER PROG TI 
000492 4¢C21 494 CCRTP TBT ee ER) IS ERROR BIT ON 00053E 4C03 611 THT 83 TM) IS TERHINATE BIT ON 
000494 6A00 0684 495 BON Prit BRANCH TO PRINT IF YES 000540 6A00 OO8A 6i2 BON TERM BRANCH IF ON 
000498 5600 496 ~BXS (R6) RETURN OOO54&4 4CA3 61 TBIR sea IN) HAS INTERRUPT BEEN RECEIVED 
498 =e OO ia a dala iok dog gia dea gai kot take ak ak a ake eae a a a ate ee 000546 1237 614 JON TOK * YES, CHECK IF ALL WAS SATISFACTORY 
499 * EXECUTE INPUT & OUTPUT COMMANDS * 000548 T7DA1 0001 615 AWI 1,85 ADVANCE TIHE OUT COUNT 
500 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. * O0054C 18F7 618 JNZ xf08 BCH IF TIME OUT NOT REACHED 
501 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER * QOOO54E 4C61 e} TBTS (R4,ER SET ON ERROR CONTROL BIT 
502 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE * 000550 4C66 618 TBTS R4,LI SET ON LOST INTERRUPT CONTROL BIT 
503 * SUPVR CALL. M 000552 6802 0684 619 B PRAT BRANCH TO PRINT ERROR 
504 * * 621 ee a Ke eK KK Ee KK KE RK KOK aK KK KK KK Ka 
505 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: * 622 * * 
506 * a * eg * SUBROUTINE * 
507 * 1 BAL SEEK, R6 SEEK * 624 * * 
508 * 2 BAL RECL, R6 RECALIBRATE * 622 * I/O EXECUTE ERROR HANDLING ROUTINE * 
509 * 3 BAL RDID, R6 READ SECTOR ID % 626 * * 
510 * & BAL RD, R6 READ * 627 * PURPOSE * 
511 * 5. BAL FMT, RG FORMAT * 628 * * 
B12 AGGIES RO Ia ai io iok tek 629 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 
OOO49A 4020 OSFA 0458 513 $SEEK MVA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 630 * PROBLEM THAT WAS FOUND WHEN THE 170 COMMAND WAS ISSUED BY THE * 
OCOO4AO 501C 514 XIO BRANCH 631 * SUPERVISOR AND IT WAS NOT ACCEPTED. * 
QOOO4A2 4020 OSFA 0428 515 $RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 632 * % 
0OO004A8 5018 516 IO BRANCH 633 * CALLING SEQUENCE rs 
OOOSAA 4020 OSFA 0448 517 $RDID HVA RSDCB, LODCB SET UP BLOCK FOR SVC CALL 634 * * 
0004B0 4020 OO1A FFFF 518 MVWI X'FFFE® SCTID INVALIDATE SECTOR ID BUFFER AREA 635 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND * 
0004B6 4020 001C FFFF 519 MVWI X*FFFF',SCTID+¢2 et ae a1 ut er ; 636 * * 
OOO0O4BC SOOE 520 J XIO BRANCH 637 * RETURN CONTROL Ps 
COO4BE 4020 OSFA 0478 521 SRD MVA RDDCB, IODCB SET UP BLOCK FOR SVC CALL 638 * x 
0004C4 OBFF 522 MVBI 255,R3 INIT READ BUFFER TO FF'S 639 * B SPRNT DUMP STATUS BEFORE TERMINATION * 
0004C6 4524 06c4 523 MVA_—s- RDBUF, RS * ts 640 * * 
OOOUCA 4724 0010 524 MVWI 16,R 54 ere 6 7 i We Me ae he he ae ake ah a ee he a HK ee Me eK ee He ae ake ea he a he ak ke ae ae af fe ke ae he ae ake ke fe af fe ak af 2 ake ie ak 2h 2c ake fe fe ake akc ake ae fe eae ake ak 
OOO4CE 2BAC 525 FFN R3, (R5) * ve 000556 T706E 642 XIOER CPLSR R3 SAVE CONDITION CODE ON I/0 ERROR 
0004D0 5004 526 J XI BRANCH 000558 336A 643 SRL 13, R83 POSITION CC CODE TO BITS 13-15 
G004D2 4020 OSFA 0438 527 SFMT HVA FRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL QO0055A C328 0014 644 NVB R3,SIOIN * PUT IN LOG OUT AREA 
0004D8 5000 528 BRANCH 00055E 6802 0684 645 BRANCH TO PRINT ERROR 
530 RIOR RR ORI IORI IO BO RIO ki tak dokk gk kk dk kg a a ae a ae ake ae a ok ae ne ee ee Teta eee A Own eRe ee eee E SCORE TEE CRIA SEC ELT ee 
531 * * ” 
232 2 SOUBROUTINE * oa} : SOUBROUTINE * 
* * 
234 : EXECUTE INPUT AND OUTPUT COMMANDS : 681 : ERROR INTERRUPT RUNS ON INTERRUPT LEVEL ‘$INTL® : 
238 ? PURPOSE * G33 : PURPOSE % 
*e 4 
538 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. * 655 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 
539 * THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: * 656 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * 
540 * * 657 * EXPECTED CODE, * 
541 * 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 658 * * 
542 * THE I/O COMMAND. * 659 * CALLING SEQUENCE * 
543 * 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS * 660 * Ps 
54q4 * ISSUED BY THIS SUBROUTINE. * 661 * SUPVR WILL ENTER WHEN AN ERROR OCCURS OW AN I/O INTERRUPT * 
545 * 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE * 662 * * 
546 * START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. * 663 * RETURN CONTROL 2 
547 * 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 664 * * 
548 * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 665 * SVC EXIT RETURN TO USER VIA SUPVR * 
549 * MYSTERY INTERRUPT (MT) CONTROL BIT IS SET. % 666 * # 
550 * 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7 SET THE * : 667 kA tok RRO KR RRR kk RR RR RK OR I i i ak ak ak ok ake a ae ake fe 
551 * EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'SvG START. * 000562 706E 668 INTER CPLSR R3 SAVE INDICATORS 
552 * 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING * 000564 336A 669 SRL 13,R3 POSITION INDICATORS IW R3 
553 * STARTS TO DETERMINE A LOST INTERRUPT. x, 000566 4424 ODODE 670 MVA OPTN1 RY SET UP BASE ADRS 
554 * 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF #* | QO0056A 4C27 671 TBT {RA c§) IS CS IN PROGRESS 
555 * WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * 00056C 1006 672 JOFF NTET * NO 
556 * 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. x OOO56E 4C68 673 TBTS R4,CE TURN ON CYCLE STEAL INTER ERROR 
557 * 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * 000570 6FO0D 0040 674 MVW 7,CSTL8 SAVE CS ERR ISB VALUE, BITS 0-7 
558 * 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. * 000574 C328 0041 675 MVB R3,CSTL8+1 * AND THE COND CODE 
559 * 11. CHECK IS A CYCLE STEAL OPERATION WAS £N PROGRESS THAT WAS * 000578 5009 676 J INTR BRANCH 
560 * ISSUED BY THIS SUBROUTINE. * OOO57A 4C61 677 INTET TBTS R4, ER) SET ERROR ON I/O COMMAND CNTL BIT 
561 * 12. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A * 00057C 5007 678 J N BRANCH 
562 * CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON,* G BO HK 2 he ke Fe a ae ee he a 2 2K OK fe 2 a fe 2h 2 ade fee ae ake ate fe a ak ake 2 ae ake 2k a of eka ke ake a of fe ak ae ake ake ae ac ae ae ae ake ae af af ade ake ae a ake ake fe 
563 * COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. * 681 * * 
564 * % 682 * SOUBROUTINE * 
282 * Serf eee ; tr . OKAY INTERRUP $ : 
T RUNS ON INTERRUPT LEVEL ‘$INTL* * 
567 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: * 685 * * 
568 * * 686 * PURPOSE x 
569 * -=-> B XIO XEQ ANY CYCLE STEAL COMMAND, MOD=0 * 687 * x 
270 : --> BAL XIOCS, R6 XEQ START CYCLE STEAL STATUS, MOD=F eee : TO CHECK THE INTERRUPT AND CONTINUE THE TEST * 
x 
242 . RETURN CONTROL * 639 : CALLING SEQUENCE * 
* 
574 * BXs (R6) RETURN TO USER NO ERROR x 692 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED % 
575 oR RR OR OO ro ok io dao sok dado kak adi todek i tek ak a ak foi ok i ak ic ate ie ake 693 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * 
OOO4DA CB25 O5FC 577 XxIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 694 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 
OOO4DE 500C 578 J XIO1 BRANCH 695 * COMHON SECTION IS HANDLED HERE. * 
OOO4EO 4CAB 579 TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 696 *° * 
COO4E2 4C67 580 TBTS R4G,CS SET "CYCLE STEAL STATUS! IN PROGRESS 697 * RETURN CONTROL * 
OOO4E4 4020 OSFA 0468 581 XIOCS MVA SDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 698 * * 
OOO4EA 4020 O5FC OOOF 582 MVWI xX*'OOOF*, TOMOD SET CYCLE STEAL MODIFIER 699 * SVC EXIT RETURN TO USER VIA SUPVR * 
OOO4FO 4C27 583 TBT R4,CS) IS CS IN PROGRESS, ERROR CONDITION 700 * * 
OOOUF2 1216 584 JON TO * YES, BYPASS SAVING 1/0 ADRS 701 2 OO CO GOR iO 2 I ORR OR i iO i ia daa OR IOI IO ck 
OOO4UF4 4CA3 585 TBTR (Ro IN) HAS INTERRUPT OCCURED 00057E 706E 702 INTOK CPLSR R3 SAVE INDICATORS 
OOO4F6 125F 586 JON 10cK BRANCH YES 000580 336A 703 SRL 13, R3 POSITION INDICATORS IN R3 
OOOUFS 6EOD 0018 587 XIO1l MVW R6, LSTIO SAVE LIAR 000582 4424 OOOE 704 HVA OPTN1,R4 SET UP BASE ADRS 
OOO4UFC 402E 0018 0004 588 SWI 4,£STIO DECREMENT TO LOCATE INSTRUCTION 000586 4cC24 705 TBT (R4, XE) TEST EXPECTED ERROR BIT 
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000588 1001 706 JOFF INTR1 BRANCH IF OFF 824 * * 
00058A 4Cc69 707 TBTS (R4,GI SET GOOD INTERRUPT BIT 825 * TO SET THE CONTROL BITS BEFORE ISSUEING THE 1/0 COMMAND * 
00058C 4c63 708 INTR1 TBTS (R4G;SIN SET  LNTERRUPT RECETVED 826 * TESTING TO VERIFY THAT THE ERROR DID OCCUR, AND VERIFYING * 
00058E 4C27 7109 TBT R4-CS IS ‘cS IN PROGRESS* ON 827 * THAT THE RESIDUAL ADDRESS IS WHAT IT SHOULD BE. * 
000590 1204 710 JON NTR? * YES, BCH AROUND UPDATE 828 * * 
000592 C328 0015 711 MVB RI, SIOIN+ 1 SAVE INTERRUPTING CC CODE 829 * CALLING SEQUENCE x 
000596 6FOD 0016 712 MVW  R7,$I SAVE INTR STATUS AND DEV ADRS 830 * * 
00059A 78B9 713 INTR2 CPCL R5 COPY INTERRUPT LEVEL TO CHECK 831 * --> BAL  ERTST,R2 USE COMMOM ERROR TEST SUBRTN * 
00059c 3521 714 SLL 4,R5 POSTTION INTR LEVEL AND PUT 832 * DC A (1) DISPLACEMENT FOR RESIDUAL ADRS * 
00059E 0501 715 ABI 1.R5 * IN I Bit 833 * * 
0005A0 CD24 0056 716 CW SINTL, RS IS THIS THE CORRECT INTR LEVEL 834 * RETURN CONTROL * 
OOO5a4 1004 717 JE INTR * YES, GO EXIT THIS LE 835 * * 
O0O05A6 3521 718 SLL 4,R5 POSITION RECEIVED LEVEL- 836 * BXS (R2, 2) RETURN TO USER VIA REG 2 * 
0005A8 6DOD 0020 719 MVW R5,DEV3+2 STORE INTO DEV4 837 * * 
OOO05AC 4C65 720 BTS RG, LE SET INTR LEVEL ERROR CONTROL BIT 838 Semae ome? og cane err eae car een ease n test eee ett e se teee 
OOOSAE 4CA2 721 INTR3 TBTR er XI WAS INTERRUPT EXPECTED 000644 4c64 839 ERTST TBTS (Peeks SET EXPECTED ERROR FOR EACH FAULT 
0005B0 1201 7122 JON WTRX * YES, EXIT OFF THIS INTR LEVEL 000646 4029 000c 0001 840 AWL EKp INCREMENT CHECKPOINT 
0005B2 4C60 7123 TBTS (Ra MI) * NO, SET MYSTERY INTR CONTROL BIT 00064C 6E03 0000 841 ERCAL BAL at GO XEQ I70 COMMAND 
0005B4 6006 724 INTRX SVC XI EXIT THIS LEVEL VIA SUPVR TO PGM 000650 4c21 842 TBT 7 ER) DID ERROR CONTROL BIT GET SET 
726 ee he ae ie a Rc ae ae ai oe aha 2k ah afc fc 2 af ac afc ae he ae fe af 2K fe ak age a ah ae ae oe af ae ae aft cafe ae afc af af af oe ake ake ake eke ake ae fe ake ae ok ae ak ae ak ak ate ade ae ae af 000652 1202 843 JON ERTSY b4 YES,GO CKECK RESIDUAL ADDRESS 
727 * 000654 844 CSADE EQU 
7128 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 000654 6802 0684 B45 5° SPRUT BRANCH TO PRINT ERROR 
729 * HAS BEEN SERVICED, THE EXERCISER FINDS AN INTERRUPT HAS BEEN B46 * 
730 * RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 000658 AAO8 0600 847 ERTSV AW 4 3 IORSP DEVELOP DCB ERROR ADDRESS 
731 * 00065C 8828 0600 0682 848 MVW g, ERTSZ SAVE DCB ADRS FROM SUPER BLOCK 
732 Re 2k ae aie 2 ake aie ae fe He ae eK a 2 he 2 i a he a af a kk fe a af ake 2 akc af ofc fe afc 2c ae afc ae ake atic fe ake a afe ake ake fe ae ae ae ake ake afc ak fe af afc ake ade ofc oft ae fe aie ae af ake aie afc ake fe 000662 CE25 0012 B49 MVWZ ZERO OPTION WORD THREE 
0005B6 4c20 733 XIOCK TBT R4, MI) WAS THERE AN UNEXPECTED INTERRUPT 000666 -4C6A 850 TBTS (ad SET PROBABLE ERRO 
0005B8 1214 734 JON rocu BRANCH IF YES 000668 6803 O4EO 851 BAL ea: REQUEST START CYCLE STEAL STAUTS 
OOOSBA 4C25 735 TBT (Ea LE) WAS AN INTR LEVEL ERROR FOUND 00066C 882B 0032 0682 852 CW erry BR SZ TEST FOR CORRECT RESIDUAL ADDRS 
OOOSBC 1002 736 JOFF XTOCK * NO, CONTINUE CHECKING 000672 1004 853 JE ERTSX RESIDUAL ADDRESS OK 
OOOSBE 4Ccé1 737 TBTS (Ra ER) SET fRROR CONTROL BIT ON 000674 8828 0682 0020 854 MVW  ERTSZ,DEV3+2 'WAS* RESIDUAL ADDRESS 
0005c0 5010 738 J toéu BRANCH 00067A 5O0EC 855 J CSADE’ BRANCH 
0005C2 4CAA 739 XIOCM TBTR (R4,PE) WAS A PROBABLE ERROR EXPECTED 00067C 4CAT 856 ERTSX TBTR (R4,C RESET CS IN PROGRESS CNTL BIT 
0005c4 6AC0 0000 740 BON R6) BRANCH YES O0O067E 4CAT 857 TBTR (ROVER RESET ERROR RECEIVED CONTROL BIT 
0005C8 4c24 741 TBY R4,XE) WAS AN ERROR EXPECTED 000680 5201 858 BXS EU ER OK, RETURN TO CALLER 
OOO5CA 1211 742 IN Toé1 * YES, BRANCH 859 * 
0005CC 4C27 743 TBT fra CS) WAS AUTO CS IN PROGRESS 000682 0000 860 ERTSZ DC A (*-*) EXPECTED RESIDUAL ADDRESS SAVE AREA 
OOOS5SCE 1005 T4Hy JOFF roéy * NO CONET NGS CHECKING 862 HE Re ae He ahe ai a f af ak afe eof 280 2 af he ae aK i af fe i ae ate af 2 ate ae ae ae af alk ac ake fe aie ac 2c af ake ae ae ae ak 2k oe oe fe fe ake ae ae ae aie af ade ake ak ate a a ake ae af ake ake aie abe ae 
0005D0 4c28 745 TBT R4, CE) Is aS rN AN ERR CONDITION 863 * COMMON PRINT ERROR INTERFACE ROUTINE * 
0005D2 6800 0488 746 BOFF CSREN CH 864 * * 
0005D6 6802 0684 747 B $PRNT GO MP bee CS ERROR 865 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 
OOO5DA 4C21 748 XIOCV TBT (ea ER) WAS ERROR INTR CONTROL BIT ON 866 * BRANCH IS TAKEN TO PRINT THE ERROR * 
0005DC 1004 749 JOFF xX1o0cx * NO, EXIT THIS ROUTINE 867 * ----> RG LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 
OOO5DE 6802 O4EO 750 xIocQ B XIOCS-4 2* AVAILABLE, GO AND GET IT 868 * BRANCH IS TAKEN TO PRINT THE ERROR * 
0005E2 6802 0684 751 XIOCU B $PRNT PRINT OR’ 869 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE me 
0005E6 CB25 0012 752 XIOCX MVWZ OPTN3,R3 CLEAR GRR OPTION 3 CNTL BITS 870 * BRANCH IS TAKEN TO PRINT THE * 
OOOSEA 68C2 0000 153 R6 RETURN TO USER VIA REG 6 871 * ----> PRNTRTN THIS LABELED ADDRESS IN SYST ( Roc ID = D3410/SYST \ * 
OOOSEE 4c29 754 XIOGI TBT R4,GI) WAS A GOOD INTERRUPT RECEIVED 872 * POINTES TO A COMMON ERROR OUTPUT AND FORMATTER ROUTINE* 
0005FO 12F8 7155 ON tocu YES BRANCH 873 * WHICH WILL RETURN TO THIS PROG VIA REGISTER SEVEN nie 
O005F2 68C2 0000 7156 (R6) RETURN 874 * 
758 * | B75 Me He fe Ye ae ae Ne af he fe ae ae ae ae af fe of ae ae ae 2k fe ae ae ae ae 8 a ak i ake ake ake ake ak aie ae 2k ae a ake ak ae aie fc ak af aie ae ak aie ike afc at ake a ake fe ae af a ak ae ae ae afc ate ate ae age 
759 * I/O PARAMETER LIST 000684 4624 0012 876 $PRNT MVA OPTN3,R6 LOAD ADDRESS OF OPTION WORD THREE 
760 * 000688 6D08 181E 877 MVW PRNTREN,RS LOAD ADDRESS OF COMMON PRNT ROUTINE 
0005F6 004Cc 761 IOBLK DC A($DVAD ADRS OF DEVICE ADRS 00068C 4424 0000 878 MVA PID, LOAD ADDRESS OF START OF PR 
O0OO5F8 0556 762 IOERR DC A(XIOER ERROR ROUTINE ADRS 000690 4324 0042 879 MVA  PCTR,R3 LOAD ADDRESS OF PASS COUNTER 
OOO5FA 0000 763 IODCB DC A (#-* DCB ADRS OR LEVEL & ILNTR 000694 6FA3 0000 880 BAL (RS) R7 BRANCH TO COMMON PRINT ROUTINE 
0005FC 0000 764 IOMOD DC A (#=% MODIFIER 000698 CE25 0012 88 1 MVWZ OPTN3,R6 ZERO OUT ALL FLAGS 
OOO5FE 0000 7165 DC A (*#~% ADRS OF LAST SVC CALL 00069C 4424 OOOE 882 MVA  OPTN1.R4 LOAD BASE ADDRESS FOR INDICATORS 
000600 0000 766 IORSP DC A k+% SECOND WORD OF LAST IDCB 0006A0 802B 0232 0060 883 CB CPUTYDE, TYPE23 IS THIS A TYPE 23 PROCESSOR 
167 * 0006A6 1803 884 JNE  $PRN2 BRANCH IF NO 
168 * INTERRUPT CONTROL BLOCK FOR I/O COMMANDS OO06A8 4524 BO0O0O0 885 MVWI X'EOOO',RS INIT LOOP COUNTER 
769 * OO06AC 5002 886 J $PRN1 BRANCH 
000602 0O04Cc 770 INTBL DC A ($DVAD ADRS OF DEVICE ADRS OOO6AE 4524 8000 887 $PRN2 MVWI X'8000',R5 INIT LOOP COUNTER 
000604 O57E 771 INTO1 DC A(INTOK INTERRUPT OK RETURN ADRS 0006B2 6002 888 $PRNI SVC IDLE DELAY 
000606 0562 772 INTO2 DC INTE INTERRUPT ERROR ADRS 0006B4 4c03 88 TBT {Ra TM) SHOULD PROG TERMINATE 
000608 0003 773 INTCC DC 00038 INTERRUPT CODE EXPECTED 0006B6 6A00 OO8A 890 BON TERM BRANCH YES 
775 We 2H aie He Me he he af ea ake af ae af she ae fe a fe afc 8c i a ake ae ak 2X 2 ate ate afc of fe age ae a af af ae a ade ae ae ak age ae ae af ae a ade ae of ae ke ake af ake af af ate ae fc ake ae af fe fc af ac OOO6BA 7TDA1 0001 891 AWI q R5 INCREMENT LOOP COUNTER 
176 * 2k OOO6BE 18F9 892 INZ SPRNI BRANCH NOT ZERO 
777 * SUBROUTINE a 0006CO 6802 0066 893 B PENT BRANCH TO RESTART FROM BEGINING 
778 * * 0006C4 00000000000000000 9894 RDBUF DC XL16"00! 16 BYTES OF READ BUFFER 
719 : CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 000066 895 END $PENT 
781 : PURPOSE : 
7183 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND x 
78q * PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * 
785 * TO INTERRUPT. * 
7186 * x 
187 * CALLING SEQUENCE : 
789 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: . 
791 * --> BAL CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
792 * --> BAL CONR, R6 BCH TO CONNECT * 
733 : --> BAL CONP, R6 PREPARE DEVICE ONLY : 
139 * RETURN CONTROL . 
73) * BXS (R6) RETURN TO USER VIA REG 6 * 
199 BEE GIOIA IO IO IG OIG I TORR RIS i foi iO noir foi tak fake ei i 
00060A 800 $CONR EQU * 
099 OA 4734 0602 801 A EREBL, R7 SET R7 TO CONTROL BLOCK AND 
QOOO60E 6074 802 vc ICB * CONNECT IT TO THIS DEVICE 
000610 68C2 0000 803 B gre) RETORN 
000614 804 $CONC E90 
000614 CcB25 0012 805 WZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
000618 8828 0056 OSFA 806 $CONP SV@ $INTL,IODCB PUT IN LEVEL 6 INTR PARAMETER : 
0006 z 4724 0 F6 807 MV TOBLK R SET R7 TO CONTROL BLOCK TO PREPARE 
0006 4020 0014 O7FF 808 MVWI S 7FF*, $IOIN INITIALIZE CONDITION CODE STORAGE 
628 CB25 R016 809 MVWZ S$ISB,R3 * AND CLEAR OLD ISB VALUE 
6 C GE D 018 810 KVY R6, LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 
6 4 E 0 18 0004 811 SW 4 £stI0 DECREMENT TO POINT AT INSTRUCTION 
96 6 43 900 812 HV A 6D, R3 LOAD ADDRESS OF START OF PROG 
A 6CB2F 061 8 SW R3,LSTIO SUB TO OBTAIN LISTING ADDRESS 
96 F 69 Cc 844 S¥C PREP * AND CALL ON SUPVR 
64 8C2 0000 8 3 B $86) RETURN 
8 ME Me ah he Me Me whe Re he he he a ee he ae aie ae oe eae he he he ch eH ee eee ah Ne ah ah ea he Me a hc a eh ah 3c ae ae ae ae eae a eC a ok 
818 «* * 
819 * SUBROUTINE : 
a : SPECIAL ERROR CHECKING OF THE DCB : 
8 4 * PURPOSE * 
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ans Bae ge oe ee 491 CSRTN RDDRESS. HEX LOCATION(00000488) IN CSECT(E4SEO ) LENGTH (4) 
ES EPH as ae a Se Meese cree tee 
; ae 157523525, 547989) 590 591 S94 595 . ae 91 i ae oa IN sista | and 
711752 805, B09 Bag Bs 873 i. ee 78 87 HEX SEAR AOE IN en een | caer 
anc Tage '143 “Teo Fes” 208, 268 340 342 ugK re a eee HEX yocatzo9 (00900015 IN chen seh soon 
moe ae age ae BSTESS, HEX pgcamsgy(OOgHGO ED gH SECT | 
S06. 940 goa oak aay ge age 8d 88 101 DEVY ADDRESS, HEX, Location (00000020) IN CSECT(E4U8EO ) LENGTH (2) 
poe? eae ane, eo, eee, Aone seem Be Ee 416 DIFF ADDRESS, HEX LOCATION (O0QQO4IC) IN CSECT(BYSEO LENGTH (2) 
0 .R5. ABSOLUTE. HEX VALUE(Q0000005) 9, 5) ge ae 
585 598 996 $98 605 607 oY 845 743 oe: DIR ee ae ee 
Aaa. eS NS ND BE B80) BED: 08! 418 EN DEX ADDRESS. HEX LOCATION (00000420) IN CSECT(E48EO ) LENGTH (2) 
oss Howogg, wep snt0g 20009896) ay any as a3 smn EBfoua amy, Yet0g (90009020) ayy 
Sey: Sa9,. See “See “Sen. Soe. en “Soe chee 841 ERCAL ADDRESS. HEX LOcanEON(009GG6UC) » fn CSECT(E48EO ) LENGTH(4) 
I a I Sc a 839  ERTST ADDRESS. HEX LOCATION (00000644) IN CSECT(E48EO ) LENGTH(2) 
0 -R7. Beat ea nee a ge 847 ERTSV eBpREsS. HEX LOCATON (00000658) IN CSECT(E48EO ) LENGTH(4) 
140.150 159.171 «2173 «174«4176—~C—i<‘Tsi ADD 
A eT AR ce a A 856 ERTSX ADDRESS. HEX LOCATION(0000067C) IN CSECT(E48EO ) LENGTH (2) 
60 SCKPT Beg eae eg per ae aa eae So ET) 860 ERTSZ ADDRESS, HEX LOCATION (00000682) IN CSECT(E48EO ) LENGTH (2) 
804  $CONC ADDRESS, HEX LOCATION(00000614) IN CSECT(BUGEO ) LENGTH (1) - eae ABSOLUTE: HEX VALUE(00000006) 
806 $CONP ADDRESS; HEX LOCATION (00000618) IN CSECT(E48EO ) LENGTH (6) a anaes CS8cr. stART(00000000) LENGTH (17%8) ESDID(0) 
800 SCONR pratense ee HOC AE LON COUOOUE AN ESECECENOEO. -)-EeNOTH CY 313. +FINIS ADDRESS. HEX LOCATION (000002B6) IN CSECT(E48EO ) LENGTH (6) 
122 SDVAD RE Eo o eat et eke wee ec) ACER |) PENG E(2) 363 FINS ADDRESS. HEX LOCATION (00000368) IN CSECT(E4B8EO ) LENGTH (4) 
125 $DVID BOR ee eae Hoorn ON CUUROUD Ey ae SECT CENGED: y MEENGTA (2) 4 36 FR DCB ADDRESS, HEX LOCATION(00000438) IN CSECT(E48EO ) LENGTH (2) 
527  $FMT ADDRESS. HEX LOCATION(000004D2) IN CSECT(E48EO ) LENGTH(6) 92 GI ABSOLUTE, HEX VALUE (00000029) 
154 $IDL ADDRESS. HEX LOCATION (0000009A) IN CSECT(E4SEO ) LENGTH (2) cae ee ADDRESS. HEX LOCATION (00000214) IN CSECT(BUBEO ) LENGTH (6) 
124 SINTL Reg aeS ger ap oan uae ore nee: ete) 352 Go1 ADDRESS. HEX LOCATION (00000338) IN CSECT(E48EO ) LENGTH (6) 
96 SIOIN BO ag eg ngeh rece Coo o oe lal 2h Coben (eteee. - o CPNGrH (2) 127 HO000 ADDRESS. HEX LOCATION (000000SC) IN CSECT(E48EO ) LENGTH(2) 
97 ST SB See gee rae Ceo oe aver ere een tReORO” yi. ENGTHA2) 128  H0001 ADDRESS. HEX LOCATION(0000005E) IN CSECT(E4SEO ) LENGTH (2) 
126  $MXSL ADDRESS. HEX LOCATION(0000005A) IN CSECT(E48EO ) LENGTH (2) ioe. “eae ABSOLUTE, HEX VALUE(00000002) 
138 «= SPENT ADDRESS, HEX LOCATION (00000066) IN CSECT(E48EO ) LENGTH (6) oar ABSOLUTE, HES VALUE (00009023) 
W42 SPETN oer nm Hed mec BILTON CORUM CT OR SN COREE CESEEO 6 oh PENG THA) 770 INTBL ADDRESS. HEX LOCATION(00000602) IN CSECT(E48EO ) LENGTH (2) 
55 SPID eer aes no encore ton COCNQIOUN) 2h Caper Eyee: F REnGT a) 668 INTER ADDRESS. HEX LOCATION (00000562) IN CSECT(EUGEO ) LENGTH(2) 
nn oe ee ee oy suet firm temo ineton comme} ae 
ae eek ee a ee ee OR 724 INTRX Mileeee: HEX aE a IN CSECT(ES8EO ) LENGTH(2 
a cea Be ee ee ee ee 708 INTR1 ee wee: HEX LOCATION see IN CSECT (E48EO LENGTH 
144  $PUPD ADDRESS, HEX LOCATION(00000082) IN CSECT(E4SEO ) LENGTH(4) 713 R2 ADD Oe REE IN ei, | nai 
eee NR ee 721 — 3 i ea HEX sR CnrCr aaa IN eae | eae 
521 $RD ADDRESS. HEX LOCATION (000004BE) IN CSECT(E48EO ) LENGTH(6) . INTR ADD . . panacea eo - eee ) ee He 
ce, ee 261, 62. 091288 007 Oe ae an es ie + a ty Se. ee 
515 $RECL ADDRESS. | HEX LOCATION (000004A2) IN CSECT(E48EO ) LENGTH (6) ITODCB 156 ite 40 EGE eae re SEC ( et shy (2) 
163 $RETC ADDRESS. HEX LOCATION (000000BA) IN CSECT(E48E0 ) LENGTH (2) $eo? aan ADDRESS, HEX LOCATION (00000SF8) IN CSECT(EW8EO ) LENGTH (2) 
168 $RETI ADDRESS, HEX LOCATION(000000C6) IN CSECT(E48EO ) LENGTH (6) a. ees ADDRESS. HEX LOCATION (OOOOOSFC) IN CSECT(ENBEO ) LENGTH (2) 
162 $RETN ADDRESS. HEX LOCATION (000000B6) IN CSECT(E48EO ) LENGTH (4) réé ToRee ADDRESS, HEX LOCATION (00000600) IN CSECT(EY8EO ) LENGTH (2) 
196 SRTAD Rog eee em cok pre COO OU TAC) ae COEeE CENOED 1) BENGRE (A) 234 ITST1 ADDRESS. HEX LOCATION (0000017C) IN CSECT(B48EO ) LENGTH(6) 
39 SRINE Meera ange an ee ee eNO ee Ye DENSI HZ) 230 ITST2 ADDRESS. HEX LOCATION (00000164) IN CSECT(E48EO ) LENGTH (6) 
5130 SSEEK RODEO Se HEN Urea eNO ocoue eget CSEG eterno. hy HEGTH(O) 221 ITST4 ADDRESS, HEX LOCATION(00000142) IN CSECT(E48EO ) LENGTH (2) 
150 STERN POD Rees ag Orne an CoeN oon) au CS BCI NESE: Bene) 220 ITST6 ADDRESS. HEX LOCATION (0000013E) IN CSECT(E48EO ) LENGTH (4) 
173. $TERI ADDRESS. HEX LOCATION (000000DE) IN CSECT(BU8EO ) LENGTH (4) Bae. ae RESOLUZE, HEX VALUE (00000025) 
494  CCRIP ADDRESS. HEX LOCATION(00000492) IN CSECT(E4GEO ) LENGTH(2) aa ee SSsoLuRe. HEX VALUE (00000026) 
2 CE pooeuie Haz Eatue (oueyeoze) 268 LOOP ADDRESS. HEX LOCATION(000001EC) IN CSECT(E48EO ) LENGTH(2) 
28 Cree BESO CURES: HEX NEUE oreo) 342 Loop ADDRESS. HEX LOCATION (0000030E) IN CSECT(E48EO ) LENGTH(2) 
oe cence BOO RES Bg tee ROC ATLONCOCOQUNZE) aN PaRCe (RESEO” oy PERGTHC?) 98 LSTIO ADDRESS. HEX LOCATION (00000018) IN CSECT(E4BEO ) LENGTH (2) 
51 CPUTYPE ABSOLUTE, HEX VALUE (00000232) 83 MI ABSOLUTE, HEX VALUE(00000000) -'. °° 
90 cS ABSOLUTE, HEX VALUE (00000027) 420 ONE ADDRESS: HEX, LOCATION(00900424) IN N CSECT(E48EO ) LENGTH(2) 
844 CSADE ADDRESS. HEX LOCATION(00000654) IN CSECT(E48EO ) LENGTH(1) ore AobResS, “wex Locarign (00000008) 1 TeSECe(RUGED? “4. LEeNGEae) 
410 Ceeue Peete eae ae POCRs TON COCNOCUSe) SU Roe URNOE: Je PENerat) 71 OPTN3 ADDRESS. HEX LOCATLOM (0000 00012) IN CSECT(E48EO ) LENGTH(2) 
470 CSDCB ADDRESS. HEX LOCATION(00000468) IN CSECT(E48EO ) LENGTH(2) 152 805 849 876 #881 
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DECLARED NAME ATTRIBUTES AND REFERENCES 
119 PCTR ADDRESS. HEX LOCATION (00000042) IN CSECT(E48EO ) LENGTH({2) 
93 PE ABSOLUTE. HEX VALUE (00000024) 
41 PREP ABSOLUTE, HEX VALUE (0000000C) 
50 PRNTRIN ABSOLUTE. HEX VALUE (0000181E) 
894 RD BUF ADDRESS. HEX, LOCATION (000006C4) IN CSECT(EG8EO ) LENGTH(16) 
481 RDDCB ADDRESS. HEX, LOCATION (00000478), IN CSECT (E4SEO ube uENGTH (2) 
407. 408 $412 521 
43 RELSD ABSOLUTE. HEX VALUE (00000017) 
42 REQSD ABSOLUTE. HEX VALUE(00000016) 
47 RESET ABSOLUTE. HEX VALUE (00000008) 
421 REVR ADDRESS: HEX LOCATION(00000426) IN CSECT(E48EO ) LENGTH(2) 
44 RICB ABSOLUTE, HEX VALUE (00000013) 
48 RID ABSOLUTE. HEX VALUE(00000009) 
447 RSDCB ADDRESS. HEX LOCATION (00QQO448) IN CSECT (E4SEO gh EENGTH (2) 
517 
361 RTY23 ADDRESS. HEX LOCATION (00000360) IN CSECT(E48EO ) LENGTH(4) 
307 RTY33 ADDRESS. HEX LOCATION(0000029A) IN CSECT(E48EO ) LENGTH(4) 
213 RTO1 ADDRESS. HEX LOCATION (00000126) IN CSECT(E48EO ) LENGTH(4) 
255 RTO2 ADDRESS. HEX LOCATION (Q0Q001AA) IN CSECT(E48EO ) LENGTH(4) 
309 RTO21 ADDRESS. HEX LOCATION (000002A2) IN CSECT(E48EO ) LENGTH(6) 
311 RTO22 ADDRESS. HEX LOCATION(000002AC) IN CSECT(E48EO ) LENGTH (6) 
328 RTO3 ADDRESS. HEX LOCATION(000002C4) IN CSECT(E48EO ) LENGTH(4) 
378 RTOY ADDRESS. HEX LOCATION (0000036C) IN CSECT(E48EO ) LENGTH(4) 
99 SCTID ADDRESS. HEX LOCATION (000QQ01A), IN CSECT (E48 EO aby hENGTH (2) 
518 519 
458 SKDCB ADDRESS. HEX, LOCATION (00000458) _IN CSECT (EYSEO ah g LENGTH (2) 
$39 285 286 287 289 295 296 329 330 
331 344 345 350 352 353 513 
276 SKREV ADDRESS. HEX LOCATION(0000020A) IN CSECT(E48E0 ) LENGTH(6) 
350 SKRV ADDRESS. HEX LOCATION (0000032E) IN CSECT(E48EO ) LENGTH(6) 
U5 START ABSOLUTE. HEX VALUE (0000000A) 
130 SVCAL ADDRESS. HEX LOCATION (00000062) IN CSECT(E48E0 ) LENGTH(2) 
46 TERM ABSOLUTE. HEX VALUE (00000007) 
66 TM ABSOLUTE. HEX VALUE (00000003) 
129 TYPE23 ADDRESS. HEX LOCATION (00000060) IN CSECT(E48EO ) LENGTH(2) 
87 XE ABSOLUTE, HEX VALUE (00000024) 
705. 741 + ~—-839 
85 XI ABSOLUTE. HEX VALUE (00000022) 
577 XIO ADDRESS, HEX LOCATION (000Q04DA) IN CSECT(E48EO ) LENGTH(4) 
733 XI OCK ADDRESS. HEX LOCATION (000005B6) IN CSECT(E48EO ) LENGTH(2) 
739 XIOCM ADDRESS. HEX LOCATION (000005C2) IN CSECT(E48EO ) LENGTH(2) 
581 XIOCS ADDRESS: HEX LOCATION (QO0004E4) IN CSECT(E48EO ) LENGTH(6) 
751 XIOCU ADDRESS. HEX LOCATION (000005E2) IN CSECT(E48EO ) LENGTH(4) 
748 XIOCV ADDRESS. HEX LOCATION(O000005DA) IN CSECT(E48EO ) LENGTH(2) 
752 XIOCX ADDRESS. HEX LOCATION (000005E6) IN CSECT(E48EO ) LENGTH(4) 
642 XIOER ADDRESS, HEX LOCATION (00000556) IN CSECT(E48EO ) LENGTH(2) 
754 XIOGI ADDRESS. HEX LOCATION(QOOOO05EE) IN CSECT(E48EO ) LENGTH(2) 
587 XI01 ADDRESS. HEX LOCATION (QO0004F8) IN CSECT(E48EO ) LENGTH(4) 
600 X1I02 ADDRESS. HEX LOCATION (00000520) IN CSECT(E48EO ) LENGTH(2) 
607 XI05 ADDRESS. HEX LOCATION (00000536) IN CSECT(E48EO ) LENGTH(2) 
608 XI06 ADDRESS. HEX LOCATION (00000538) IN CSECT(E48EO ) LENGTH(2) 
610 XIO8 ADDRESS. HEX LOCATION(0000053C) IN CSECT(E48E0 ) LENGTH(2) 
417 XXX ADDRESS. HEX LOCATION (O000041E) IN CSECT(E48E0 ) LENGTH(2) 
419 ZERO ADDRESS. “HEX Loca on (00000422) IN CSRer (E48 £0 ) LENGTH (2) 
262. 271 #2287 #301 °~# 311 360-344 345 


SCC OOOO IGOR igdoigk i iuoigiaiciccmickdokiokk LAST PAGE 


We ee he 2 ie 2 2c a ee 2 fe 2h 2c 2k a a 2h af af 2g aie fe ate af oe a af ake coe af ofc af ac afc akc a ke oc a oe oe ak 


E50EQ --- SYSTEM TEST EXERCISOR FOR THE TIMER PN=1635247 EC=754882 PAGE 01 E50E0 --- SYSTEM TEST EXERCISOR FOR THE TIMER PN=1635247 EC=754882 PAGF OTA 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
CET tit itt ttt ttt rt TT Tt TTT TT TTT TST TT TTT TTT TILT TT TTT TTT LT CST TLL LTT LT Te 00003E 0000 120 CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 
4“ * * 000040 0000 121 CSTL8 DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 
5 * kK PREREQUISITES kK * 000042 00000000 122 PCTR DC 2A (*- PASS COUNTER 
6 * * 000046 00000000 123 ECTR DC 2A (*-* ERROR COUNTER 
7 * NONE * QOOOO4UA 0005 124 ERNUM DC X*0005 NOM OF ERRORS ALLOWED BEFORE TERM 
8 * * 00004c 0050 125 $DVAD DC x*00508 DEVICE ADDRESS BEING TESTED DEV = 0 
Mert tttttt tT ttt TTT ttt ttt tT TTT TTT TT TTT TTT TTS TS TT TT TTT TS TS LTS Te LST Te ee eee ee TY OOO004UE 0000000000000000 126 pc X¥L8'008t 
10 * * 000056 0050 127 $DAD DC x*0050°8 DEVICE ADDRESS BEING TESTED DEV = 1 
11 * eK MODIFICATIONS KK * 000058 0000000000000000 128 DC XL8*' 008 
12 * * 000060 0011 129 INTL DC Xx'0011°8 INTERRUPT LEVEL Beton ee 
13 * IMPROVEMENTS MADE TO RESPONSE TIME * 000062 0028 130 $DVID DC X'00288 DEVICE IDENTIFICATION 
14 * * 000064 0007 131 $MXSL DC ate ah MAXIMUM SELECTABLE ROUTINES 
V5 (HR 2 2 ake ae 2c ake fe ae oie 3c oe ae 2K i 2 aK 2 ae ak 2 29 2 C2 ke a 2c ic a ic 2c ic a af ac iC a 2 ie ak af 2c afc afc ake a afc afc afc af ae ac afc ake af af fe ale ok af ode ae fe af 2c afc af ake 000066 0000 4132 HOOOO Dc x*'oo Of CONSTANT 
16 * * 000068 0001 133 HOOO1 DC X*00018 HEX WORD CONSTANT 
17 * KK REA*S INCORPORATED * KK * QOOO06A 2300 134 TYPE23 DC X*230058 CONSTANT TO CHECK PROCESSOR AGAINST 
18 * * VG ee fe a eK he i 2 i 2 he ek a i Rafe ok ae ok a kak ake ake ok kk i ok ik ok ok 
19 * NONE * 137 * * 
20 * * 138 * PROGRAM CONTROL FUNCTIONS * 
VENTE SETS TS SL TLE SS TTT TTS TESST SS TT SS ST TST TTS STS SST SST STS SLT SS Te STS StS St SS SS 139 * * 
22 * * EVE TES SS ST SST TESTES SST TTL TSS SSS STS SS ST SS SS SSS PSS SSS STS LS ST SCS eS See Lee. Ss 
23 * 1 kk SPECIAL INSTRUCTIONS kK * 00006C 4020 0630 05B2 141 SPENT MVA XIOER,IOERR INIT ERROR ADDRESS DEV 0 
2u * 5 000072 4020 0644 O5B2 142 MVA XIOER. IOER INIT ERROR ADDRESS DEV 1 
25 * NONE * 000078 4020 0060 0011 143 MVWI X*0011" $INTL INIT INTERRUPT LEVEL 
26 * x OOOO7E 4424 OOOR 144 MVA OPTN1, R4& LOAD ADDRESS OF OPTION WORD ONE 
27 AOI IOI IO IO I IOI I RI a IK a a a i a I aK ak ak aii ake ak kak akc ak ak ae fete ake gle ak ai ke a kek 2c 000082 4cOD 145 TB nt gbEs) HAS THIS ROUTINE BEEN RUN 
28 * * 000084 123F 146 JON PEK BRANCH YES 
29 * 22K E. C. HISTORY KK * 000086 4C4D 147 TBTS ant QUES) TURN ON INDICATOR 
30 * 5 000088 C320 OO04C 148 MVB DVAD R3 LOAD ASSIGNED DEV ADDRESS 
31 * DATE 010CT76 DATE OGMAY77 DATE 15SEP77 DATE * O00008C 7B64 FFOO 149 RBTWLI X'FFO6' R3 ZERO HIGH ORDED BITS 
32 * E.C. 578468 E.C. 578756 E.C. 754882 E.C. * 000090 7B61 Q001 150 AWI X*0001',R3 ADD ONE TO DEV ADDRESS 
33 * 000094 C328 0056 151 MVB R3,SDAD STORE AS ADDRESS FOR DEV 1 
CPG SST TESTE SS SPSS TS SESS SETS SSS SS SES SS SSS SSS STS SS SPSS SSS SSS SS SS SSL SL SSS SS SS 000098 4“d2Cc 0058 8000 152 OWL x'80008 $DAD+2 TURN ON ASSIGNED BIT 
000000 36 E50E0 START X*0000! OOO0O09E 8028 OO04C 0489 153 MVB $DVAD, RVCTO MOVE DEV ADDRESS TO ALL LOCATIONS 
37 x* SUPERVISOR EQUATES OOOOAG 8028 O04C 049T 154 MVB SDVAD,RMCTO —-_-_ HK me ee ee ee e+ 
000014 38 CICB kEQU 20 CONNECT INTERRUPT CONTROL BLOCK QOOOOAA 8028 O04C 0499 155 MVB $DVAD, RSCTO x oo + + 
000006 39 EXIT EQU 6 EXIT INTERRUPT LEVEL 0000B0 8028 OO4C O4AT 156 MVB $DVAD,STCTO KO ene ee ee ee 
000001 4Q OUTIN EQU 1 OUT MESSAGE WITH EXPECTED RESPONCE OOO0O0B6 8028 O04C O4AYI 157 MVB S$DVAD, WVCTO KR we a a a ee ee 
OOOO01A 41 HTOE EQU 26 CHANGE HEX DATA TO EBCDIC DATA OOO0OO0BC 8028 OO4C DOUBT 158 MVB $DVAD, WMCTO KO wm we a ne we 
000002 4Y2 IDLE EQU 2 SHARE PROGRAM TIME WITH OTHER PGMS 0000C2 8028 O04C OBI 159 MVB S$DVAD,SACTO MR a a ee ee 
00000C 43 PREP EQU 12 PREPARE DEVICE 0000C8 8028 0056 O4&BD 160 MVB SDAD, SACT 1 KR mw a ww a we ee ee 
000013 GQ RICB OU 19 RELEASE INTERRUPT CONTROL BLOCK QOO0OCE 8028 0056 O48D 161 MVB $DAD, RVCT1 MB mm eee ee ee ee ee 
OOOOOA 45 START EQU 10 . START CYCLE STEAL COMMAND O0O00D4 8028 V056 0495 162 MVB SDAD, RMCT1 Ko eee + 
000007 46 TERM EQU 7 TERMINATE THIS PROGRAM OOOODA 8028 0056 OU49D 163 MVB $DAD,RSCT1 HO eee ee ee 
000008 U7 RESET EQU 8 RESET DEVICE OO0O0EO 8028 0056 OUAS 164 MVB S$DAD,STCT1 KO ee ee 
000009 48 RID EQU 9 READ DEVICE ID QO00ES 8028 0056 O4UAD 165 MVB $DAD,WVCT1 HR me a a a a ee 
000000 49 REG EQUR O WORK REGISTER OOOOEC 8028 0056 O4BS5 166 MVB $DAD,WMCT1 Ko me a a na a we we 
QO0181E 50 PRNTRTIN EQU X'181E! COMMON PRINT ROUTINE ADDRESS LOCATION OOOOF2 6E03 0656 167 BAL $CONR R6 CONNENT ALL INTERRUPTS 
000232 51 CPUTYPE EQU X'0232' ADDRESS OF PROCESSOR TYPE OOOOF6 OBFF 168 MVEBI 255 R3 LOAD MASK FIELD INTO R3 
52 * OOOOF8 4524 0022 169 MVA DcBOF, RS LOAD DESTINATION FIELD ADDRESS 
53 * PROGRAM HEADING AND CONTROL WORDS OOO0O0FC OF20 170 MVBI 32,R7 LOAD LENGTH 
54 * OOOOFE 2BAC 171 FFN R3 Abo MOVE IN MASK FIELD 
000000 FSFOFOFO 55 $PID DC c'*5000! PROGRAM IDENTIFICATION Ma 000100 cCF25 002C 172 MVWZ pcB R ZERO CHAIN ADDRESS 
000004 0000 56 DC XL2'0000!8 CURRENT LEVEL OF PROGRAM it 000104 CE25 OQOOA 173 $PEN1 MVWZ $RINE, RG CLEAR OLD ROUTINE NUMBER 
000006 0O06C 57 DC A($PENT -> TO START EXEC ADDRESS 000108 A82A 0066 0042 174 AD HO000, PCTR ADVANCE PASS COUNTER BY 1 
000008 dQ04C 58 DC A(SDVAD -> TO DEVICE TABLE QOO010E 4020 0640 0003 175 MVWI X'00038 INTCC RESET EXPECTED CON CODE 
OOO0O00A 0000 59 S$RINE DC A (*-* ROUTINE NUMBER BEING RUN 000114 4424 OOOE 176 $PUPD MVA OPTN1 r4 R4 MUST BE SET TO ‘OPTN1! 
00000C 0000 60 $CKPT DC A (*- * LAST CHECK POINT PASSED 000118 4C03 177 $S$PUP2 TBT ane Th) Is NO COUR TT PGM REQUESTED 
OOOO00E 0000 62 OPTN1 DC "9000! PROGRAM OPTION CONTROL WORD 1 OOO1TA 102F 178 &Z pubs * re CHECKING 
63 * 180 * TERMINATE CONTROL BIT FOUND © 
64 * BIT FUNCTION 181 * 
65 * 00011C 4020 0630 0128 182 $TERM MVA SRETI,IOERR INIT ERROR ADDRESS 
000003 66 TM EQU 3 TERMINATE PROGRAM 000122 4724 062E 183 VA IOBLK, R7 LOAD ADDRESS OF CONTROL BLOCK 
O00000C 67 WRIT EQU 12 ON EITHER WRAPPED OR TTY 000126 6008 184 SVC RESE ISSUE SVC 
Q0000D 68 QUES EQU 13 QUESTION HAS BEEN ASKED 000128 4020 0644 0134 185 $RETI MVA SRET2,IOER INIT ERROR ADDRESS 
QOO00E 69 IND EQU 14 INDICATOR FOR TTY WRAP CABLE 00012E 4724 0642 186 MVA TOBL, R7 LOAD ADDRESS OF CONTROL BLOCK 
OQO000F 70 DIR EQU 15 SEEK DIRECTION INDICATOR 000132 6008 187 SVC RESE ISSUE SVC 
71° =* 000134 4020 0630 014C 188 $RET2 MVA STER1,LOFRR INIT ERROR ADDRESS 
000010 0000 72 OPTN2 DC X*O00008 PROGRAM OPTION CONTROL WORD 2 O00013A 8828 0060 0632 189 MVW SINTL, IODCB LOAD INTERRUPT LEVEL 
000012 0000 73 OPTN3 DC X*00008 PROGRAM OPTION CONTROL WORD 3 000140 4724 O62E 190 HVA LOBLK, R7 LOAD ADDRESS OF CONTROL BLOCK 
74 * 000144 402D 0632 0001 191 RBTWI X*000%*, TODCB RESET PREPARE ‘I BIT 
75 * © MYSTERY INTERRUPT MI 8 CS STATUS INTERRUPT ERR CE O0O0O014A 600C 192 SVC PREP ISSUE SVC 
16 * 1 ERROR INTERRUPT ER 9 GOOD INTERRUPT RECEIVED GI 00014C 4020 0644 0164 193 S$TER1 MVA S$TER2Z,IOER INIT ERROR ADDRESS 
717 * 2 EXPECTED INTERRUPT XI 10 PROBABLE ERROR EXPECTED PE 000152 8828 0060 0646 194 MVW SINTL, IODC LOAD INTERRUPT LEVEL 
78 * 3 INTERRUPT RECEIVED IN 11 NO INTERRUPT EXPECTED NI 000158 4724 0642 195 MVA IOBL R7 LOAD ADDRESS OF CONTROL BLOCK 
719 * 00015C 402D 0646 0001 196 RBTWIL x*0061", IODC RESET PREPARE ‘'I* BIT 
80 *« 4 EXPECTED ERR/ATTENT XE 12 N.U. 000162 600C 197 SVC PREP ISSUE SVC 
81 * 5 WRONG INTR LEVEL LE 13 N.U. 000164 C720 OQ04&C 198 $TER2 MVB SDVAD,R7 LOAD DEV ADDRESS 
82 * 6 LOAS INTERRUPT LI 14 N.U. 000168 7FE4 FFOO 199 RBTWI X'FFOO', R7 ZERO HIGH ORDER BYTE 
83 * 7 CS STATUS IN PROGR CS 15 W.U. 00016C 6013 200 SVC RICB ISSUE SVC 
84 * BIT HEX 00016E C720 0056 201 MVB S$DAD,R7 LOAD DEV ADDRESS 
000020 85 MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000172 TFEY FFOO 202 RBTWI X'FFOO', R7 ZERO HIGH ORDER BUTE 
000021 86 ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 000176 6013 203 SVC RICB ISSUE SVC 
000022 87 XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000178 6007 204 SVC TERM ISSUE eve 
000023 88 IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 205 * 
000024 89 XE EQU 36 4 8 EXPECTED ERROR RESPONSE 00017A A828 0068 OOOA 206 $PUP8 AW H0001,$RTNE ADVANCE ROUTINE NUMBER 
000025 90 LE EQU 37 5 4 INTERRUPT ON WRONG LEVEL ERROR 000180 882B 0064 OOOA 207 CW SUXSL, RTNE CHECK FOR LAST AUTOMATIC ROUTINE 
000026 91 LI EQU 38 6 2 LOST INTERRUPT 000186 6800 006C 208 BE $PENT * BCH AND START WITH RTN 1 
000027 92 CS EQU 39 7 1 CYCLE STATUS IN PROGRESS 209 * 
000028 93 CE tet 40 8 8 CYCLE STEAL STATUS INERRRUPT ERROR 210 * GET RITN NUMBER AND BCH TO THAT RTN 
000029 94 GI EQU Te | 9 GOOD INTERRUPT RECEIVED (EXPECTED ER) 211 * 
OO002A 95 PE EQU 42 10 2 PROBABLE ERROR EXPECTED 0GO18A 6E08 OOOA 212 $PSEL MVW $RINE, R6 MOVE RTN NUMBER IN REG 
00002B 96 NI EQU 43 11 1 NO INTR. EXPECTED UNPREPED DEV. 00018E CD25 000C 213 MVWZ $CKPT, RS ZERO CHECKPOINT VALUE 
000014 0000 98 $IOIN DC A (*-* I/O AND INTR CONDITION CODES 000192 CB25 OQO1A 214 MVWZ DEV1,&5 ZERO DEV DEPENDENT DATA DEV1 
000016 0000 99 $ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 000196 CD25 O001C 215 MVWZ DEV2,R5 DEV2 
000018 0000 100 LSTIO DC A (*-* ADRS OF LAST I/0 + & BYTES 00019A CD25 OQOTE 216 MVWZ DEV3,R5 DEV3 
00001A 0000 101 DEV1 Dc A (*- * DEVICE DEPENDENT DATA DEV1 00019E CD25 0020 217 MVWZ DEV4,R5 DEVG 
00001C 0000 102 DEV2 DC A (*-* DEVICE DEPENDENT DATA DEV2 QO001A2 3609 218 SLL 1,R6 DOUBLE R6 FOR BRANCH TABLE 
OO001E 0000 103 DEV3 DC A (*-* DEVICE DEPENDENT DATA DEV3 QOOO1A4 68D2 O1A8 219 B (R6, $RTAD) * BCH VIA RIN TABLE 
000020 0000 104 DEV4 Dc A (*-* DEVICE DEPENDENT DATA DEVUY 220 * 
000022 0000 105 DCBUF DC A (*-* LAST DCB TABLE, CONTROL WORD 221 * TABLE OF ROUTINE ADDRESSES 
000024 0000 106 DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 0001A8 006c 222 $RTAD DC A($PENT) NO RTN SELECTED 
000026 0000 107 DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD OOO1AA 0186 223 DC A(RTO1 ROUTINE ADDRES 
000028 0000 108 DCB4Y DC A (*-* LAST DCB TABLE, DEV DEP WORD OOOTAC 022C 224 DC A (RTO2 ve tt 
00002A 0000 109 DCBS DC A (*-* LAST DCB TABLE, DEV DEP WORD OOO1AE 02CC 225 DC A (RTO3 te te 
00002C 0000 110 DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 0001B0 035A 226 DC A(RTOY te te 
QOO0O002ZE 0000 111 DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 0001B2 O3BE 227 pc A (RTO5 ve tt 
000030 0000 112 DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 0001B4 0422 228 DC A (RTO06 ee ee 
000032 113 CSBUF EQU * CYCLE STEAL DATA BUFFER D230 2% Fe Re a re ae ak 2 af ake 2 ok ok oe 2 a oo Kk oko kek ok ae ok ok aio fk kk fio aki aki i ik ok ak ok take akoke ike aici ak ake ake ake ake ake of oie oe 
000032 0000 114 CSTL1 A (*~* CYCLE STEAL BUFFER, RESIDUAL ADRS 231 * DEVICE ID AND READ TEST * 
000034 0000 115 CSTL2 DC A (¥-%* CYCLE STEAL WD 2, DEVICE DEPEND 232 * * 
000036 0000 116 CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 233 * TO VERIFY THE READ ID TO BOTH DEVICES AND THAT THE READ OF * 
000038 0000 117 CSTL4& DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND 234 * BOTH THE VALUE AND THE MODE CAN BE READ. * 
Q00003A 0000 118 CSTL5 DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND 235 * * 
00003c 0000 119 CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 236 * A READ ID IS ISSUED TO BOTH DEVICES AND THE ID IS COMPARED TO * 
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237 * AN EXPECTED VALUE. AFTER WITCH BOTH THE VALUES AND MODES ARE * 353 Lee SS SSS SSL SS SLL SS SSL SS LS LS SS SS SSS SSS SSS SSL SS SS SC SCS LS SSS SSS SSeS SSC SSL SS SS 
238 * READ FOR BOTH DEVICES AND SAVED FOR FUTHER REFERENCE. * 00032E C128 O4CO 354 RT302 MVB R1,ERDCB SET TEST VALUE INTO IDCB 
239 * * 000332 9028 O4CO 0022 355 MVD ERDCB, DCBUF MOVE TO PERMINENT AREA 
DU AK KE he 2 fe he 2h he fe ate ahe ah 2h ae 2 2 2c he 2h fe a oe 2 ae a oe 3 ke oe fe 2 a ae ake ei 22 af ake af oe ae ak a a fe age ae ake ake ake ake ae ate ake ake 2h af ae 2 ae ake akc ofc 000338 680C 0022 356 Bae) DCBUF ISSUE THE OIO 
0001B6 6503 0666 241 RTO1 BAL $CONC, R6 PREPARE DEVICE ON CORRECT LEVEL 00033C 6B05 05B2 357 BNCC 3,XIOER CHECK FOR ‘COMMAND REJECT! 
OOO1BA 4724 062E 242 MVA IOBLK, R7 LOAD ADDRESS OF CONTROL BLOCK 000340 4C03 358 TBT {ba TM) IS TERMINATE BIT 
0001BE 6009 243 SVC RID ISSUE SVC 000342 6A00 011C 359 BON TERM BRANCH IF YES 
0001CO 882B 0638 0062 244 CW IORSP, $DVID TEST READ ID FROM DEVICE 000346 6002 360 svc IDLE DELAY 
0001C6 1008 245 JE ITSTY BRANCH IF OK 000348 0101 361 RT303 ABIL 1,R1 INCR TEST VALUE 
0001C8 8828 0638 OO1E 246 MHVW IORSP, DEV3 MOVE RECEIVED READ ID INTO DEV3 OOO34A G6EO8 0012 362 MVW obTN3,R6 LOAD OPTION WORD THREE 
0001CE 8828 0062 0020 247 RT101 MVW $DVID, DEV4 MOVE EXPECTED ID INTO DEV4 OOO34E 6801 O6A2 363 BNZ $PRNT BRANCH NOT ZERO TO PRINT ERROR 
0001D4 6802 O6A2 248 B $PRNT BRANCH TO PRINT ERROR 000352 7145 364 CW R1, R2 WAS THAT THE LAST ONE ? 
0001D8 4724 0642 249 ITSTY MVA ITOBL,R7 LOAD ADDRESS OF CONTROL BLOCK 000354 6FEO 0000 365 BLLT (RT) YES, RETURN 
0001DC 4029 000C 0001 250 AWI 1,$CKPT BUMP CHECKPOINT 000358 SOEA 366 RT302 NO. GO DO NEXT VALUE 
QQ001E2 6009 251 SVC rip ISSUE SVC 368 CII CO IO IO OI IG GGG OI GIGI OI GIGIOIGI I RGGI IOI GIOIA RICKI IOI GI II a I ak aC a akc ake ake ake ae ak 
OO0O1E4 882B 064C 0062 252 CW IORS, $DVID TEST READ ID FOR DEVICE 369 * VALUE WRITE READ TEST * 
OOO1EA 1004 253 JE RT102 BRANCH IF OK 370 * VARIFY THAT DIFFERENT VALUES CAN BE WRITTEN AND READ BACK * 
OOO01EC 8828 O64C OOIE 254 MVW TORS, DEV3 MOVE RECEIVED READ ID INTO DEV3 371 * * 
0001F2 5SOED 255 J RT101 BRANCH 372 * THE ATTACHMENT VALUES WILL BE WRITTEN WITH DIFFERENT VALUES % 
OOO1F4 4029 000C 0001 256 RT102 AWIL 1,$CKPT BUMP CHECKPOINT 373 * THESE VALUES WILL THEN BE READ BACK AND COMPARED WITH THE * 
OOO1FA 6E03 OUuCY 257 BAL XERVO, RG READ VALUE FOR D 0 374 * WRITTEN VALUE FOR VALIDITY. * 
OOO1FE 8828 0424 0028 258 MVW DCB2,PCB4 MOVE VALUE INTO SAVE AREA 375 eR I IO IO GIO ICI a OR a IOI aC a ir ok deta ak ak ak fk ak kak ak 
000204 6E03 O4DY 259 BAL XIRMO. RE READ MODE FOR 0 00035A 6E03 0666 376 RTOY BAL SCONC, R6 PREPARE DEVICE ON CORRECT LEVEL 
000208 8828 0024 O02A 260 MVW DCB2, DCBS MOVE MODE INTO SAVE AREA 00035E 4124 Q6E4 377 MVA ST,R1 LOAD R1 WITH START ADDRESS 
O0020E 4029 000C 0001 261 AWIL 1 $CKPT BUMP CHECKPOIN 000362 4224 OT70OA 378 MVA EN, R2 LOAD R2 WITH END ADDRESS 
000214 6803 O4CC 262 BAL XE£RV1, R6 READ VALUE FOR V1 000366 4020 000C 0001 379 RT4O1 MVWI 1,$CKPT SET CHECKPOINT 
000218 8828 0024 O002E 263 MVW DCB2, DCB7 MOVE VALUE INTO SAVE AREA 00036C 6£E03 0504 380 BAL Xfwvo0, R6 WRITE VALUE TO DEV O 
00021E 6E03 O4DC 264 BAL XIRM1,RG READ MODE FOR DEV 1 000370 6E03 0510 381 BAL XIWV1,R6 WRITE VALUE TO DEV 1 
000222 8828 0024 0030 265 MVW DCB2, DCB8 NMOVE MODE INTO SAVE AREA 000374 4020 000C 0002 382 MVWI 02,$cKbtT SET CHECKPOINT 
000228 6802 0114 266 B PUP BRANCH TO CONTINUE 00037A 6E03 O4CY 383 BAL XERVO, RE READ VALUE OF DE 
268 Me eae oe ae fe ae afc ake he fe aie af afk ae ae i ah he ole ae she afc af cafe ake of ake fe af afe ake ate ae ake ake ae af afc fe fe ake ake ake ake ake ate aie ake of ake she ok ake ade ake ote abe ate ake ae hc ake afk ake ofc of ae ke ae OOO3TE 890B 0024 384 CW aah hcB2 COMPARE TO WRITTEN VALUE 
269 * TEST FOR RESET OF DEVICE 000382 180D 385 JNE RTUOD BRANCH NOT EQUAL 
270 * TO VERIFY THAT A RESET DOES NOT RESET ANY MORE THAN EXPECTED * 000384 6E03 O4CC 386 BAL XIRV1, R6 READ VALUE OF DEV 
271 * * 000388 S8A0B 0024 387 CW (R2) hcB2 COMPARE TO WRITTEN VALUE 
272 * A RESET IS GIVEN TO DEV O AND A START TO DEV 1 THEN A READ * 00038C 180F 388 JNE RT4O3 BRANCH NOT EQUA 
273 * MODE TO oy O INSURES THAT THE MODE IS ZERO A READ OF THE MODE * Q00038E C924 06E2 389 CW AEN,R1 IS THIS THE END OF TEST 
274 * FOR DEV 11S DONE AND THE VALUE CHECKED FOR VALIDITY THEN BOTH * 000392 1013 390 JE RTU OY BRANCH IF YES 
275 * DEV 0 AND 1 VALUES ARE READ AND CHECKED FOR ANY CHANGES. * 000394 7921 0002 391 AWL 2,R1 INCREMENT R1 
276 * THE ABOVE PROCEDURE IS THEN REPEATED FOR DEV 1 RESET. * 000398 7A41 FFFE 392 AWL -5,R2 DECREMENT R2 
277 FIO I IO RO RIGO RII IOI GR Gi ok dei ak ak akg ak a 00039C SOE4 393 J RT401 BRANCH 
00022C 6E03 0666 278 RTO2 BAL $CONC,R6 PREPARE DEVICE ON CORRECT LEVEL 00039E 4020 000C 0003 394 RT4YO2 MVWI 3,$CKPT SET CHECKPOINT 
000230 6E03 O4EG 279 BAL XIRSO, R6 RESET DEV 0 OOO03A4 8908 OOTA 395 MVW {Ruy DEV1 LOAD EXPECTED VALUE INTO DEV1 
000234 6503 QOU4FC 280 BAL XIST1. R6 STOP DEV 1 0003A8 6802 A6A2 396 PRN BRANCH TO PRINT ERROR 
000238 4029 000C 0001 281 AWI 1,$CKPT BUMP CHECKPOINT 0Q003AC 4020 O00C 0004 397 RT4O3 MVWI 4,$CKPT SET CHECKPOINT 
00023E 6803 O4DY 282 BAL XIRNO, RE READ MODE OF DEV 0 QOO003B2 8A08 OO1TA 398 VW R2) DEV1 LOAD EXPECTED VALUE INTO DEV1 
000242 6D08 0024 283 MVW DCB2,Rk5 MOVE MODE INTO RS 0003B6 6802 06A2 399 B PRN BRANCH TO PRINT ERROR 
000246 6801 O6A2 284 BNZ $PRNT BRANCH NOT ZERO TO PRINT ERROR OOO3BA 6802 0114 400 RT4O4 B $PUPD BRANCH TO CONTINUE 
OO0O024A 6803 O4DC 285 BAL XIRM1. R6 READ MODE OF DEV 1 402 23 RIO IOI OI I iam ko a a aOR ack kak ak kk aK ae ak ok 2k 2k ak ak ak ok a ak 2 ae 2c ak 
OOO24E 8828 0024 0030 286 CW DCB2, DCB8 COMPARE WITH LAST VALUE 403 * MODE WRITE READ TEST * 
000254 6801 O6A2 287 BNE $PRNE BRANCH NOT EQUAL TO PRINT ERROR 4O4 * VARIFY THAT DIFFERENT MODES CAN BE WRITTEN AND READ BACK * 
000258 4029 000C 0001 288 AWL 1,$CKPT BUMP CHECKPOINT 4QO5 * * 
00025E 6E03 OuCC 289 BAL XEIRV1, RG READ VALUE OF DEV 1 “OG * THE ATTACHMENT MODES WILL BE WRITTEN WITH DIFFERENT VALUES * 
000262 882B 0024 O02E 290 CW DCB2, DCB7 COMPARE WITH LAST VALUE HO7 * THESE MODES WILL THEN BE READ BACK AND COMPARED WITH THE * 
000268 6801 0O6A2 291 BNE $PRNT BRANCH NOT EQUAL TO PRINT ERROR 408 * WRITTEN MODE FOR VALIDITY. * 
00026C 6E03 O&GCY4 292 BAL XIRVO R6 READ VALUE O DEV O 409 BOO IO II OI IG GIGI GI GGG OI IG IOI I IOI I III Ik a kok ak ake ak ake af ak ak ake ak ake 
000270 882B 0024 0028 293 CW DCB2, DCB4 COMPARE WITH LAST VALUE OO03BE 6E03 0666 410 RTOS BAL SCONC, R6 PREPARE DEVICE On. CORRECT LEVEL 
000276 6801 O6A2 294 BNE SPRNT BRANCH NOT EQUAL TO PRINT ERROR 0003C2 4124 OT70E 411 MVA STT,R4 LOAD START ADDRE 
00027A 4029 000C 0001 295 AW1 1,$CKPT BUMP CHECKPOINT 0003C6 4224 072C 412 MVA ENN, R2 LOAD END ADDRESS” 
000280 6503 OUWEC 296 BAL X£RS1, R6 RESET DEV 1 OOO3CA 4020 Q00C 0001 413 RT501 MVWI 1,$CKPT SET CHECKPOINT 
000284 68503 O4FY 297 BAL XISTO,R6 STOP DEV 0 0003D0 6£03 051C 414 BAL Xf WMO, R6 WRITE MODE TO DEV 0O 
000288 4029 000C 0001 298 AWI 1,$CKPT BUMP CHECKPOINT 0003D4 6E03 0528 415 BAL XEWM1, R6 WRITE MODE TO DEV 1 
O0OO028E 6E03 O4DC 299 BAL x£RM1 R6 READ MODE FOR DEV 1 0003D8 4020 000C 0002 416 MVWI 2 $CKPT SET CHECKPOINT 
000292 6D08 0024 300 MVW DCB2 B5 LOAD MODE INTO OOO3DE 46£03 O4D4 417 BAL XE£RMO R6 READ MODE OF DEV 0 
000296 6801 O6A2 301 BNZ $PRNT BRANCH NOT ZERO TO PRINT ERROR Q0003E2 890B 0024 418 CW (R41), hcB2 COMPARE TO EXPECTED VALUE 
00029A 6E03 O&DY 302 BAL XIRMO, R6 READ MODE OF 0003 E6 180D 419 JNE RT5 y) BRANCH NOT EQUAL TO PRINT ERROR 
00029E 6D08 0024 303 MVW DCB2.85 LOAD MODE INT QOOO03E8 6E03 O4DC 420 BAL XIRM1,R6 READ MODE OF DEV 1 
0002A2 6801 06A2 304 BNZ  $PRNT BRANCH NOT ZERO TO PRINT ERROR QQ003EC 8A0B 0024 421 cw (2) hcB2 COMPARE MODE TO EXPECTED VALUE 
0002A6 4029 000C 0001 305 AWL 1,$CKPT BUMP CHECKPOIN Q0003F0 180F 422 JNE RT503 BRANCH IF NOT EQUAL 
OOO2AC 6E03 OUCY 306 BAL xiRVO R6 READ VALUE OF DEV 0 O0003F2 C924 O70C 423 CW AENN, R1 IS THIS THE END OF TEST 
0002B0 882B 0024 0028 307 CW DCB2, DCBY COMPARE VALUE WITH LAST 0003F6 1013 424 JE RT504 BRANCH YES 
0002B6 6801 O6A2 308 BNE $PRNT BRANCH NOT EQUAL TO PRINT ERROR 0003F8 7921 0002 425 AWIL 2,R1 INCREMENT R1 
0002BA 6E03 O4CC 309 BAL XIRV1,R6 READ VALUE O 1 O0OO03FC 7A41 FFFE 426 AWL =4 R2 DECREMENT R2 
QOO2BE 882B 0024 OO2E 310 CW DCB2, DCB7 COMPARE VALUE WITH LAST 000400 50E4 427 J RT501 BRANCH 
0002C4 6801 06A2 311 BNE SPRNG BRANCH NOT EQUAL TO PRINT ERROR 000402 4020 000C 0003 428 RTSO2 MVWI 3-$CKPT SET CHECKPOINT 
0002C8 6802 0114 312 B PUPD BRANCH TO CONTINUE 000408 8908 OO1A 429 VW Rip DEV1 LOAD EXPECTED VALUE INTO DEV1 
BV He 2 a a fe ee he ee ee a he fe a 2 2 eC He 2 2 fe 2 ie fe ae ae oe ake fe fe of ake af ae ae of 2k af ae af ae aft oe of 2c ofc ake ofc af aka ake a af ofc afc ofc ate of fe ake ak OO0O4OC 6802 O6A2 430 PR i BRANCH TO PRINT ERROR 
315 * PURPOSE: TO INSURE THE TIMER ATTACHMENT WILL RESPOND WITH A * 000410 4020 000C 0004 431 RT503 MVWI 4,$CKPT SET CHECKPOINT 
316 * COMMAND REJECT® TO EACH INVALID I0 INSTRUCTION. * 000416 8A08 OO1A 432 MVW R2) DEV1 LOAD EXPECTED VALUE INTO DEV1 
317 HORE GO EEOC aE HHS SSBC O EOE OE CCE EOS EAA OOO41A 6802 O6A2 433 B PR f BRANCH TO PRINT ERROR 
0002cc 6E03 0666 318 RTO3 BAL $CONC, R6 PREPARE DEVICE ON CORRECT LEVEL OOO4#1E 6802 0114 434 RT504 B S$PUPD BRANCH TO CONTINUE 
0002D0 ee 0488 O4CO 319 MVD ea neo "ERDCB MOVE IDCB INTO ERROR IDCB FIELD 36 ORR RRR OR RO OI OK IORI IC I I RIG IG gk a i gC ai i a kak ok kak ak ak ak aka ak ake ofc ae ak ag 
0002D6 4029 000C 0001 320 AWL 1,scKbr BUMP CHECKPOINT 437 * INTERRUPT TEST 
0002DC 0900 321 RT305 MVBI xX'OO',R1 SET UP TO TEST FUNC/MODR OF x'00! 438 * CHECK ALL POSSIBLE INTERRUPTING LEVELS FOR ALL MODES 
OOO2DE OAIF 322 MVBI X'1F",R2 * THRO X'1F! 439 * 
0002E0 9F26 323 JAL RT302,R7 GO TEST THEM G4uO * THE ATTACHMENT WILL BE PREPARED ON ALL LEVELS BUT THREE THEN 
O0O0O02E2 0921 324 MVBI X*21°)R1 SET UP TO TEST FUNC/MODR x'21! Yuq x STARTED WITH KNOWN MODE AND VALUES. ALL TYPES OF MODES WILL 
OOO2E4 0A23 325 MVBI X*23',R2 * THRU X'23° YuD x BE WRITTEN ON ALL TESTED LEVELS. 
0002E6 9F23 326 JAL RT302,R7 GO TEST THEM G9 ORO IO GOGO OGIO ICI OIG IGIOIOIO ID IOIDIIOIDI SIDI IOI IC Ik 
O0002E8 0926 327 MVBI X'26',R1 SET UP TO TEST FUNC/MODR X'26! 000422 4024 O72E “U4 RTO6 MVA MODES, RO LOAD ADDRESS OF DIFFERENT MODE IN R1 
OOO2FA OA5F 328 MVBI X'5SP*,R2 * THRU X'5SFt 000426 4020 0060 FFF1 445 RT601 MVWI X'FFFA', SINTL INIT INTERRUPT LEVEL 
O0OO02EC 9F20 329 JAL RT302, R7 GO TEST THEM 00042C 4020 000cC 0000 u46 MVWI O,$CKPT SET CHECKPOINT 
QOO2EE 0961 330 MVBI X*61',R1 SET UP TO TEST FUNC/MODR OF X'61! 000432 8808 0020 G47 RT602 MVW (RO) ,D V4 SAVE MODE BEING USED 
O002FO OA63 331 MVBI X*63!,R2 * THRU X'63! 000436 4029 0060 0010 44s AWL "70°, SINTL ADD TO INDICATE NEXT INTERRUPT LEVEL 
0002F2 9F1D 332 JAL RT302, R7 GO TEST THEM 00043C 6E£03 0666 449g BAL $CONC, R6 PREPARE ON INDICATED INTERRUPT LEVEL 
OOO02F4 0968 333 MVBI xX'68',R1 SET UP TO TEST FUNC/MODR X'68' QOO440 7024 450 MVW 8 =sRO, R11 LOAD R1 
0002F6 OA6D 334 MVBI X*6D*,R2 * THRU X'6D!* 000442 7044 451 MVW RO, R2 LOAD R2 
0002F8 9OFI1A 335 JAL RT302,R7 GO TEST THEM 000444 GEOS 051C 452 BAL XIQMO, R6 WRITE MODE TO DEV 0 
QOO2FA 0970 336 MVBI x'70',R1 SET UP TO TEST FUNC/MODR OF xX'70! 000448 6E03 0528 453 BAL XIWM1,R6 WRITE MODE TO DEV 1 
Q0002FC 4224 OOEF 337 MVW@I X*OOEF*, R2 * THRU X* EF? 0O0044C 4124 O72E 454 MVA MODES, R1 LOAD ADDRESS OF TABLE 
000300 9F16 338 JAL RT302.R7 GO TEST THEM 000450 4224 O72E 455 MVA MODES, R2 LOAD ADDRESS OF TABLE 
000302 802B 04C1 0056 339 CB ERDCB4+1,$DAD HAVE WE CHECKED DEV 1 000454 6E03 0504 456 BAL XIWVO,R6 WRITE VALUE TO DEV 0 
000308 180B 340 JNE RT304 BRANCH IF NO 000458 6803 0510 457 BAL XIWV1, R6 WRITE VALUE TO DEV 1 
00030A 4029 0G00C 0001 341 AWI 1,$CKPT BUMP CHECKPOI 00045C 6E03 053C 458 BAL XISAO, R6 START DEV 0 
000310 4724 062E 342 MVA TOBLK, R7 LOAD ADDRESS OF CONTROL BLOCK 000460 6803 0544 459 BAL XISA1, R6 START DEV 1 
000314 6908 343 SVC RESET ISSUE SVC 000464 4029 000C 0001 460 AWI 1, $cxbr BUMP CHECKPOINT 
000316 4724 0642 344 MVA IOBL, R7 LOAD ADDRESS OF CONTROL BLOCK OOO46A 402F 0060 0021 461 CWI X'21¢, $INTL HAS INTERRUPT LEVEL COME DOWN TO 2 
00031A 6008 345 SVC RESEf ISSUE SVC 000470 1880 462 JNE RT602 BRANCH NO 
900346 6802 0114 346 B $PUPD BRANCH TO CONTINUE 000472 4O00F 000C 463 CWI X*OC*, (RO) IS THIS THE END OF TEST 
000320 9028 O48C O4CO 347 RT304 MVD RVDC1,ERDCB LOAD ERROR IDCB FOR DEV 1 go0uTS 1003 464 JE RT603 BRANCH YES 
000326 4029 000C 0001 348 AWL 1,$CKbt BOME CHECKPOINT 00047 7801 0002 465 AWI 2, RO INCREMENT RO INDICATOR 
00032C 50D7 349 J RE305 RANCH 00047C 50D4 466 J RT601 BRANCH 
50 ie he ae he he oe i aia oe he a a ak ak EE EE ECT Tt eee er ee PTT EE TT Ter mere Tr OOO47E 4020 0060 0011 467 RT603 MVWI X*0011", $INTL REINIT CORRECT INTERRUPT LEVEL 
323 * THIS SUBROUTINE WILL ISSUE OIO OPS WITH INVALID FUNC/MODR FIELDS FOR* 000484 6802 0114 468 B $PUPD BRANCH TO CONTINUE 
352 * FORCING COMMAND REJECTS, AND WILL TEST THE RESULT OF EACH. * 470 * 
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G71 %* READ VALUE CONTROL BLOCK 000510 4020 0646 O4AC 587 XIWV1 HVA oe IODC SET UP CONTROL BLOCK FOR SVC CALL 
nee i u72 % ; 900516 BA 08 O4AE 288 avi R2 ,AVDC1+2 SET HEITE VALUE INTO IDCB 
4 4 473 RVDCO DC x'2ye USE FOR DCB REFERENCE ONLY 
000489 000000 474 RYVCTO DC X'*Q000008 CONTROL WORD 00051C 4020 0632 0480 590 XIWHO HVA ae IODCB SET UP CONTROL BLOCK FOR SVC CALL 
475 x 900522 8908 O4B2 594 av ,AHDCO+2 Set WRI TE HODE INTO IDCB 
476 * READ VALUE CONTROL BLOCK 
u7y7 x ae 000528 4020 0646 O4BY 593 XIHM1 HVA HAD SET UP CONTROL BLOCK FOR SVC CALL 
pooner sn 008 a38 nyDC} DC ae USE FOR DCB REFERENCE ONLY oP ee as ape O4B6 ae uve fr 2). ‘aaDei+2 Ser Rite HODE INTO IDCB 
D 479 RVCT1 DC X*O t CONTROL WORD 
480 : 000534 4C6B 596 xr03 TBTS RG, NI) SET NO INTERRUPT BIT ON 
481 * READ MODE CONTROL BLOCK 000536 500D 597 J Io BRANCH 
Snsee Be UB2Q * O00538 BCGB eae XIOU TBTS cp NI) SET NO INTERRUPT BIT ON 
0004 483 RHDCO DC 1258 USE FOR DCB REFERENCE ONLY 
0004971 000000 484 RHCTO DC x 6a0000° CONTROL soen OOOkaS t6a9 0632 O4B8 oa XISAO ave oe rete » LODCB es CONTROL BLOCK FOR SVC CALL 
8 % 
ug6 * READ NODE CONTROL BLOCK 000544 4020 0646 O4BC 602 XISA1 HVA SADC1, ITODC SET UP CONTROL BLOCK FOR SVC CALL 
usgy * 00054A 5000 603 XIO1 BRANCH 
000494 25 488 RNDC1 DC x¥'25¢ USE FOR DCB REFERENCE ONLY GOS He 2 oe 5 he a he abe he ake ae ae ae he ae ae he abe ae 2 ake ake ade ae ae he ak ae a ake ae a he ae he ae ae ade ae ae he ae ae a ae ae fe ae ats ee a ae ae ake ae ae ae ae oe ae a ae a he ae ke 
000495 000000 489 RMCT1 DC X¥*000000° CONTROL WORD 606 * sa 
u90 * 607 * SOUBROUTINE * 
491 * RESET TIHER CONTROL BLOCK 608 * * 
492 * 609 * EXECUTE INPUT AND OUTPUT COMMANDS % 
000498 6F 493 RSDCO DC X‘*6F USE FOR DCB REFERENCE ONLY 610 * * 
000499 000000 Aon RSCTO DC ¥ 18000008 CONTROL WORD Be : PURPOSE " 
496 * RESET TIMER CONTROL BLOCK 613 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. * 
u97 * 614 * THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: % 
00049C 6F 498 RSDC1 DC X'6F¢ USE FOR DCB REFERENCE ONLY 615 * *. 
00049D 000000 432 RSCT1 DC X*000000! CONTROL WORD eis : 1. RAN Tn CaRReuB: THAT POINTS TO THE INSTRUCTION THAT STARTED - 
501 * STOP TIMER CONTROL BLOCK 618 * 2. SAVES THE DCB BLOCK USED * 
502 * 619 * 3. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 
OOOQ4AO G6E 503 stTpcoO pc X'6Et USE FOR DCB REFERENCE ONLY 620 * SINCE ae neces EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 
0004A1 000000 504 stTcT0 DC x*0000008 CONTROL WORD 621 * MYSTERY ERRUPT fs T), CONTROL BIT IS SET. 
505 * 622 * 4. MOVES THES IDDRESS F THE I/O CONTROL BLOCK IN R7, SET THE * 
506 * STOP TIMER CONTROL BLOCK 623 * EXPECTED INTERRUPT CONTROL cra AND ISSUE THE NECESSARY IO. * 
507 * 624 * 5S. AFTER ISSUING THE T/0 COMMAN TIMING * 
OOO4AY GE 508 STDC1 DC X'6E! USE FOR DCB REFERENCE ONLY 625 * STARTS TO DETERMINE LOST INSERRUPT. * 
O004A5 000000 509 sTcT1 pc x¥*000000! CONTROL WORD 626 * 6. EXCEPT THE INTERROPT A AND GATHER INFORMATION TO DETERMINE IF * 
510 * 627 * WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. % 
511 * WRITE VALUE CONTROL BLOCK 628 * 7. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. * 
512 * 629 * 8. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * 
OOO4A8 64 513 WVDCO DC x'oqr USE FOR DCB REFERENCE ONLY 630 * 9. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETORN. * 
000449 000000 514 wvCctToO DC X*000000! CONTROL WORD 631 * * 
515 * 632 * CALLING SEQUENCE * 
516 * WRITE VALUE CONTROL BLOCK 633 * * 
517 * 634 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: * 
OOO4AC 64 518 wVDC1 DC X'64t USE FOR DCB REFERENCE ONLY 635 * * 
OOO4AD 000000 219 wvcrt DC X*0000008 CONTROL WORD e328 id ==>. 5 XIO XEQ ANY CYCLE STEAL COMMAND, MOD=0 : 
222 : WRITE MODE CONTROL BLOCK | e38 * RETURN CONTROL : 
1658 640 * BXs R6 RETURN TO USER ERRO * 
Boones BaeuG 23 meee He ES oenangs aS a ONLY 644 peeceece eseaeee ERG AE EIR eRRER ENC eee ea ie tek eee eater 
526 * ead 6D08 0646 aa XI01 Kve TOnC, BS LOAD BS WITH -> TO IDCB 
* WRITE MODE CONTROL BLOCK 
: 234 x z 000552 6D08 0632 645 XIO MVW IODCB,R5 LOAD R5 WITH -> TO IDCB 
OOO4BY 65 529 WMDC1 DC x'65t USE FOR DCB REFERENCE ONLY 000556 4CA3 646 XIO2 TBTR RY ga) CLEAR INTERRUPT RECEIVED CNTL BIT 
0004B5 000000 530 wWMCT1 DC X¥'0000008 CONTROL WORD 000558 1256 647 JON xr0e BRANCH IF ON 
531 * 00055A 6E0D 0018 648 MVW LSTIO SAVE IAK FOR RETRY IF RE UESTED 
532 * START APERIODIC CONTROL BLOCK Q0055E 402E 0018 0004 649 SWI i pistro SUB TO OBTAIN ADD OF IN 
533 * 000564 4324 0000 650 MVA $Prp LOAD PROGRAM START ADDRESS 
QOOO4BB 67 534 sSaDCO pc X'67! USE FOR DCB REFERENCE ONLY 000568 CB2F 0018 651 SW Létto SUB TO OBTAIN LISTING ADDRESS 
0004B9 000000 535 SACTO DC x'*0000008 CONTROL WORD 00056C 4324 0022 652 MVA BeBuE. R3 SET UP TO ADRS TO MO OVE DCB TABLE 
238 ; O00R72 3D ed cea HVE N re R3 HOVE 1 STATUS WORD EN AND ADJUST 
* START APERIODIC CONTROL BLOCK S 
538 * 000574 802B 0232 O06A 655 CB dsargse: bh ypE23 CHECK FOR PROCESSOR 23 
OOO04BC 67 539 SADC1 DC X'67¢ USE FOR DCB REFERENCE ONLY O00S7A 1803 656 JNE XI05 BRANCH NOT EQUAL 
OOOUBD 000000 500 SACT1 DC X¥*'Q0000008 CONTROL WORD Q00057C 4524 C000 657 MVWI xX*'CO00*,RS LOAD LOOP COUNT 
5y1 * 000580 5001 658 J . RANCH 
542 * DUMMY ERROR CONTROL BLOCK 000582 75AA 659 XxIO5 SW LOAD LOOP COUNT 
543 * 000584 4C2B 660 XIO06 TBT (Rd RAT) TEST FOR NO INTERRUPT EX PECTED 
0004C0 00 544 ERDCB DC X'OO! USE FOR DCB REFERENCE ONLY 000586 1201 661 JON o7 BRANCH IF ON 
0004C1 000000 545 ERCTL DC x'000000° CONTROL WORD 000588 4C62 662 TBTS (R4,XT) SET EXPECTED INTR CONTROL BIT 
5u7 ee agate Ae il tne a ak al aac aad OO058A 680C 0022 663 XIO7 I0 DCBUF ISSUE I0 
548 * ISSUE ALL I/O COMMANDS FROM A COMMON SUBROUTINE QO0058E 6FO05 05B2 664 BNCC 7,XIOER ERROR IF NOT CC=7 
549 * TO DISPLAY INSTRUCTIONS AND OPERATING PROCEDURES TO THE OPERATOR# 000592 6002 665 x08 svc IbLE ALLOW OTHER PROG TIME 
550 * AND SET UP ANY REQUIREMENTS FOR OTHER I/O COMMANDS * 000594 4Cc03 666 TBT he TM) IS TERMINATE BIT ON 
551 * * 000596 6A00 011C 667 BON TER BRANCH IF ON 
552 * ->> BAL XIRVO,R6 XYEQ READ VALUE DEV = 0 % 00059A 4CA3 668 TBTR {Ra IN) HAS INTERRUPT BEEN RECEIVED 
553 * --> BAL XIRV1, "RO XEQ READ VALUE DEV = 1 * 00059C 1234 669 JON roéK * YES, CHECK IF ALL WAS SATISFACTORY 
554 * --> BAL XIRMO, R6 XEQ READ MODE DEV = 0 x 00059E 4CAB 670 TBTR R4 ,NI) IS THERE A INTERRUPT EXPECTED 
555 * --> BAL XIRM1,R6 XEQ READ MODE DEV = 1 * 0005A0 6ACO 0000 671 BON R6 BRANCH NO 
556 * --> BAL XIRSO,R6 XEQ RESET DEV = 0 * OOO5SA4 TDA1 0001 672 AWI R ADVANCE TIME OUT COUNT 
557 * --> BAL DIRS1,R6 XEQ RESET DEV = 1 * QQO5A8 18F4 673 JNZ xfo8 BCH IF TIME OUT NOT REACHED 
558 * --> BAL XISTO,R6 XEQ STOP DEV = 0 * QOO5AA 4C61 674 TBTS R4,ER SET ON ERROR CONTROL BIT 
559 * --> BAL XIST1,R6 XEO STOP DEV = 1 * OOO5AC 4C66 675 TBTS RY, LI SET LOAS INTERRUPT BIT 
560 * --> BAL XIWVO, R6 XYFO WRITE VALUE DEV = 0 * OOO5AE 6802 O6A2 676 B PRAT ANCH TO PRINT ERROR 
561 * --> BAL XIWV1,R6 XEO WRITE VALUE DEV = 1 * 678 aOR RO OO OC ai oa mR i OIC aR a i Ci dea aie ak a a ak 
562 * -~-> BAL XIWMO, RO XEQ WRITE MODE DEV = 0 * 679 * 
563 * -~> BAZ DIWM1, R6 XEQ WRITE MODE DEV = 1 * 680 * SUBROUTINE * 
564 * --> BAL XISAO, R6 XEQ START DEV = 0 * 681 * * 
te --> BAL XISA1,R6 XEQ START DEV = 1 : 682 : I/O EXECUTE ERROR HANDLING ROUTINE : 
BGT 6% i oe ae ee a he eK a 2 he Re ee KE 2 fe Ae ae eae ae eae ke ae ca he ac 2c a oe ae oe ae a aoe eae fea ic ok he 2c yee eo ie ok 684 * PURPOSE * 
OOO4CH 4020 0632 0488 568 XIRVO MVA RVDCO,1IODCB SET UP CONTROL BLOCK FOR SVC CALL 685 * * 
OOO4CA 5034 569 J XI03 BRANCH 686 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 
0O04CC 4020 0646 O48C 570 XIRV1 MVA RVDC1,I0DC SET UP CONTROL BLOCK FOR SVC CALL 687 * PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE * 
0004D2 5032 571 J 4 BRANCH 688 * SUPERVISOR AND IT WAS NOT ACCEPTED * 
OOO4D4 4020 0632 0490 572 XIRMO MVA RMDCO,LODCB SET UP CONTROL BLOCK FOR SVC CALL 689 * * 
OOO4DA 502C 573 J XI03 BRANCH 690 * CALLING SEQUENCE * 
OOO4DC 4020 0646 0494 574 XIRM1 MVA RMDC1,I10DC SET UP CONTROL BLOCK FOR SVC CALL 691 * * 
OOO4E2 5SO2A 575 J X BRANCH 692 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN 1/0 COMMAND * 
OOOHE4Y 4020 0632 0498 576 XIRSO MVA RSDCO,IODCB SET UP CONTROL BLOCK FOR SVC CALL 693 * * 
OOO4EA 5024 577 J XI03 BRANCH 694 * RETURN CONTROL * 
OOO4EC 4020 0646 049C 578 XIRS1 MVA RSDC1,10DC SET UP CONTROL BLOCK FOR SVC CALL 695 * * 
OOO4UF2 5022 579 J XIO4 BRANCH 696 * B $PRNT DUMP STATUS BEFORE TERMINATION * 
OOO4F4 4020 0632 O4AD 580 XISTO MVA STDCO, IODCB SET UP CONTROL BLOCK FOR SVC CALL 697 * * 
OOO4YFA 501C 581 J XI03 BRANCH 698 ro oO IC GRR oii gio kok ick ok kok kok kaki tok kk kok kok ak a ai koa ake a 
QOO4FC 4020 0646 O4AY 582 XIST1 MVA STDC1,10DC SET UP CONTROL BLOCK FOR SVC CALL 0005B2 T706E 699 XIOER CPLSR R3 SAVE CONDITION CODE ON I/O ERROR 
000502 501A 583 J XIO4 BRANCH OOO5B4 336A 700 SRL 13,R3 POSITION CC CODE TO BITS 13-15 
000504 4020 0632 O4A8 584 XIWVO MVA WVDCO,IODCB SET UP CONTROL BLOCK FOR SVC CALL 0005B6 C328 0014 701 MVB R3,$10IN * PUT IN LOG OUT AREA 
OOOSOA 8908 OUAA 585 MVW be ,WVDCO+2 SET WRITE VALUE INTO IDCB OOOSBA 6802 O6A2 702 B $PRNT BRANCH TO PRINT ERROR 
OOO050E 5012 586 J BRANCH TOU Xe Ae ae aie he he af he ate a ae he ae 2c ote ae fe fe ae ote 2h oe ae ae ae 2 ak af a fe 2k ake ae ae afc ake oe ae a afl a ae ae ake i ae ake ae i ke a oe oe ate ik ale te fe ok a ok aie ode ak oe ake ak 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
705 * * 821 * INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
706 * SOUBROUTINE * OO0O064E 0056 822 INTB DC A($DAD ADRS OF DEVICE ADRS 
707 * * 600650 O5CA 823 DC A (INTO INTERRUPT OK RETURN ADRS 
708 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL ‘$INTL!* * 000652 O5BE 824 DC A (INTER INTERRUPT ERROR ADRS 
709 * * 000654 0003 825 INTC DC x*0003° INTERRUPT CODE EXPECTED 
710 * PURPOSE * 827 eC Oo GO igo oigiok loko gogo kaioigigiok dak tok teeta ak ak ak 
711 * * 828 * * 
712 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 829 * SUBROUTINE * 
713 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * 830 * * 
aie : EXPECTED CODE. 4 e324 : CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE : 
418 A CALLING SEQUENCE 2 ae . PURPOSE : 
7118 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT * 835 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND * 
719 * * 836 * PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * 
420 . RETURN CONTROL : ne : TO INTERRUPT. z 
ee v8 SVC EXIT RETURN TO USER VIA SUPVR : ore : CALLING SEQUENCE : 
T 2G Ae a i a EO ROI III IO ROR RI aOR RI IORI gO Ri kk 841 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: * 
OOOSBE 706E 725 INTER CPLSR R3 SAVE INDICATORS 842 * bd 
0005CO 336A 726 SRL POSITION INDICATORS IN R3 843 * --> BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
Q0005C2 4424 OQOOE 727 MVA Optni SET UP BASE ADRS 844 * --> BAL $SCONR, R6 BCH TO CONNECT AND PREPARE DEVICE * 
0005C6 4C61 728 TBTS Ra veep SET ERROR ON I/O COMMAND CNTL BIT 845 * --> BAL $CONP, R6 PREPARE DEVICE ONLY * 
0005c8 5007 729 R14 BRANC 846 * * 
a3) WeUKes a buCGs co ce eweauenRSKeGNeuee Ue ee oak ea¥eaecedslessrereseuuanus one : RETURN CONTROL : 
2 * * 
oF = SOUBROUTINE : ona : BXSs (R6) RETURN TO USER VIA REG 6 " 
7135 * OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* * 851 GOR OR ORO OR OG RGR iia i kk kok ak ake aie ak ak 
7136 * * 000656 852 $CONR EQu * SET UP TO REQUEST SUPVR DISK IF IT 
737 * PURPOSE * 000656 4724 O63A 853 MVA INTBL, R7 SET R7 TO CONTROL BLOCK AND 
738 * * QOO065A 6014 854 SVC CICB * CONNECT IT TO THIS DEVICE 
739 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST * 00065C 4724 O64E 855 MVA INTB, R7 LOAD ADDRESS OF CONTROL BLOCK 
740 * * 000660 6014 856 SVC CICB CONNECT TO THIS PROG 
741 * CALLING SEQUENCE * 000662 68C2 0000 857 B (R6) RETURN 
T42 * % 000666 858 $CONC eeu * NUMBER OF BYTE TO CLEAR 
T43 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 000666 CB25 0012 859 MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
744 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * OO0066A 8828 0060 0632 860 $CONP MVW $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
745 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 000670 8828 0060 0646 861 MVW SINTL, IODC PUT IN LEVEL & INTR PARAMETER 
746 * COMMON SECTION IS HANDLED HERE. * 000676 4724 062E 862 $CONU MVA IOB SET R7 TO CONTROL BLOCK TO PREPARE 
147 * * OO0067A 4020 0014 OT7FF 863 MVWI X'O7FF' $IOIN INITIALIZE CONDITION CODE STORAGE 
748 * RETURN CONTROL * 000680 CB25 0016 864 MVWZ $ISB * AND CLEAR OLD ISB VAL 
749 * * 000684 6EOD 0018 865 MVW R6 LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
750 x svc EXIT RETURN TO USER VIA SUPVR * 000688 402E 0018 0004 866 SHI 4, LSTIO POINT TO BRANCH POINT F 
751 * % OO0068E 4324 0000 867 MVA $ID R3 LOAD START EXECUTION ADDRESS 
752 Ce aCe Sere te eRe REN ESTEE REDE DS EPNUTEE ACHE ESE AT RECEE SS SERRE RESETS 000692 CB2F 0018 868 SW R3,LSTIO SUB TO OBTAIN LISTING ADDRESS 
0005CA 706E 753 INTOK ceboe R3 SAVE INDICATORS 000696 600C 869 SVC PREP ISSUE SVC 
0005CC 336A 754 13,R3 POSITION INDICATORS IN R3 000698 4724 0642 870 NVA IOBL, R7 LOAD ADDRESS OF CONTROL BLOCK 
O0O05CE 4424 OO00E 755 NVA © OPEN1, RU SET UP BASE ADRS 00069C 600C 871 SVC PREP ISSUE SVC 
0005D2 4c24 756 TBT RU, XE) IS AN ERROR EXPECTED O0O069E 68C2 0000 872 B (R6) RETU RN 
OOOSD4& 1001 757 JOFF nth BRANCH NO 87 4 SC OR Oi ai igo ick i ici aioli i iio ici lak okiigi dai gai iokak kok gogok ak ak ak 
0005D6 4C69 758 TBTS aRf GI) SET GOOD INTERRUPT CONTROL BIT 875 * COMMON PRINT ERROR INTERFACE ROUTINE * 
0005D8 680C O4A0 759 INTR1 I0 TDCO STOP DEV 0 876 * * 
Q0005SDC 680C O4AY 760 IO STDC1 STOP DEV 1 877 * ----> R6 . LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 
OQOOS5SEO 4C63 761 TBTS fe4 ray SET INTERRUPT RECEIVED 878 * BRANCH IS TAKEN TO PRINT THE ERROR * 
Q0005E2 C€328 0015 762 MVB 3, $10 N+1 SAVE INTERRUPTING CC CODE 879 * ----> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 
OOOSE6 6FOD 0016 7163 MVW R7,S1SB SAVE INTR STATUS AND DEV ADRS 880 * BRANCH IS TAKEN TO PRINT THE ERROR * 
QOOSEA 78B9 764 INTR2 CPCL R5 COPY INTERRUPT LEVEL TO CHECK 881 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 
OOOSEC 3521 765 SLL 4,R5 POSITION INTR LEVEL AND aT 882 * BRANCH IS TAKEN TO ee wue pEROD . 
OOOSEE 0501 766 ABI 1,R5 * IN 'I* BIT 883 * --~-> PRNTRIN THIS LABELED ADDRESS IN aune ID = D3410/SYST 
OOO05FO CD24 0060 767 CW SENTL, R5 IS THIS THE CORRECT INTR LEVEL 884 * POINTES TO A COMMON BRROR” OUT UT AND FORMATTER ROUTI Et 
QOO5F4 1004 768 JE INTR3 * YES, GO EXIT THIS LEVEL 885 * WHICH WILL RETURN TO THIS PROG VIA REGISTER SEVEN 
QOOO5F6 3521 769 SLL 4 RS POSITION INTERRUPT IN HIGH BYTE 886 * 
OOOSF8 6DOD 0020 770 MVW RS, DEV3+2 SAVE INTO DEVG 887 eR GR ORO OR aii Roi gO a II I i kak gk akc ak i af ak aie ak 
OOOSFC 4cé65 771 TBTS R4,LE SET INTR LEVEL ERROR CONTROL BIT Q006A2 4624 0012 888 $PRNT MVA OPTN3, R6 LOAD ADDRESS OF OPTION WORD THREE 
QOOSFE 4CA2 772 INTR3 TBTR R4,XI WAS INTERRUPT EXPECTED OQO06A6 6D08 181E 889 MVW PRNTREN,R5 LOAD ADDRESS OF COMMON PRNT ROUTINE 
000600 teed 773 JON NT RX * YES, EXIT OFF THIS INTR LEVEL OOQOOGAA 4424 0000 890 MVA $PID,R4Y LOAD ADDRESS OF START OF PROG 
000602 4C6 774 TBTS Rs MI) * NOe SET MYSTERY INTR CONTROL BIT QOOO6AE 4324 0042 891 MVA PCTR, R3 LOAD ADDRESS OF PASS COUNTER 
000604 6006 775 INTR X1It HIS LEVEL VIA SUPVR TO PGK 0006B2 6FA3 0000 892 BAL eee) R7 BRANCH TO COMMON PRINT ROUTINE 
777 PELE Ee ERE EAEED SEREAELESS UEOEKEENEEGEESGECATAES EES ES TERE CES CEUTA ELLER EE 0Q06B6 CE25 0012 893 MVWZ OPT 30 R6 ZERO OUT ALL FLAGS 
778 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT * OOO6BA 4424 OOOE 894 MVA OPTN1,R4& LOAD BASE ADDRESS FOR INDICATORS 
7719 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN * QOOO6BE 802B 0232 OO6A 895 CB CDUTYPE, TYPE23 IS THIS A TYPE 23 PROCESSOR 
780 * RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. * 0006C4 1803 896 JNE  $PRN2 BRANCH IF NO 
787 REAR IGIOIOI IO OO OIC IA III I IIR IOI RI a ak de a ak 0006C6 4524 E000 897 MVWI X'EOQOO',RS5 INIT LOOP COUNTER 
000606 4c20 782 XIOCK TBT spa MT) DID MYS INTERRUPT OCCUR QQO06CA 5002 898 J $PRN1 BRANCH 
000608. 1208 783 JON Tocu BRANCH YES O0006CC. 4524 8000 899 $PRN2 MVWI xX*8000',R5 INIT LOOP COUNTER 
O0O060A 4C25 784 TBr {R4 LE) WAS AN INTR LEVEL ERROR FOUND Q0006D0 6002 900 $PRN1 SVC IDLE DELAY 
00060C 1002 785 JOFF x1o0cm NO, CONTINUE CHECKING 0006D2 4c03 901 TBT ane TM) SHOULD PROG TERMINATE 
QOO60E 4C61 786 TBTS R4, ER) SET ERROR CONTROL BIT ON QQO06D4 6A00 011C 902 BON TERM BRANCH YES 
000610 5004 787 J tocu BRAN 0006D8 7DA1 0001 903 AWI 1,85 INCREMENT LOOP COUNTER 
000612 4C24 788 XIOCM TBI $84 XE) WAS AN ERROR EXPECTED QOQ6DC 18F9 904 JINZ SERN BRANCH NOT ZERO 
000614 1208 789 JN TOGI YES, EXIT THIS ROUTINE OOO6DE 6802 006C 905 B PENT BRANCH TO RESTART FROM BEGINING 
000616 4C21 790 XIOCV TBT {Ra ER) TAS ERROR INTR CONTROL BIT ON 907 se oR IO lo IO gia OI I I II IG IO RA IR I KR ai 2k 
000618 1002 791 JOFF xIo0cx * NO, E THIS ROUTINE 908 * 
00061A 6802 Q6A2 792 XIOCU B SPRNT BRANCH TO PRINT ERROR 909 * CONSTANT VALUES USED IN THE ROUTINES ABOVE * 
Q0061E CB25 0012 793 XIOCX AVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 910 * * 
000622 68Cc2 0000 794 R6) RETURN TO USER VIA REG 6 0117 Jka ia OI GO OR i II iI RIO IIR RIOR I IGIOR IG RoR ik OF i kek 
000626 4C29 7195 XIOGI TBT fra GI) HAS GOOD INTERRUPT RECEIVED QQO6E2 O70A 912 AEN DC AEN) 
000628 12F8 796 - JON tocu BRANC QOO06E4 90000 913 ST DC X*0000! 
00062A 68C2 0000 797 B (R6) RETURN QOOQ6E6 FFFF 914 DC X'FFFF!* 
198 * QOQO6E8 AAAA 915 DC x RABE 
199 * I/O PARAMETER LIST | OOO6EA 5555 916 DC X*5555' 
00062E O04C 800 IOBLK DC A($DVAD ADRS OF DEVICE ADRS QOO6EC 8001 917 DC X*8001' 
000630 Q5B2 801 IOERR DC A (XIOER ERROR ROUTINE ADRS OOQGEE 4002 918 DC X*4002! 
000632 0000 802 IODCB DC A (*-* DCB_ ADRS OR LEVEL & INTR O006FO 2004 919 DC X*20048 
000634 0000 803 IOMOD DC A (*~* MODIFIER Q006F2 1008 920 DC x*1008°! 
000636 0000 ne DC A (*-* ADRS OF LAST SVC OO06F4 Q180 921 DC x'0180° 
000638 0000 805 IORSP DC A (*-* SECOND WORD OF LA St IDCB QO006F6 0240 922 DC X*O240' 
BOS INTERRUPT CONTROL BLOCK FOR MM OO0G FA 0810 334 De 10840" 
T C I/O COMMANDS 
00063A 004C 808 INTBL DC A SDVAD ADRS oF DEVICE ADRS OO06FC 0101 925 DC X'QVO1! 
popes O2Ck 809 DC A (INTOK INTERRUPT OK RETURN ADRS QOO6FE 0202 926 DC X'0202° 
00 § E 0 RE 810 DC A (INTER INTERRUPT ERROR ADRS 000700 O404 927 DC X*QUQ4? 
000640 0003 811 INTCC DC X¥*00035 INTERRUPT CODE EXPECTED 08802 0808 928 DC x*0808! 
Hee fon, PARAMETER 1151 goeee 3538 fo BE Hg00 
atte! 005 8] IOBL DC k pap ADRS OF DEVICE ADRS 000708 G040 931 DC X*4QO4uot 
00064 0 IOER DC A (XIOER) ERROR ROUTINE ADRS 00070A 8080 932 EN DC x*8080° 
keene 0 816 IODC DC A (4% -* DCB ADRS OR LEVEL & INTR 933 * 
000648 0000 817 IOMO DC A (*-* MODIFIER Q00070C OQ72C 33¢ AENN DC A (ENN) 
htats 8800 818 A (*-* ADRS OF LAST SVC CALL pOOa gE 0000 9 STT DC x*Q000°! 
4C 0000 842 IORS DC A (*-* SECOND WORD OF LAST IDCB 000710 0001 338 DC X'Q0018 
820 000712 0002 9 DC x*0002! 
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000714 0003 938 pc x'00038 DECLARED NAME ATTRIBUTES AND REFERENCES 
' | 
900718 9005 340 De x 0008" 0. RO. ABSOLUTE, HEX VALUE (00009000) 
00071A 0006 941 DC X'0006' 44g AaT 50) AS51463) 465 
00071C 0007 942 DC X'0007° 0 -R1. ABSOLUTE. HEX VALUE (00000001) 
00071E 0008 943 DC X'0008' 321 324 327 4330 333 336 354 #361 364 
000720 0009 944 pc x'o0098 377 384 389 391 395 411 418 423 425 
000722 OOOA 945 DC X"OOOA' 429 450 454 585 591 
000724 000B 946 DC X*OOOB! 0 -R2. ABSOLUTE. HEX VALUE (00000002) 
000726 000C 947 DC X'000Ct 322-325) -328)=0Ss 3310S 3334S 3370) 364) = 378) 387 
000728 9008 948 DC X'OOOE! 332 398 412 421 426 432 451 455 588 
00072A OF 949 DC X'OOOF® 
' e 0 oe ABSOLUTE. HEX VALUE (00000003 
aot i Lames “selene aa 1g gr SB 3s 88 $819 
007 000 9 ODES D X'0000! 
000736 0004 923 oe DC x 0004" 793 859 864 867 868 891 
it CET am titits ged fe Pee : a Tienes ak Yee bt ek 358 596 598 £646 
t e 
ore male ee g00 962 $98 god g7 G78 G7} gh 18 
none oo BD. eens 786 788 790 795 890 894 901 
0 R53. ABSOLUTE, HEX VALUE (00000005) 
169 17% 213 274 +215 216 =217 #4283 300 
303 643 645 654 +657 42.659 659 #=+672 «22764 
765 766 767 769 =$770 #=.%889 892 897 899 
0 oR6. ABSOLUTE. HEX VALUE (00000006) 
167 173. 2120S 278 )=219s 2440S 257) — 259 ~~ 262 
264 278 ##=$.279 #2280 282 285 289 292 296 
297 299 302 306 $309 318 ###362 376 380 
381 383 386 410 414 =$\}§15 417 420 #449 
452 453 #456 $457 458 $459 648 #671 #4«2796 
797 857 865 872 888 893 
0 -R7. ABSOLUTE. HEX VALUE (90000907) 
170 172 183 186 #190 195 198 199 201 
202 242 249 £4323 326 329 £332 335 338 
342 344 8365 653 763 £853 £855 £862 ~~ 870 
60 $CKPT ADDRESS. HEX LOCATION (0090000C) IN CSECT(E50E0 ) LENGTH (2) 
213 250 256 #4261 281 88 295 298 305 
320 341 348 379 382 394 #397 413 416 
428 431 446 460 
858 $C ONC ADDRESS. HEX LOCATION (00000666) IN CSECT(E50EO ) LENGTH(1) 
241 278 318 376 410 49 
852 $CONR ADDRESS. HEX LOCATION (00000656) IN CSECT(E5OEO ) LENGTH(1) 
127 $DAD ADDRESS. HEX LOCATION (00000056) IN CSECT(ESOEO ) LENGTH(2) 
151 152 160 161 #162 63 164 165 166 
201 339 814 #822 
125 $DVAD ADDRESS. HEX LOCATION (0000004C) IN CSECT(ESOEO LENGTH (2) 
128 148 133 154 155 156 157 158 159 
130 $DVID ADDRESS; HEX LOCATION (00000062) IN CSECT(E50EO ) LENGTH(2) 
129 $INTL ADDRESS. HEX LOCATION (00000060) IN CSECT(ESOEO ) LENGTH(2) 
143 189 194 445° 448 61 467 767 #860 
98 $IOIN ADDRESS, HEX LOCATION (00000014) IN CSECT(ESOEO ) LENGTH(2) 
99 $ISB ADDRESS. HEX LOCATION (00000016) IN CSECT(ESOEO ) LENGTH(2) 
131 $MXSL ADDRESS. HEX LOCATION(00000064) IN CSECT(ESOEO ) LENGTH (2) 
141 $PENT ADDRESS. HEX LOCATION (0090006C) IN CSECT(ESOEO ) LENGTH(6) 
173 $PEN1 ADDRESS. HEX LOCATION(00000104) IN CSECT(ES5OEO ) LENGTH(4) 
55 $PID ADDRESS, HEX LOCATION (00000000) IN CSECT(ES5OEO +) LENGTH(4) 
888 $PRNT ADDRESS. HEX LOCATION (000006A2), IN CSECT(E50E0 ) LENGTH(4) 
248 284 287 4291 294 01 304 308 #311 
363 396 399 430 433 #676 $702 #792 
900 $PRN1 ADDRESS. HEX LOCATION (000006D0) IN CSECT(E5OEO +) LENGTH (2) 
899 $PRN2 ADDRESS. HEX LOCATION (000006CC) IN CSECT(ESOEO ) LENGTH(4) 
176 $PUPD ADDRESS. HEX LOCATION (00000114) IN CSECT(E5OEO ) LENGTH (4) 
266 312 #346 4&4 34 68 
206 $PUPS ADDRESS. HEX LOCATION(0000017A) IN CSECT(E50E0 ) LENGTH (6) 
185 $RETI ADDRESS. HEX LOCATION (00000128) IN CSECT(E50E0 ) LENGTH (6) 
188 $RET2 ADDRESS. HEX LOCATION (00000134) IN CSECT(E50E0 ) LENGTH (6) 
222 $SRTAD ADDRESS. HEX LOCATION(000001A8) IN CSECT(E50E0 ) LENGTH (2) 
59 $RTNE ADDRE Sq HEX LOCATION (0000000a) IN CSECT(E50EO0 +) LENGTH(2) 
182 $STERM ADDRESS. HEX LOCATION (00000 11C) IN CSECT(ESOEO ) LENGTH (6) 
193 $TER1 ADDRESS. HEX LOCATION(0000014C) IN CSECT(E50E0 ) LENGTH (6) 
198 $TER2 ADDRESS. HEX LOCATION (00000164) IN CSECT(E5SOEO ) LENGTH(4) 
912 AEN ADDRESS. HEX LOCATION (000006E2) IN CSECT(E50EO0 ) LENGTH (2) 
934 AENN ADDRESS. HEX LOCATION(0000070C) IN CSECT(ESOEO ) LENGTH (2) 
38 CICB ABSOLUTE HEX VALUE (00000014) 
51 CPUTYPE ABSOLUTE. HEX VALUE (00000232) 
105 DCBUF ADDRESS. HEX LOCATION (00000022) IN CSECT(E50E0 ) LENGTH(2) 
169 355 356 652 663 
106 DCB2 ADDRESS. HEX LOCATION (00900024), IN CSECT (ES50E0 LENGTH (2) 
258 260 263 265 #283 86 290 293 360 
303. 307 +310 384 387 418 421 
108 DCB4 ADDRESS. HEX LOCATION (00000028) IN CSECT(ESOEO ) LENGTH(2) 
109 DCBS ADDRESS. HEX LOCATION(0000002A) IN CSECT(E50EO ) LENGTH (2) 
110 DC B6 ADDRESS. HEX LOCATION(0000002C) IN CSECT(E50E0 ) LENGTH (2) 


ESOEO --- SYSTEM TEST EXERCISOR FOR THE TIMER 
CROSS~REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 
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PCTR 
PREP 
PRNTRIN 
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RESET 
RICB 
RID 
RMCTO 
RMCT1 
RMDCO 
RMDC1 
RSCTO 
RSCT1 
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HEX 
HEX 
HEX 
HEX 
HEX 


ADDRESS, HEX LOCATION (00000025) 
HEX 
6 


RESS. HEX LOCATION (QOOQOOTA) 
395 98 


LOCATION (00000030) 


LOCATION (0000001C) 
LOCATION (00000018) 


LOCATION (00000020) 
447 


LOCATION (00000704) 
LOCATION (0000072Cc) 


HEX VALUE oe 
786 790 


HEX 
3 


LOCATION (000004C0) 
7 S54 355 


HEX VALUE (00000006) 


CT. START(00000000) 
OLUTE, HEX VALUE (00000029) 


HEX 


LOCATION (00000066) 


RESS. HEX LOCATION (00000068) 
OLUTE. HEX VALUE (00000002) 
6 900 


HEX VALUE (00000023) 
761 


HEX 
HEX 
HEX 


HEX 


HEX 
HEX 


HEX LOCATION (00 
568 572 


HEX 
1 


HEX 
HEX 
HEX 
HEX 


LOCATION (00 
570 


LOCATION (00000648) 
LOCATION (0000063A) 
LOCATION (00000640) 
LOCATION (000005BE) 
LOCATION (000005CA) 
LOCATION (00000604) 
LOCATION (000005D8) 
LOCATION (000005 FE) 


EX LOCATION (00000642) 
249 344 + 870 
syOCATION (00000628) 


342 862 
574 


MNO NO 


LOCATION (00000644) 
LOCATION (00000630) 
LOCATION (0000064C) 
LOCATION (00000638) 
LOCATION (000001D8) 


HEX VALUE (00000025) 
HEX VALUE (00000026) 
HEX LOCATION (00000018) IN 

651 865 866 68 
HEX VALUE (00000020) 
HEX LOCATION (0000072E) IN 


455 


HEX VALUE (00000028) 


660 
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IN 
IN 
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IN 
IN 
IN 
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IN 


IN 


LENGTH (1846) 


IN 
IN 


HEX Oh ae Tot taaear ty aa IN 


727 755 


HEX LOCATION (00000012) IN 


859 888 


HEX LOCATION(00000042) IN 

HEX VALUE (0000000C) 
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HEX VALUE (0000181E) 

HEX VALUE (0000000D) 

HEX VALUE (90000008) 
343 345 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (1) 


LENG TH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


> LENGTH (2) 


sbo 


LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 


LENGTH (2) 


LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (3) 
LENGTH (3) 
LENGTH (1) 
LENGTH (1) 
LENGTH (3) 
LENGTH (3) 


E50E0 --- SYSTEM TEST EXERCISOR FOR THE TIMER 
CROSS~REFERENCE LISTING 


DECLARED NAHE 


493 
498 
241 
278 
318 
376 
410 
444 
247 
256 
354 
347 
321 
379 
394 
397 
400 
413 
428 
431 
434 
4&5 
Quay 
467 
474 
479 
473 
478 
535 
540 
534 
539 
913 
504 
509 
503 
508 


935 


46 
66 
134 
525 
5 30 
524 
529 
514 
519 
513 
518 
89 
87 
645 
782 
788 
792 


RSDCQ 
RSDC1 
RTO 4 
RTO2 
RTO3 
RTO 4 
RTO5 
RTO6 
RT 101 
RT102 
RT302 
RT304 
RT305 
RT401 
RT402 
RT403 
RT4O4 
RT501 
RT502 
RT503 
RT504 
RT601 
RT602 
RT603 
RVCTO 
RVCT1 
RV DCO 
RVDC1 
SACTO 
SACT1 
SADCO 
SADC1 
Sst 
STCTO 
STCT1 
STDCO 
STDC1 
sTtt 
TERM 
TH 
TYPE23 
WMCTO 
WMCT1 
WMDCO 
WMDC1 
WVCTO 
wvcT1 
WVDCO 
WVDC1 
XE 

XI 
XIO 
XIOCK 
XIOCM 
XIOCU 


ATTRIBUTES AND REFERENCES 


DRESS. HEX LOCATION (00000498) 
RESS. HEX LOCATION (0000049C) 
RESS. HEX LOCATION (000001B6) 
RESS. HEX LOCATION (0000022C) 
RESS. HEX LOCATION (000002CC) 
ESS. HEX LOCATION (0000035A) 
ESS. HEX LOCATION (000003BE) 
ESS. HEX LOCATION (00000422) 
RESS. HEX LOCATION (000001CE) 
ESS. HEX LOCATION (000001F4) 
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Dm Bw 


mw w 


$3366 °329 
SS. HEX LOCATION (00000320) 
RESS. HEX LOCATION (000002DC) 
ESS. HEX LOCATION (00000366) 
HEX LOCATION’ 00000398) 
RESS. HEX LOCATION (000003AC) 
RESS. HEX LOCATION (000003BA) 
HEX LOCATION (000003CAa) 
HEX LOCATION (00000402) 
HEX LOCATION (00000410) 
HEX LOCATION (00000418) 
RESS. HEX LOCATION (00000426) 
RESS. HEX LOCATION (00000432) 
HEX LOCATION (00000478) 
RESS. HEX LOCATION (00000489) 
RESS. HEX LOCATION (0000048D) 
HEX LOCATION (00000488) 
HEX LOCATION (0000048C) 
HEX LOCATION (00000489) 
RESS. HEX LOCATION (000004BD) 
HEX LOCATION (00000488) 
HEX LOCATION (0000048BC) 
HEX LOCATION (00000654) 
HEX LOCATION (000004A1) 
HEX LOCATION (000004A5) 
HEX LOCATION (00000440) 
HEX LOCATION (000004A4) 
RESS. HEX LOCATION (00000708) 
OLUTE. HEX VALUE(00000007) 
OLUTE, HEX VALUE (00000003) 
RESS, HEX LOCATION (00000068) 
RESS. HEX LOCATION (00000481) 
RESS. HEX LOCATION (000004B5) 
RESS. HEX LOCATION (00000480) 
HEX LOCATION (000004B4) 
RESS. HEX LOCATION(000004A9) 
RESS. HEX LOCATION (000004AD) 
HEX LOCATION (00000448) 
HEX LOCATION (000004AaC) 
HEX VALUE (00000024) 
HEX VALUE (00000022) 
HEX LOCATION (00000552) 
HEX LOCATION (00000606) 
HEX LOCATION (00000612) 
HEX LOCATION (0000061A) 
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LENGTH (1) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (3) 
LENGTH (3) 
LENGTH (1) 
LENGTH (1) 
LENGTH (3) 
LENGTH (3) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (3) 
LENGTH (3) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 


LENGTH (2) 
LENGTH (3) 
LENGTH (3) 
LENGTH (1) 
LENGTH (1) 
LENGTH (3) 
LENGTH (3) 
LENGTH (1) 
LENGTH (1) 


LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
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ESOEO --- SYSTEM TEST EXFRCISOR FOR THE TIMER 
CROSS-REFERENCE LISTING 


DECLARED NANE 
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643 
646 
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600 
602 
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XIOCX 
XIOER 
XIOGI 
XIO1 
XIO2 
XI03 
XTO4 
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XT06 
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XIRSO 
XERS1 
XIRVO 
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ATTRIBUTES 


ADDRESS. 
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PN=1635247 


HEX LOCATION (0000061E) IN 


RESS. HEX er ath ee kas | IN 
142 357 64 801 15 


HEX LOCATION (00000626) IN 
HEX LOCATION (0000054C) IN 
HEX LOCATION (00000556) IN 
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HEX 
HEX 
HEX 
HEX 


HEX 
2 


HEX 


LOCATION (00000538 
LOCATION (00000582) 
LOCATION (00000584) 
LOCATION (0000058A) 
LOCATION (00000592) 
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LOCATION (000004DC) 
LOCATION (00000454) 
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LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
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000452 0792 473 WRADR DC A (WRBUF) BUPFER ADRS 590 * 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IP * 
u7y * 591 * WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * 
475 * CYCLE STEAL DATA CONTROL BLOCK 592 * 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. * 
ogous 475 3d $30: SHECK TF MMeRE'WASTAN EXROG CouDEErON TFdot Gorgiye™: 
CSDCB EQU * USE FOR DCB REFFRENCE ONLY : : 
000454 2000 478 CSCTL BR x' 20008 CONTROL WORD 595 * 11. CHECK IS A CYCLE STEAL OPERATION WAS £N PROGRESS THAT WAS * 
000456 0000 479 CSFMS DC X¥*0000! NOT OSED 596 * ISSUED BY THIS SUBROUTINE. be 
000458 0000 480 CSSKP DC X'00008 NOT USED 597 * 12. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A * 
00045A 0000 4st DC x¥'00008 598 * CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, * 
00045Cc 0000 482 DC X*00008 599 * COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. * 
O0045E 0000 483 CSCHN DC A(0000) CHAIN ADRS, NOT USED 600 * * 
000460 OOOE 484 CSBCT DC XfOO00E BYTE COUNT 601 * CALLING SEQUENCE a 
000462 0032 485 CSADR DC A(CSBUF) BUFFER ADRS 602 * 4 
4uB7 * 603 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: * 
YBB * SKIP TO ONE DATA CONTROL BLOCK 604 * * 
4B9 * 605 * --> B XIO XEQ ANY CYCLE STEAL COMMAND, MOD=0 * 
000464 490 OVDCB EQU *- USE FOR DCB REFERENCE ONLY 606 * ~-> BAL XIOCS, R6 XEQ START CYCLE STEAL STATUS, MOD=F * 
000464 0000 491 OVCTL D X'0000° CONTROL WORD 607 * * 
000466 0000 492 OVFMS DC x*0000° NOT USED 608 * RETURN CONTROL * 
000468 0001 493 OVSKP Dc X'0001! SKIP TO ONE 609 * : 
00046A 0000 494 DC X'00008 610 * BXS fR6) RETURN TO USER NO ERROR % 
OOO46C 0000 495 pc x'oooo?8 Rte ee ST TT TL ESET ST TTP SS SSCS ST TSS SS eS eS SSP CCS SSCS SS SSS SSCS LC SST PT eee TS Ee 
OO0O4U6E 0000 496 OVCHN DC A (0000) CHAIN ADRS, NOT USED OOOYE2 CB25 O060E 613 XIO MVWZ2 IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
000470 0000 497 OVBCT DC X*0000! BYTE COUNT, NOT USED OOO4E6 500C 614 J XIO1 CS Aap ARE NOT RETRIED 
000472 0000 498 OVADR DC A (0000) BUFFER ADRS, NOT USED OOO4ES 4CAB 615 TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 
200 OOO4EC 4030 060C 0454 G17 KIOCS HVA) GSDES: TODCB SET UP CONTROL BLOCK POR SVC CALL 
* SET EIGHT LINES PER INCH CONTROL BLOCK 
iter =| Bee " OOOKFa 4eo7 OO OOOF e419 Br (Recs) TS CS IN PROGRESS, ERROR CONDITION 
DCB8L EQU * USE FOR DCB REFERENCE ONLY T 
000474 0010 503 L8CTL De x*0010! CONTROL WORD OOOYFA 1218 620 JON {705 * YES, BYPASS SAVING I/O ADRS 
000476 0000 504 DC X'0000! NOT USED OOO4FC 4C23 621 TBT fe4e IN) TEST FOR INTERRUPT 
000478 0000 505 DC x'ooo0or NOT USED OOO4YFE 1261 622 JON TOCK BRANCH IF YES 
OO047A 0000 506 DC X*0000* NOT USED 000500 6E0D 0018 623 XIO1 MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 
00047C OOA4 507 DC X'OOAG? DIAG ADDRESS 000504 402EF 0018 0004 624 SHI 4, LSTIO DECREMENT FOR LAS INSTRUCTION 
OOO47E 0000 508 pc x'00008 NOT USED 00050A 4324 0000 625 HVA $ID. R3 LOAD ADDRESS OF PROGRAM START 
000480 0Q01C 509 DC X'001C! BYTE COUNT 0OO0O05O0E CB2F 0018 626 SW R3,LSTIO SUB TO OBTAIN LISTING ADDRESS 
000482 0716 510 L8ADR DC A(LINE8) BUFFER ADRS 000512 4324 0022 627 MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 
511 * 000516 6D08 060C 628 MVW IODCB, R5 * AND THE FROM ADRS, ALONG WITH 
512 * LOAD CHAIN FORMAT DATA CONTROL BLOCK QOOO51A OF10 629 MVBI 16,R7 * THE NUMBER OF MOVES 
513 * 00051C 2D64 630 MVFN R5) (P3) MOVE 1 STATUS WORD AND ADJUST 
000484 514 FMDCB EQU * USED FOR DCB REFERENCE ONLY OOO51E 4COE 631 TBT RG, t D) IS THIS A RETRY DUE TO FORMS CHECK 
000484 0000 515 FMCTL D X*00008 CONTROL WORD 000520 1205 632 JON 108 * YES BRANCH AROUND CS RE-INIT 
000486 0000 516 FMDC2 DC xX*0000! N.U. 000522 OBFF 633 MVBI 255,R3 CLEAR CYCLE STATUS BUFFER 
000488 0000 517 PMDC3 DC X*0000' SKIP TO / NUM OF SPACES 000524 4524 0032 634 HVA ©CSBOF, R5 * TO ALL ONES * 
OOO48A 0000 518 FMDC4 DC X*00008 000528 OF10 635 MVBI 16,R7 * 
00048C 0000 519 FMDC5 DC X*0000! 00052A 2BAC 636 FFN R3, (R5 * 
O0048E 0000 520 FMCHN DC A (0000) CHAIN ADDRESS 00052C 4CA3 637 XIO2 TBTR gpd IN CLEAR INTERRUPT RECEIVED CNTL BIT 
bones 5908 2eA PUroe we ; Seon BICEER TDD 000836 4434 0608 e395 nVA xrot R SET UP CONTROL BLOCK FOR SUPVR 
SETC BUFFER ADDRESS 
33% nan oge34 igb5 Cote 0060 Bae She GegatPE, treE23 SAGER Nor souRE oO” 2° 
DIAGNOSTIC DATA CONTROL BLOC 
a00use 532 gesa5 3551 600° et nos Bey Epos bekacyor coum 
526 DGDCB EQU * USED FOR DCB REFERENCE ONLY N 
000894 2000 257 necrt pee eDOObR caundGe aoeD 000542 75AA 644 XI05 Sw &5,R5 LOAD LOOP COUNT 
290498 9990 358 Bebcs Be | £10000" biti O00sue 08h gag tr Sye® Sttee” chin Sunn Pon t/0°CoReAKDS 
DGDC DC Xe ¢ SKIP TO NUM OF SPACES 
00049A 0000 530 DGDC4Y DC X*00008 / 000548 6002 647 XIO8 SVC IDLE ALLOW OTHER PROG TIME 
00049C 0000 531 DGDC5 DC X*00008 0O0054A 4C03 648 TBT §R4 TM) IS TERMINATE BIT ON 
00049E 0000 532 DGCHN DC 4 (0000) CHAIN ADDRESS 00054C 6A00 0080 649 BON $TER BRANCH IF ON 
OOO4AO O000C 533 DGBCT pC Xx¥*QOOC BYTE COUNT 000550 4CA3 650 TBTR RY,IN) HAS INTERRUPT BEEN RECEIVED 
OOO4A2 0792 534 DGADR DC A (WRBUF) BUFFER ADDRESS 000552 1237 651 JON 10€K * YES, CHECK IF ALL WAS SATISFACTORY 
FBG HM HH ee ee he he Me He Me he he he ee ae Re Oe he ae ae ae ee a ah ae Me he he ae Me he Hie oe ea ake a a ek aa a a KK 000554 TDA1 0001 652 AWL 1, R5 ADVANCE TIME OUT COUNT 
537 * ISSUE ALL 1¢0 COMMANDS FROM A COMMON SUBROUTINE % 000558 18F7 653 JNZ xfos BCH IF TIME OUT NOT REACHED 
538 * TO DISPLAY INSTRUCTIONS AND OPERATING PROCEDURES TO THE OPERATOR* O0O055A 4C61 654 TBTS R4,ER SET ON ERROR CONTROL BIT 
539 * AND SET UP ANY REQUIREMENTS FOR OTHER I/0 COMMANDS * 00055C 4C66 655 TBTS R4, LI SET LOST INTERRUPT CONTROL BIT 
540 * * 00055E 6802 0694 656 B PRAT * BCH TO FINISH ERROR SEQUENCE 
541 * -=-> BAL XIO8L, R6 INIT 8 LINES PER INCH * 6 5B HH He He he Me Me He He He ae Me Me Me Me ee eK ee a a a a 2K he a 2 ae ae 3 2c ok oi kia a a ak kk kK kkk kK KK KK KK 
542 * --> BAL XIOWR, R6 XEQ WRITE COMMAND * 659 * * 
543 * --> BAL XIOVF, R6 XEQ OVERFLOW TO THE NEXT PAGE * 660 * SUBROUTINE * 
544 * --> BAL DISPF, R6 GO DISPLAY MESSAGE AND SKIP TO 1 * 661 * * 
545 * ~-> BAL XIODG, R6 XEQ DIAGNOSTIC COMMAND * 662 * I/O EXECUTE ERROR HANDLING ROUTINE * 
546 * --> BAL XIOFM, R6 XEQ FORMAT COMMAND * 663 * * 
547 * * 664 * PURPOSE 53 
FB he ea ae he i Re a oO eo a a ae a a KK HE OK KK KK KE KE KK KE KK 665 * * 
OOO4A4 4020 060C 0474 549 XIOSL MVA DCB8L,IODCB SET UP CONTROL BLOCK FOR SVC CALL 666 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 
OOOSAA 501B 550 J XI BRANCH 667 * PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE * 
pom ac n020 060C 0444 224 XIOWR BVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL ed : SUPERVISOR AND IT WAS NOT ACCEPTED. . 
OO0O4BG 4020 O60C 0464 553 XIOVF MVA OVDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 670 * CALLING SEQUENCE * 
OOO4BA 5013 554 J XIO BRANCH 671 * * 
0004BC 555 DISPF EQU # 672 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND * 
OOO4BC 8F18 0440 556 MVW (37 +,MSBCT SET UP BYTE COUNT 673 * * 
0004C0 6FOD 0442 557 MVW 7,MSADR SET UP BUFFER ADRS 674 * RETURN CONTROL % 
OOO04CKH 4020 060C 0434 558 MVA uSHcB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 675 * * 
OOO4CA 500B 559 XIO GO DISPLAY MESSAGE 676 * B SPRNT DUMP STATUS BEFORE TERMINATION * 
0O0O04CC 4020 O60C 0494 560 XIODG MVA DGDCB, 1IODCB SET UP CONTROL BLOCK FOR SVC CALL 677 * * 
0004D2 4020 O60E 000D 561 MVWI xX*OD', IOMOD MOVE MODIFIER INTO CONTROL BLOCK 678 3 OI ROI I II III IR IO IO IORI IO i io ie 
O004D8 5013 562 J XYIO1 BRANCH 000562 706E 679 XIOER CPLSR R3 SAVE CONDITION CODE ON I/0 FRROR 
OOO4DA 4020 060C 0484 563 XIOFM MVA FMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 000564 336A 680 SRL 13,83 POSITION CC CODE TO BITS 13-15 
OOO4EO 5000 564 J XIO BRANCH 000566 C328 0014 681 4HVB R3,$SIOIN * PUT IN LOG OUT AREA 
566 3 Oo RO a oi iO ici Ra tok ik tok iototok dott O0056A 6802 0694 682 B NT BRANCH TO PRINT ERROR 
S567 * * 6 BY a me Me he he he ee he He he He ke ae aK eK OK oo kok ok dk ok ak kok gk kk Kk koko kok kK KOK KOK 
568 * SOUBROUTINE * 685 * om 
569 * * 686 * SOUBROUTINE * 
570 * EXECUTE INPUT AND OUTPUT COMMANDS * 687 * * 
571 * * 688 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL ‘$INTL* * 
572 * PURPOSE * 689 * * 
573 * * 690 * PURPOSE %* 
574 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. * 691 * * 
575 * THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: * 692 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 
576 * * 693 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * 
577 * 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 694 * EXPECTED CODE. * 
578 * THE I/0 COMMAND. * 695 * * 
579 * 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS * 696 * CALLING SEQUENCE * 
580 * ISSUED BY THIS SUBROUTINE. * 697 * * 
581 * 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE * 698 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN 1/0 INTERRUPT * 
582 * START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. * 699 * * 
583 * 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 700 * RETURN CONTROL * 
584 * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 701 * * 
585 * MYSTERY INTERRUPT ft) CONTROL BIT IS SET. * 702 * SVC EXIT RETURN TO USER VIA SUPVR * 
586 * 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN RT, SET THE * 703 * * 
587 * EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE tsyé START! . * TOG BRK EK Ke KK EK KK KOK KO KO KK KE KE KK KK KK EK EE KK OK OK KEKE 
588 * 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING * OOO56E 706E 705 INTER CPLSR R3 SAVE INDICATORS 
589 * STARTS TO DETERMINE A LOST INTERRUPT. * 000570 336A 706 SRL 13,R3 POSITION INDICATORS IN R3 
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000572 4424 OQOOE 707 MVA OPTN1 SET UP BASE ADRS 825 * * 
000576 4C27 708 TBT RY Ck} IS CS IN PROGRESS 826 * CALLING SEQUENCE * 
000578 1006 709 JOFF HTET * NO 827 * * 
Sheesa 4cé6s 710 TBTS R4,CE TURN ON CYCLE STEAL INTER ERROR 828 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: * 
057C 6FOD 0040 711 AHVW 7T,CSTL8 SAVE CS ERR ISB VALUE, BITS 0-7 829 * * 
000580 C328 0041 712 R3,CSTL8+1 * AND THE COND CODE 830 * --> BAL CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
000584 5009 713 J Infri BRANCH 831 * --> BAL CONR, R6 BCH TO CONWECT * 
000586 4C61 714 INTET TBTS bh ER) SET ERROR OWN 1/0 COMMAND CNTL BIT 832 * --> BAL SCONP, R6 PREPARE DEVICE ONLY * 
000588 5007 715 NTR1 BRANCH 833 * * 
TIT SRE REKEREEEEEEEEEEKSECEEEEAAEESHEAEKREESESECSEREEERS EERE EEAKKS EE EE RE KE ase : RETURN CONTROL : 
718 * * 
719 * SOUBROUTINE 3 : nae 4 BXS (R6) RETURN TO USER VIA REG 6 : 
x 
339 * OKAY INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL! BIG EERE KKEKSEEEKRKEKECEKEKEKEEEEREEKREKEKEEEEKEKEKESEKKEKEKEKCAKEEEKEKEEEK EK EEE 
722 * * 00061C 839 $CONR seu * 
723 * PURPOSE * 00061C 4724 0614 840 MVA INTBL, R7 SET R7? TO CONTROL BLOCK AND 
724 * x 000620 6014 841 SVC CICB * CONNECT IT TO THIS DEVICE 
725 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST * 000622 68C2 0000 B42 B (R6) RETURN 
aac . : hte CB25 0012 Bue eoee f a OPTN3 R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
727 * S C * 
Ee saa cb + 09082h CBE cs osoc B82 scour BBE SRE hoc TURN OFF IND INDICATOR 
* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * Po 
730 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO PRES ROUTINE * 000632 4724 0608 847 NVA IOBLK,R SET RV TO CONTROL BLOCK TO PREPARE 
731 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 000636 4020 0014 OT7FF 848 MVWI X'O7FF', $IOIN INITIALIZE CONDITION aoebe STORAGE 
7132 * COMMON SECTION IS HANDLED HERE. * 00063C CB25 0016 849 MVWZ $IS * AND CLEAR OLD ISB VALUE 
7133 * * 000640 6E0D 0018 850 MVW R6 LSTIO SET UP ADDRESS THAT ST RECED LAST I/0 
734 * RETURN CONTROL * 000644 402E- 0018 0004 851 SWI 4 £STIO DECREMENT TO POINT AT INSTRUCTION 
We + | g PYR : OOULUE CBSE OOlG B34 BVA  $BrD, 3 SUB TO OBTAIN LISTING ADDRESS 
* SVC EXIT RETURN TO USER VIA SU 
737 * * 000652 600Cc 823 SVC PREP * AND CALL ON SUPVR 
73GB EEEKEERREKEREKEKERERE CHE EEE EEE EEE ERE EEKERESEREEEKERESEERE EEEKEKEE KEE KE 000654 68C2 0000 855 B fF8) RETURN 
Q00058A 706E 739 INTOK CPLSR R3 SAVE INDICATORS 000658 402B 0034 0010 857 CSRTN THI *0010',CSTL2 IS OVERFLOW BIT ON 
Og 28C 336A 740 RL 13,83 POSITION INDICATORS IN R3 QOOO0O65E 1201 858 JON RESUM BRANCH YES 
00058E 4424 000k 741 NVA © OPSNT, RG SET UP BASE ADRS 000660 5015 859 J CCRTP BRANCH 
Ohoeae 4C2u 742 TBT se xf) TEST EXPECTED ERROR BIT | 000662 4C8E 860 RESUM TBTR {Rs IND) HAS INDICATOR BEEN SET 
000594 1001 743 JOFF wrhi BRANCH IF 000664 6A00 0694 861 BON PRAT BRANCH YES 
000596 4C69 744 TBTS RGU ,GI SET GOOD INTERRUPT BIT 000668 4CA1 862 TBTR R4, ER RESET ERROR INDICATOR 
000598 4C63 745 INTR1 TBTS R4,IN SET INTERRUPT RECEIVED OOO066A 4CAT 863 TBTR RG,CS RESET CS STATUS INDICATOR 
00059A 4C27 746 TBT RU-CS IS *CS IN PROGRESS* ON 00066C 4CHE 864 TBTS RGY,IN } SET INDICATOR 
00059C 1204 747 JON nt h2 * YES, BCH AROUND UPDATE QOOO66E 6EOD 068A 865 MVW 6, SAVE SAVE R6 
00059E C328 0015 748 MVB R3, S$IOIN+1 SAVE ENTERRUPTING CC CO 000672 402C 0444 0001 866 OWI! le RCTL OR IN RETRY BIT 
0005A2 6F0D 0016 749 MVW 8 8©R7,$ISB SAVE INTR STATUS AND DEV ADRS 000678 6£03 O4AC 867 BAL  XIOWR,R6 RETRY LAST WRITE COMMAND 
0005A6 78B9 750 INTR2 CPCL RS COPY INTERRUPT LEVEL TO CHECK 00067C 402D 0444 0001 868 RBTWI Tweety TURN OFF RETRY BIT 
0005A8 3521 751 SLL 4,R5 POSITION INTR LEVEL AND PUT 000682 6E08 O68A 869 MVW 8 8=6SAVEA,R6 RESTORE R6 
OOOSAA 0501 752 ABI 1,R5 * IN *L¢ BIT 000686 4C8E 870 TBTR R4 tfip) TURN OFF INDICATOR 
QOOO5AC CD24 0056 753 CW SINTL, RS IS THIS THE CORRECT INTR LEVEL 000688 5600 871 BXS R6 RETORN 
0005B0 1004 754 JE INTR3 * YES, GO EXIT THIS LEVE 00068A 0000 872 SAVEA DC bee SAVE AREA FOR R6 
0005B2 3521 755 SLL 4,R5 POSITEON RECEIVED LEVEL 00068C 4C21 873 CCRTP TBT fas ER) TEST FOR ERROR 
0005B4 6DOD 0020 756 HVW © RS DEV3+2 STORE INTO DEV 00068E 6A00 0694 874 BON PRAT BRANCH IF YES 
0005B8 4cé65 757 TBTS RO,LE SET LEVEL ERROR CONTROL BIT 000692 5600 875 BXS (R6) RETURN 
OOOSBA uCA2 758 INTR3 TBTR RYU,XI WAS TRE CRGn ee EXPECT SWNME TESS SSL SLT ESS SP SSS SSS STS SSS CCST PCS PCC SP eC TC TSS TTS CSCS SSCP Se TTC ST ST TT TP TTT TT ee 
0005BC 1201 759 ON nT kX * YES, EXIT OFF THIS INTR LEVEL 878 * COMMON PRINT ERROR INTERFACE ROUTINE * 
QOOOSBE 4c60 760 TBTS see MI) * NO, SET MYSTERY INTR CONTROL BIT 879 * * 
0005cCO 6006 761 INTRX SVC xr EXIT THIS LEVEL VIA SUPVR TO P 880 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 
TG 3 ee he he he ah he ae ae ah He a a a ee ee a ae a fe ee ne a a ate ee abe ate te ae ee he ae ae a ah ote a te he ee ae oe oer oe 881 * BRANCH IS TAKEN TO PRINT THE ERROR * 
764 * 882 * ----> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 
765 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 883 * BRANCH IS TAKEN TO PRINT THE ERROR 
766 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERROPT HAS BEEN 884 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 
767 * RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 885 * BRANCH IS TAKEN TO PRINT THE ERROR * 
768 * 886 * ~---> PRNTRITN THIS LABELED ADDRESS IW SYST § PROG ID = D3410/SYST * 
TED WM He He ee ee He eR RR ta Ra aaa ak ak 887 * POINTES TO A COMMON ERROR OUTPUT AND FORMATTER ROOUTI EY 
0005C2 4C20 770 XIOCK TBT 4B MI) WAS THERE AN UNEXPECTED INTERRUPT 888 * WHICH WILL RETURN TO THIS PROG VIA REGISTER SEVEN 
0005c4 1217 771 JON rocu BRANCH IF YES 889 * : 
0005C6 4C25 172 TBT R4Y,LE) WAS AW INTR LEVEL ERROR FOUND BOQ tk ho i oO ROR OO RO ROO IO gig kof i ak taki gc de a 
0005C8 1002 773 JOFF TOCH * NO, CONTINUE CHECKI 000694 4624 0012 891 $PRNT NVA OPTN3, R6 LOAD ADDRESS OF OPTION WORD THREE 
OOOSCA 4C61 774 TBTS er ER) SET ERROR CONTROL BIT ON 000698 6D08 181E 892 AVW PRNTRIN, RS LOAD ADDRESS OF COMMON PRNT ROUTINE 
0005cc 5013 175 J toéu BRANCH 00069C 4424 0000 893 MVA $PID, R4 LOAD ADDRESS OF START OF PROG 
QOOO5CE 4CAA 776 XIOCM TBTR (R4,PE) WAS A PROBABLE ERROR EXPECTED Q006A0 4324 0042 894 MVA = =PCTR, R3 LOAD ADDRESS OF PASS COUNTER 
0005D0 6aAC0O 0000 777 BON R6§ BRANCH YES OOO6A4 6FA3 0000 895 BAL {RS}, R7 BRANCH TO COMMON PRINT ROUTINE 
0O005D4 4c24 7178 TBT R4,XE) WAS AN ERROR EXPECTED OOO06A8 CE25 0012 896 MVWZ OPT 37 R6 ZERO OUT ALL FLAGS 
0005D6 1214 7179 JN TO6I * YES, BRANCH OOO06AC 4424 ODODE 897 MVA OPTN1,R4 LOAD BASE ADDRESS FOR INDICATORS 
0005D8 1682 780 TBT S86 CS) WAS AUTO CS IN PROGRESS 0006B0 802B 0232 0060 898 CB CPUT YbE, TYPE23 IS THIS A TYPE 23 PROCESSOR 
OOOSDA 1005 781 JOFF IOEV * NO, CONTINODE CHECKING 0006 B6 1803 899 JNE $PRND BRANCH IF NO 
O0005DC 4C28 782 TBT ca CE) ts c& IN AN ERR CONDITION 0006B8 4524 F000 900 MVWI X*EOOO", RS INIT LOOP COUNTER 
0005DE 6800 0658 783 BOFF CSRfN * NO, BCH 0006BC 5002 901 J $PRN1 BRANCH 
OOO5SE2 6802 06948 784 B S$PRNT GO L6G CS ERROR OOO6BE 4524 8000 902 S$PRN2 MVHWI X'8000',R5 INIT LOOP COUNTER 
O80 2 ee 4C21 785 xXIOCcV TBT see ER) WAS ERROR INTR CONTROL BIT ON 0006C2 6002 903 $PRN1 SVC IDLE DELAY 
0005E8 1007 786 JOFF rolyx * NO, EXIT THIS Ne a 0006C4 4C03 904 TBT ei TM) SHOULD ace TERMINATE 
OOO5SEA YCOE 787 XIOCQ TBT $2} IND) TEST FOR re ae 0006C6 6A00 0080 905 BON TERM BRANCH YE 
OOO5EC 6A00 0694 788 BON PRA PRINT ERROR IF ON OOO6CA 7DA1 0001 906 AWL 1,R5 INCREMENT LOOP COUNTER 
QOOO5FO 6802 OWES 789 B XxIOCS-4 * AVAILABLE, GO AND GET IT O0006CE 18F9 907 JINZ $bRN1 BRANCH NOT ZERO 
O005P4 6802 0694 790 XIOCU B $PRNT PRINT ERRO 0006D0 6802 0062 908 B $PENT BRANCH TO RESTART FROM BEGINING 
OOO5F8 CB25 0012 791 XIOCX AVW2Z OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 910 OR IO RIOR RI I a KR nOR kak ok tokog gk ok kk tk tk 
OOOSFC 68C2 0000 792 B R6) RETURN TO USER VIA REG 6 911 * DCB SETUP * 
000600 4C29 793 XIOGI TBT R4&,GI) WAS A GOOD INTERRUPT RECEIVED 912 * * 
000602 12F8 794 JON roco YES BRANCH 913 * THIS ROUTINE SETS UP THE PRINTER DCB FOR "STANDARD FUNCTIONS! * 
000604 68C2 0000 Ue m B (R6) RETURN o48 : AND ANY ROUTINE MUST HAKE *SPECIAL* MODIFICATIONS AS REQUIRED. : 
438 ; I/o PARAMETER LIST 49 : BAL SETUP, R6 . 
000608 o04c 800 IOBLK DC A($DVAD ADRS OF DEVICE ADRS 918 RIOR ROI OI II ROI IOI ROR III ROR OR IR RIOR ROI I ROR IOI RRR ROR RRR gtk 
O0O060A 0562 801 IOERR DC A(XIOER ERROR ROUTINE ADRS 0006D4 4324 0732 919 SETUP MVA ALPHA, R3 MOVE AN ALPHANUMERIC FIELD TO MAKE 
00060c 0000 802 IODCB DC A l4-* DCB ADRS OR LEVEL & INTR Q0006D8 4524 0792 920 MVA WRBOF,R5S * A LARGER WRITE BUFFER 
OQO060E 0000 803 IOMOD DC A (*-* MODIFIER O0006DC 4724 0108 921 MVWI MXCT k7 SET UP MOVE BYTE COUNT 
090619 0000 804 DC A (#-* ADRS OF LAST SVC CA OOO6EO 2BA4 922 MVFN Beh (R5 * AND MOVE 
000612 0000 805 IORSP DC A (*-* SECOND WORD OF LAST IDCB O006E2 4020 0452 0792 923 MVA RB fWR DR SET UP WRITE ADRS 
B06 * 0006 E8 CPF25 O44y 924 MVWZ WRCTL,R7 SET UP CONTROL WORD 
807 * INTERRUPT CONTROL BLOCK FOR I/O COMMANDS OOO6EC 4020 0450 0084 925 MVWI 132 Ror * AND THE BYTE COUNT 
808 * OOO06F2 4020 O446 100E 926 SETOUYW MVWIL X'1608E aWRFMS * MOVE IN CONTROLS 
000614 004C 809 INTBL DC A($DVAD ADRS OF DEVICE ADRS QOO6F8 4020 0436 100E 927 MVWI xX*100E* ;MSFMS * MOVE IN CONTROLS 
000616 O58A 810 INTO1 DC ACINTOK INTERRUPT OK RETURN ADRS OOO6FE 4020 O48 0001 928 MVWI 1 WRSKP- SET UP SINGLE SPACE CONTROL 
ORbe 18 O28E 811 INTO2 DC A CINTER INTERRUPT ERROR ADRS 000704 5600 929 BXS gfe) RETURN 
O0061A 0003 812 INTCC DC xX¥*00038 INTERRUPT CODE FXPECTED 931 * eR tO Re thao fie GRETA CCRC OD CGC eee ee ee 
814 SECEKECEREEEE REE KE EOE ERO akg ORR ik tok stk tk 932 * HIS TABLE HAS THE REPLACEMENT CODE USED 
815 * * 933 KEKE KEKE KKK KEKE KKK EK USEKECAS SEER CEEOL CECE CLE SHER ERENORd A SERERAGERAERE 
816 * SUBROUTINE * 000706 0000000000000000 934 SETCH DC X '0000000000000000! 96 CHARACTER SET 0 
817 *# * OOO70E 23456 789ABCDF001 935 DIAGX DC X*23456789ABCDFOO%! SPECIAL DIAGNOSTIC 
818 * CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE * 000716 98FI4YOBEF3384U5A4 936 LINES bDC X'OSFIVOBEF3Z3845Au8 CODE TO CHANGE PRINTER FROM 
819 * x OOO71E E8BB142E445D4U E339 937 DC X*ESBIYZ2EQ4SDUE339° * A SIX LINE PER INCH PRINTER 
820 * PURPOSE * 000726 4294D3394229F001 938 DC Ge Ea ea * TO AN EIGHT LINE PER INCH 
821 * * 00072E D8A5D8B9 939 ; X* DBASDSBBI8 * PRINTER. 
822 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND * 940 ROCIO IIR IORI GIGIOI GR I RIOR IORI ROR IORI I IGIR ROR GROI ROI IOIOR ROR RIOR ROR GRR IO RORO RO ROR gOgOg Ogee age 
823 * PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * QD He ae te OOO OR ERK ER REET AREER EERE ERE RE 
824 * TO INTERRUPT. bs 943 * ALPHANUMERIC BUFFER STORAGE % 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 . CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
Saige. 106 gay KKKKKEKKEKEKSEKHESKKKEKEKHE SE KKK KEKKESEKEEESEKEEECESEEEEKEEEHRESEKKEEE EEE EE EE DECLARED NAME ATTRIBUTES AND REFERENCES 
4 PHA DC "00! 
000733 CIC240C3CUC54H0C6C 946 aes De AB CDE FGH I* hela 47 -REG. ABSOLUTE. HEX VALUE (00000000) 
O0O073F GA 947 DC X'GAt CENT SIGN 207. 208 209 256 239 292 298 #311 317 
000740 U4BYOYCHDYEGO4F 948 DC Ch. <c# ft 0 -R1. ABSOLUTE. HEX VALUE (0000 991) 
000747 DO 949 DC X'po? CLOSING BRACE 230 a0 a2¢ 236 43 238 259 265 271 
Sayse Baugagopewonsnen 323 BE Se BONER EOP OF! $8) >" ey cuasn, rue ETA ek 
Cc EOUOA REV SLASH, T 
OOO75F E2E340EGESE640E7E 952 DC C'ST OVW XYZ ¢ asin aia 0 oR2. ABSOLUTE. HEX ALOE (90000002) 
OO076A 6A 953 DC X'6A' VERTICAL LINE 206. 6226 229), 261) = 265. 272 S276 
00076B 6B6C4O6D6E6FYOFOF 954 Dc C',% >? 012 345 678 9:#% att= me 0 -R3. ABSOLUTE. HEX ate hace te 
000787 CO 955 DC x'Cor- OPENING BRACE 262 266 «©2700 277) 42300 « 42500: 427 4300613 
000788 504u06061 956 Dc C'SE -/st 625 626 627 630 633 636 679 680 681 
00078C 79404AATEC4O 957 DC X'79404AA1 E040" GRVE ACC, CENT, TILDE,REV SL 705 706 «67120 «67390 67400748 791 B44 BUS 
000108 958 MXCT EQU 264 : MAXIMUN LENGTH OF WRITE BUFFER B52) 853 894 919 922 
QS Se ee ae eR he Oe eh ee ee i eae ae ae ee ae a ae a a aa a EEE KE EERE EEK EEE EEE KEK KE 0 eR4. ABSOLUTE. HEX paene cqcouso) 
000792 960 WRBUF Fou 4? MAXIMUM WRITE BUFFER 137 138 86150 153 372 615 616 619 £621 
: Qh 1 KH RK KEE KER AREER KEK ERE EE EKEKE EEE SE EERE KEKE EEK EK EEK OK S34 S34 ce sig $78 $23 $22 407 408 
enoee a BED EEN 160 770 772 #774 «2776 «29778 «780 782 7285 
787 793 845 860 862 863 864 870 873 
893 897 904 
0 eR5. ABSOLUTE. HEX VALUE (90000005) 
152 156 176 177 #42178 «#179 «1800 «6424 (425 
428 429 430 628 630 634 #636 642 ~ #42644 
644 652 750 751 #=+§$752 753 #755 #=+«§+756 #892 
895 900 902 906 920 922 
0 -R6. ABSOLUTE. HEX VALUE (00000006) 
136 175 181 182 205 212 =222 #=227 + «#228 
253. 254 255 257 £=268 #=+$.278 289 290 291 
296 308 309 310 315 331 $332 #£=333 £338 
342 348 #%}367 #£+%368 369 375 $389 #390 391 
395 399 418 419 420 435 440 #£=623 ~~ «2777 
792 795 842 850 855 865 867 #421869 871 
875 891 896 929 
0 eR7. ABSOLUTE. HEX VALUE {00000007) 
145 149 160 163 164 £213 215 #=$%336 £373 
422 426 556 557 #£=629 635 639 «#711 + #«2749 
840 847 #2895 921 924 
58 $CKPT ADDRESS. HEX LOCATION (000 000c, IN CSECT (E64F0 \ LENGTH (2) 
176 223 260 273 #4294 12 335 341 347 
374 = 394 )=—S 3398) = 433339 
843 $CONC ADDRESS. HEX LOCATION(00000626) IN CSECT(E64E0 ) LENGTH(1) 
212. #227 #42«©253 289 #308 31 367 #389 #£«®4418 
839 $CONR ADDRESS. HEX LOCATION(0000061C) IN CSECT(E64E0 ) LENGTH(1) 
97 $DATA ADDRESS. HEX LOCATION (OOQQO01A) IN CSECT(E64E0 LENGTH (2) 
177 178 59 263 264 274-275 
119 $DVAD ADDRESS. HEX LOCATION (0000004C) IN CSECT(E64EO0 ) LENGTH (2) 
122 $DVID ADDRESS. HEX LOCATION (00000058) IN CSECT(E64E0 ) LENGTH(2) 
121 “$INTL ADDRESS. HEX LOCATION (00000056) IN CSECT (E6450 ag LENGTH (2) 
94 $IOIN ADDRESS, HEX LOCATION (00000014) IN CSECT(E64E0 ) LENGTH (2) 
95 $ISB ADDRESS, HEX LOCATION (00000016) IN CSECT(E64E0 ) LENGTH(2) 
123 $HXSL ADDRESS. HEX LOCATION (0000005A) IN CSECT(E64E0 ) LENGTH (2) 
133 $PENT ADDRESS. HEX LOCATION(00000062) IN CSECT(E64E0 ) LENGTH(6) 
55 171 186 908 96 
53 $PID ADDRESS, HEX LOCATION (00000000) IN CSECT(E64E0 ) LENGTH(4) 
891 $PRNT ADDRESS. HEX LOCATION (00000694) IN CSECT(E64E0 } LENGTH (4) 
221 235 241 #346 #352 05 656 682 #784 
788 790 861 874 
903 $PRN1 ADDRESS. HEX LOCATION (000006C2) IN CSECT(E64E0 ) LENGTH (2) 
902 $PRN2 ADDRESS. HEX LOCATION(QQQOO6BE) IN CSECT(E64E0 ) LENGTH (4) 
137 $PUPD ADDRESS. HEX LOCATION(00000078) IN CSECT(E64E0 ) LENGTH(4) 
242 280 299 ~~ 31 3 76 409 445 
169 $PUP8 ADDRESS. HEX LOCATION (QOQOQOO0ODA) IN CSECT(E64E0 ) LENGTH (6) 
153 $RETC ADDRESS. HEX LOCATION(QOOQOOOAA) IN CSECT(E64EO0 ) LENGTH (2) 
158 $RETI ADDRESS, HEX LOCATION (000000B6) IN CSECT(E64E0 ) LENGTH(6) 
147 $RETN ADDRESS. HEX LOCATION (00000092) IN CSECT(E64E0 ) LENGTH(6) 
186 $RTAD ADDRESS. HEX LOCATION (00000106) IN CSECT(E64E0 ) LENGTH (2) 
57 $RTNE ADDRESS. HEX LOCATION (0000000a) IN CSECT(E64E0 ) LENGTH (2) 
143 $TERM ADDRESS. HEX LOCATION (00000080) IN CSECT(E64E0 ) LENGTH(6) 
163 $TER1 ADDRESS. HEX LOCATION(QOQQO0CE) IN CSECT(E64E0 ) LENGTH(4) 
945 ALPHA ADDRESS, HEX LOCATION (00000732) IN CSECT(E64E0 ) LENGTH(1) 
873 CCRTP ADDRESS. HEX LOCATION(0000068C) IN CSECT(E64EO ) LENGTH (2) 
89 CE ABSOLUTE. HEX VALUE (00000028) 
615 710 782 
38 CICB ABSOLUTE. HEX VALUE (00000014) 
49 CPUTYPE ABSOLUTE. HEX VALUE (00000232) 
88 cS ABSOLUTE. HEX VALUE (00000027) 
616 619 708 746 #780 863 
107 CSBUF ADDRESS, HEX LOCATION (00000032) IN CSECT(E64E0 ) LENGTH(1) 
477 CSDCB ADDRESS. HEX LOCATION (00000454) IN CSECT(E64E0 ) LENGTH(1) 
857 CSRTN ADDRESS. HEX LOCATION (00000658) IN CSECT(E64EO0 ) LENGTH(6) 
347 CSsT4 ADDRESS. HEX LOCATION(000002D0) IN CSECT(E64E0 ) LENGTH(6) 
353 CSST7 ADDRESS. HEX LOCATION(000002E8) IN CSECT(E64E0 ) LENGTH(4) 
109 CSTL2 ADDRESS. HEX LOCATION (00000034) IN CSECT(E64EO ) LENGTH(2) 
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NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
115 CSTL8 ADDRESS. HEX LOCATION(00000040) IN CSECT(E64E0 ) LENGTH (2) 137 707 +741 897 
711 712 69 OPTN3 ADDRESS. HEX LOCATION (00000012) IN CSECT(E64E0 ) LENGTH(2) 
99 DCBUF ADDRESS. HEX LOCATION (00000022) IN CSECT (E64E0 ) LENGTH (2) 791 B44 891 896 
627 490 OVDCB ADDRESS. HEX LOCATION (00000464) IN CSECT(E64E0 ) LENGTH(1) 
502 DC B8L ADDRESS. HEX LOCATION (00000474) IN CSECT(E64E0 ) LENGTH (1) D3 
549 116 PCTR ADDRESS. HEX LOCATION(00000042) IN CSECT(E64E0 ) LENGTH (2) 
98 DEV3 ADDRESS. HEX LOCATION(0000001E) IN CSECT(E64E0 } LENGTH (2) 134 894 
173 180 219 220 #234 40 8 345 351 4O4 91 PE ABSOLUTE. HEX VALUE (0000002A) 

526 DGDCB ADDRESS. HEX LOCATION(00000494) IN CSECT(E64E0 ) LENGTH (1) 44 PREP ABSOLUTE. HEX VALUE (0000000C) 

935 DIAGX ADDRESS. HEX LOCATION (000007 0E) IN CSECT (E64 E0 ) LENGTH (8) 48 PRNTRIN ABSOLUTE. HEX VALUE (0000181F) 

555 DISPF ADDRESS. HEX LOCATION (OO00004BC) IN CSECT(E64E0 ) LENGTH (1) 434 RANDY ADDRESS. HEX LOCATION (00000402) IN CSECT(E64E0 ) LENGTH (6) 

259 DSPL2 ADDRESS. HEX LOCATION(QOOO01CE) IN CSECT(E64E0 ) LENGTH (4) 440 RAND7 ADDRESS. HEX LOCATION (0000041C) IN CSECT(E64E0 ) LENGTH (4) 

265 DSPL3 ADDRESS. HEX LOCATION (QOOOO1EA) IN CSECT(E64E0 ) LENGTH (2) 45 RESET ABSOLUTE, HEX VALUE (00000008) 

276 DSPL5 ADDRESS. HEX LOCATION (0000021A) IN CSECT(E64E0 +) LENGTH (2) 860 RESUM ADDRESS. HEX LOCATION (00000662) IN CSECT(E64E0 +) LENGTH(2) 
82 ER ABSOLUTE. HEX VALUE (00000021) 42 RICB ABSOLUTE. HEX VALUE (00000013) 

654 714 774 785 8 873 165 

39 EXIT ABSOLUTE. HEX VALUE(00000006) 46 RID ABSOLUTE. HEX VALUE (00000009) 

36 E64E0 CSECT. START (00000000) LENGTH(1938) ESDID(0) 295 RIPL3 RODRESS: HEX LOCATION (00000242) IN CSECT(E64E0 ) LENGTH (6) 
522 FMADR ADDRESS. HEX LOCATION (00000492) IN CSECT (E64E0 ) LENGTH (2) 205 RTO 1 ADDRESS. HEX LOCATION(00000118) IN CSECT(E64E0 +) LENGTH (4) 
515 FMCTL ADDRESS. HEX LOCATION (00000484) IN CSECT(E64E0 ) LENGTH (2) 253 RT 02 ADDRESS. HEX LOCATION(000001B6) IN CSECT(E64E0 +) LENGTH (4) 
514 FMDCB ADDRESS. HEX LOCATION(00000484) IN CSECT(E64E0 ) LENGTH (1) 289 RTO3 ADDRESS. HEX LOCATION (00000228) IN CSECT(E64E0 ) LENGTH (4) 

90 GI ABSOLUTE. HEX VALUE (00000029) 308 RTOY ADDRESS. HEX LOCATION (00000258) IN CSECT(E64E0 ) LENGTH (4) 
124 HOOO0O ADDRESS. HEX LOCATION(0000005C) IN CSECT(E64E0 +) LENGTH (2) 331 RTOS ADDRESS. HEX LOCATION (00000288) IN CSECT (E64E0 ) LENGTH (4) 
125 HO001 ADDRESS. HEX LOCATION(OQOOO0SE) IN CSECT(E64E0 ) LENGTH (2) 367 RTO6 ADDRESS. HEX LOCATION(00000318) IN CSECT(E64E0 ) LENGTH (4) 

40 IDLE ABSOLUTE. HEX VALUE (00000002) 389 RTO7 ADDRESS. HEX LOCATION (00000360) IN CSECT(E64EO0 ) LENGTH (4) 

84 IN ABSOLUTE. HEX VALUE (00000023) 418 RTO8 ADDRESS. HEX LOCATION(000003C4) IN CSECT(E64E0 +) LENGTH (4) 

65 IND ABSOLUTE. HEX YALUE (0000000E) 872 SAVEA ADDRESS. HEX LOCATION(0000068A) IN CSECT(E64E0 ) LENGTH (2) 

631 787 845 860 864 870 865 869 

809 INTBL ADDRESS. HEX LOCATION (00000614) IN CSECT(E64E0 ) LENGTH (2) 934 SETCH ADDRESS. HEX LOCATION (00000706 IN CSECT (R64 EO ) LENGTH (8) 

705 INTER ADDRESS: HEX LOCATION (QOOOOOS6E) IN CSECT(E64EO +) LENGTH (2) 919 SETUP ADDRESS. HEX LOCATION (000006 D4 IN CSECT (E64E0 ) LENGTH(4) 

714 INTET ADDRESS. HEX LOCATION(00000586) IN CSECT(E64E0 ») LENGTH (2) 314 SPAC3 ADDRESS. HEX LOCATION (00000272) IN CSECT(E64FO ) LENGTH(6) 

739 INTOK ADDRESS. HEX LOCATION(O000058A) IN CSECT(E64E0 +) LENGTH (2) 4 3 START ABSOLUTE. HEX VALUE (0000000A) 

761 INTRX ADDRESS. HEX LOCATION(000005C0O) IN CSECT(E64E0 +) LENGTH(2) 44 TERM ABSOLUTE. HEX VALUE (00000007) 

745 INTR1 ADDRESS, HEX LOCATION (00000598) IN CSECT(E64EOQ +) LENGTH (2) 64 TM ABSOLUTE. HEX VALUE (00000003) 

750 INTR2 ADDRESS. HEX LOCATION(OQO005A6) IN CSECT(E64E0 ) LENGTH (2) 126 TY PE23 ADDRESS. HEX LOCATION (00000060) IN CSECT(E64E0 +) LENGTH(2) 

758 INTR3 ADDRESS. HEX LOCATION (OQO005BA) IN CSECT(E64E0 ) LENGTH (2) 403 VARI1 ADDRESS. HEX LOCATION (000003A6) IN CSECT(E64E0 +) LENGTH (6) 

800 IOBLK ADDRESS, HEX LOCATION (00900608) IN CSBCT (26420 ) LENGTH (2) 406 VARI6 ADDRESS. HEX LOCATION (000003B6) IN CSECT(E64EO0 ) LENGTH(6) 

802 IODCB ADDRESS. HEX POCATION (O00U060C) IN CSECT(E64EO _) LENGTH (2) 409 VARI7 ADDRESS. HEX LOCATION(000003C0) IN CSECT(E64FO ) LENGTH (4) 

144 159 +161 549° 386551 53 558 560 563 4O7 

617 628 846 473 WRADR ADDRESS. HEX LOCATION(00000452) IN CSECT(E64FO ) LENGTH(2) 
801 IOERR ADDRESS. HEX LOCATION(OO00060A) IN CSECT(E64E0 ) LENGTH (2) 293 295 370 443 923 

133 143 148 158 472 WRBCT ADDRESS. HEX LOCATION(00000450) IN CSECT(E64EO ) LENGTH(2) 
803 IOMOD ADDRESS, HEX LOCATION(OOQOOO60E) IN CSECT(E64E0 ) LENGTH (2) 208 371 429 432 925 

147 561 613 618 960 WRBUF ADDRESS. HEX LOCATION(00000792) IN CSECT (E64E0 L LENGTH (1) 
805 IORSP ADDRESS. HEX LOCATION(00000612) IN CSECT(E64E0 ) LENGTH(2) 229 230 231 234 236 37 240 261 272 

217 21 424 428 431 438 441 473 534 920 923 

211 ITST4 ADDRESS. HEX LOCATION (00000132) IN CSECT(E64E0 ) LENGTH (6) 466 WRCTL Oe ag are pont ooeeaal IN CSECT (E64E0 ) LENGTH (2) 

222 ITST5 ADDRESS. HEX LOCATION (00000160) IN CSECT(E64E0 ) LENGTH (4) 465 WRDCB ADDRESS, HEX LOCATION (00000444) IN CSECT(E64E0 ) LENGTH(1) 

242 ITST7 ADDRESS. HEX LOCATION (000001B2) IN CSECT(E64EO +) LENGTH(4) 467 WRFMS ADDRESS. HEX LOCATION (00000446) IN CSECT(E64EQ0 +) LENGTH(2) 

236 ITsv9 ADDRESS. HEX LOCATION(Q000019A) IN CSECT (E64E0 ) LENGTH (4) 468 WRSKP ADDRESS 2 HEX LOCATION (00000848) IN CSECT (E6420 ) LENGTH (2) 
86 LE ABSOLUTE. HEX VALUE(00000025) 85 XE ABSOLUTE. HEX VALUE(00000024) 

757 772 372 742 (778 

87 LI ABSOLUTE. HEX VALUE (00000026) 83 XI ABSOLUTE» HEX VALUE (00000022) 

9 36 LINES8 ADDRESS. HEX LOCATION(00000716) IN CSECT(E64E0 ) LENGTH (8) 613 XIO ADDRESS; HEX LOCATION (00Q004E2) IN CSECT(E64E0 +) LENGTH (4) 
96 LSTIO ADDRESS, HEX LOCATECN (o0000078) 28 CSECT(E64EQ ) LENGTH (2) 770 XIOCK ADDRESS. HEX LOCATION (000005C2) IN CSECT(E64E0 ) LENGTH (2) 
81 MI ABSOLUTE. HEX VALUE (00000020) 776 XIOCM ADDRESS. HEX LOCATION (OOOOOSCE) IN CSECT(E64E0 ) LENGTH (2) 

461 MSADR ADDRESS. HEX LOCATION (00000442) IN CSECT(E64E0 ) LENGTH (2) 617 XLOCS ADDRESS. |HEX_ LOCATION (O00Q04EC) IN CSECT (E64E0 ) LENGTH (6) 

460 MSBCT ADDRESS. HEX LOCATION (00000440) IN CSECT(E64E0 ) LENGTH (2) 790 XIOCU ADDRESS: HEX LOCATION (000005F4) IN CSECT(E64EO0 ) LENGTH (4) 

454 MSCTL ADDRESS, HEX LOCATION (00000434) IN CSECT(E64E0 ) LENGTH (2) 785 XIOCV ADDRESS. HEX LOCATION (O00005E6) IN CSECT(E64EO ) LENGTH(2) 

453 MSDCB ADDRESS. HEX LOCATION(00000434) IN CSECT(E64EO +) LENGTH (1) 791 XIOCX ADDRESS. HEX LOCATION (O00005F8) IN CSECT(E64EO0 +) LENGTH(4) 

455 MSPAS ADDRESS, HEX LOCATION (00000436) IN CSECT(E64E0 ) LENGTH (2) 560 XIODG ADDRESS. HEX LOCATION(O00004CC) IN CSECT(E64EO0 +) LENGTH (6) 

354 MSGCS ADDRESS, HEX LOCATION(OOOOO2EC) IN CSECT(E64E0 ) LENGTH (2) 679 XIOER ADDRESS. HEX LOCATION (00000562) IN CSECT(E64E0 +) LENGTH(2) 

356 MSGND ADDRESS; HEX LOCATION (00000317) IN CSECT(E64E0 ) LENGTH(1) 563 XIOFM ADDRESS. HEX LOCATION (OOQOO4DA) IN CSECT (E64 E0 ) LENGTH (6) 

377 MSGPE ADDRESS. HEX LOCATION (00000344) IN CSECT(E64EO0 +) LENGTH (2) 793 XIOGI ADDRESS. HEX LOCATION (00000600) IN CSECT(E64E0 ) LENGTH (2) 

379 MSG PN ADDRESS. HEX LOCATION (00000360) IN CSECT(E64EO ) LENGTH(1) 553 XIOVF ADDRESS. HEX LOCATION (00900484 ohh CSECT (E64EO ) LENGTH (6) 

958 MXCT ABSOLUTE. HEX VALUE (00000108) 551 XIOWR RUDEES 52. EX POCRTTON (O0GOQNAC IN CSECT (264 £0 ) LENGTH (6) 
60 OPTN1 ADDRESS. HEX LOCATION(OQQOOOOOOE) IN CSECT(E64E0 ) LENGTH (2) 623 X101 ADDRESS. HEX LOCATION(00000500) IN CSECT(E64E0 ) LENGTH (4) 
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637 X1I02 RBORESS. HEX LOCATION (0000052C) IN CSECT(E64E0 ) LENGTH(2) 
644 XI05 i Dbress. HEX LOCATION (00000542) IN CSECT(E64E0 ) LENGTH (2) 
645 XI 06 ADDRESS. HEX LOCATION (00000544) IN CSECT(E64E0 ) LENGTH (2) 
647 X108 ADDRESS. HEX LOCATION (00000548) IN CSECT(E64E0 ) LENGTH(2) 
549 XIO8L ADDRESS. HEX LOCATION (OOOOQ04A4) IN CSECT(E64E0 ) LENGTH(6) 
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E68EO --- SYSTEM TEST EXERCISOR FOR THE 4973 PN=4414104 EC=755104 PAGE O04 E68EO --- SYSTEM TEST EXERCISOR FOR THE 4973 PN=4414104 EC=755104 PAGE O4WA 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
107 * * OOO06B4 4C27 824 TBT fioet ,CS) WAS AUTO CS IN PROGRESS 
708 * PURPOSE * 0006B6 1005 825 JOFF * NO, CONTINUE CHECKING 
709 * * 0006B8 4c28 826 TBT a a 1s C&S IN AN ERR CONDITION 
710 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * COOO6BA 6800 0734 827 BOFF * NO, BCH 
711 * PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE * OOO6BE 6802 0770 828 B Go LOG CS ERROR 
712 * SUPERVISOR AND IT WAS NOT ACCEPTED. * 0006C2 4C21 829 XIOCV TBT (ea ER) WAS ERROR INTR CONTROL BIT ON 
713 * * 0006C4 1007 8 30 JOFF toeéx * NO, EXIT THIS ROUTINE 
714 * CALLING SEQUENCE * 0006C6 4COE 831 XIOCQ TBT jes IND) TEST FOR INDICATOR ON 
715 * * 0006C8 6A00 0770 832 BON PRAT PRINT ERROR IF ON 
716 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND * 0006CC 6802 05c4 833 B XIOCS-4 * AVAILABLE, GO AND GET IT 
717 * * 0006D0 6802 0770 834 XIOCU B $PRNT PRINT ERROR 
718 * RETURN CONTROL * 0006D4 CB25 0012 835 XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
719 * * 0006D8 68C2 0000 836 B R6) RETURN TO USER VIA REG 6 
720 * B $PRNT DUMP STATUS BEFORE TERMINATION OO0OO06DC 4C29 837 XIOGI TBT R4,GI) WAS A GOOD INTERRUPT RECEIVED 
721 * * OOO06DE 12F8 838 JON IOCU YES BRANCH 
T22 HH RIOR IR III III OR TOR RIOR RR kok kk O006E0 68C2 0000 839 B (R6) RETURN 
00063E 706E 723 XIOER CPLSR R3 SAVE CONDITION CODE ON I/0 ERROR 841 * 
000640 336A 724 SRL 13,R3 POSITION CC CODE TO BITS 13-15 842 * 1/0 PARAMETER LIST 
000642 C328 0014 725 MVB R3,$10IN * PUT IN LOG OUT AREA 843 * 
000646 6802 0770 726 B Bake BRANCH TO PRINT ERROR OOO6E4 O04C 844 IOBLK DC A($DVAD ADRS OF DEVICE ADRS 
728 GRGMK COWEECE con eae WRW OW RET CEa eee ee cos ease leas OOC6E6 O63E 845 IOERR DC A({XIOER ERROR ROUOTENE ADRS 
729 * * OO0O06E8 0000 846 IODCB Dc A (*-* DCB ADRS OR LEVEL & INTR 
730 * SOUBROUTINE * OOO6EA 0000 847 IOMOD DC A (*-* MODIFIER 
731 * * O0OO0O06EC Q000 848 DC A (*-* ADRS OF LAST SVC CALL 
432 ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* : OOO6EE 0000 B43 IORSP DC A (*-* SECOND WORD OF LAST IDCB 
734 ' PURPOSE : B21 : INTERRUPT CONTROL BLOCK FOR I/0 COMMANDS 
736 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * OOO6FO O04C 853 INTBL DC A ($DVAD ADRS OF DEVICE ADRS 
737 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * OOO6GF2 0666 854 INTO1 DC A(INTOK INTERRUPT OK TURN ADRS 
738 * EXPECTED CODE. * OOO6F4& O64A 855 INTO2 DC A{INTER INTERRUPT ERROR ADRS 
739 * * OO06F6 0003 856 INTCC DC X¥*0003! INTERRUPT CODE EXPECTED 
740 * CALLING SEQUENCE * 858 SO ISO IIIA ISI OIG IOI O GIG IGIGIOIO IO EO IOR IOI EA CIOR Aoki i a tok 
741 * * 859 * * 
qe : SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 INTERRUPT . B60 : SUBROUTINE . 
744 * RETURN CONTROL * 862 . CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE : 
x 
7kS 2 SVC EXIT RETURN TO USER VIA SUPVR : ce : PURPOSE : 
748 Pt SSL SEL E SLE SSS SSS SEL SS SSS SS SSCS SS SCS SSS SSC SSC SSCSCSCOSSCLSOSSOCLSCCOS CS LCL e Se 8 SY 866 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND * 
OOO064A 706E 749 INTER CPLSR R3 SAVE INDICATORS 867 * PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * 
00064C 336A 750 SRI 13,R3 POSITION INDICATORS IN R3 868 * TO INTERRUPT. * 
OOO64E 4424 OOOE 751 MVA OPTN1,R4 SET UP BASE ADRS 869 * * 
000652 4C27 752 TBT R c§) IS CS IN PROGRESS 870 * CALLING SEQUENCE * 
000654 1006 7153 JOFF Intft * NO 871 * * 
000656 4Cé68 754 TBTS (R4,CE TURN ON CYCLE STEAL INTER ERROR 872 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: % 
000658 6F0D 0040 755 MVW R7,CSTL8 SAVE CS ERR ISB VALUE, BITS 0-7 873 * * 
00065C C328 0041 756 MVB R3,CSTL8+1 * AND que COND CODE 874 * ==> BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT 1/0 BLK 
000660 5009 757 J INTR1 BRANC 875 * --> BAL $CONR, R6 BCH TO CONNECT 
000662 4C61 758 INTET TBTS Ra ER) SET EHROR ON I/O COMMAND CNTL BIT 876 * --> BAL $CONP, RG PREPARE DEVICE ONLY % 
000664 5007 7159 J nTth1 BRAN 877 * * 
761 PES SSLS SL ELS SST SSS SSS STS STS SSS TC SSS SSS CT SSC SSC SCSC CCC CSSLSCSCCSCL SC SPST TT TT SS 878 * RETORN CONTROL * 
762 * * | 879 * * 
162 : SOUBROUTINE : ee . BXS (R6) RETURN TO USER VIA REG 6 . 
765 * OKAY INTERRUPT RUNS ON INTERRUPT LEVEL *SINntTLt * 8B2 ek KK OK koko OK Kr ROR kK kk kK KOR Rg kik kK kk kok gi ik gg doi fe ageaicaieate rk age akoggc ak akokoko age ai age ake afc 
166 * * OOO06F8 883 $CONR Eou * 
767 * PURPOSE * OOO06F8 4724 O6FO 884 MVA INTBL, R7 SET R7 TO CONTROL BLOCK AND 
768 * * OO06FC 6014 885 SVC CICB * CONNECT IT TO THIS DEVICE 
769 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST * QOO6FE 68C2 0000 886 B (R6) RETURN 
770 * * 000702 887 $CONC EQU * 
771 * CALLING SEQUENCE * 000702 cCB25 0012 888 MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
772 * * 000706 4CB8E 889 TBTR (Ra rh ) TURN OFF IND INDICATOR 
773 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 000708 8828 0056 O6E8 890 $CONP MVW INTL, I DCB PUT IN LEVEL & INTR PARAMETER 
774 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * OOO70E 4724 O6EY 891 MVA IOBLK SET R7 TO CONTROL BLOCK TO PREPARE 
775 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 000712 4020 0014 O7FF 892 MVWI X'O7FF', $IOIN INITIALIZE CONDITION CODE STORAGE 
176 * COMMON SECTION IS HANDLED HERE. * 000718 CB25 0016 893 MVWZ2 $ISB,R3 * AND CLEAR OLD ISB VALU 
777 * * 00071C 6E0D 0018 894 MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 
778 * RETURN CONTROL * 000720 4O2E 0018 0004 895 SWI 4 LSTIO DECREMENT TO POINT AT INSTRUCTION 
779 * * 000726 4324 0000 896 MVA $PID, R3 LOAD ADDRESS OF START OF PROG 
780 * svc EXIT RETURN TO USER VIA SUPVR * OOO72A CB2F 0018 897 SW R3 L§TIO SUB TO OBTAIN LISTING ADDRESS 
781 * 00072E 600C 898 Svc PREP * AND CALL ON SUPVR 
782 OR ORI ORI IIIOIOIOII IOI IO IO OI IO RII IO aR FOI IG kkk 000730 68C2 0000 899 B $ Re) RETURN 
000666 706E 783 INTOK CPLSR R3 SAVE INDICATORS 000734 402B 0034 0010 901 CSRIN TWI *0010',CSTL2 IS OVERFLOW BIT ON 
000668 336A 784 SRL 13,R3 POSITION INDICATORS IN R3 00073A 1201 902 JON RESUM BRANCH YES 
QO066A 4424 OOOR 785 MVA OPfN1, RG SET UP BASE ADRS 00073C 5015 903 J CCRTP BRANCH 
Q0O066E 4C24 786 TBT {ge xf) TEST EXPECTED ERROR BIT 00073E 4C8E 904 RESUM TBTR ie IND) HAS INDICATOR BEEN SET 
000670 1001 787 JOFF R14 BR IF OFF 000740 6A00 0770 905 BON PRAT BRANCH YES 
000672 4c69 788 TBTS R4,GI SET GOOD INTERRUPT BIT 000744 4CA1 906 TBTR R4,ER RESET ERROR INDICATOR 
000674 4C63 789 INTR1 TBTS RG,IN SET INTERRUPT RECEIVED 000746 4CAT 907 TBTR R4,CS RESET CS STATUS INDICATOR 
000676 4C27 790 TBT R4&,CS IS "CS IN PROGRESS* ON 000748 4CUYE 908 TBTS RG, IN SET INDICATOR 
000678 1204 791 JON NT R2 * YES, BCH AROUND UPDATE OOO74A 6EOD 0766 909 MVW 6, SAVE SAVE R6 
QOO0067A C328 0015 792 MVB R3,$I10IN+¢1 SAVE INTERRUPTING CC CODE OOO7T4E 402C 0532 0001 910 OWL 1, 8RCTL OR IN RETRY BIT 
000672 6F0D 0016 7193 MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS 000754 6E03 0582 911 BAL X fOWR, R6 RETRY LAST WRITE COMMAND 
000682 78B9 794 INTR2 CPCL RS COPY INTERRUPT LEVEL TO CHECK 000758 402D 0532 0001 912 RBTWI 1,WRCTL TURN OFF RETRY BIT 
000684 3521 795 SLL 4,R5 POSITION INTR LEVEL AND PUT 00075E 6E08 0766 913 MVW SAVEA, R6 RESTORE R6 
000686 0501 7196 ABI 1,R5 * IN tlt pir 000762 4CBE 914 TBTR RY tftp) TURN OFF INDICATOR 
000688 CD24 0056 797 CW SEINTL,RS IS THIS THE CORRECT INTR LEVEL 000764 5600 915 BXS R6f RETURN 
00068C 1004 798 JE INTR3 * YES, GO EXIT THIS LEVEL 000766 0000 916 SAVEA DC oe SAVE AREA FOR R6 
00068E 3521 799 SLL 4 ,RS POSITLON RECEIVED LEVEL 000768 4C21 917 CCRTP TBT § 4, ER) TEST FOR ERROR 
000690 6D0D 0020 800 MVW 86 R5, DEV3+2 STORE INTO DEVG | 00076A 6A00 0770 918 BON PRAT BRANCH IF YES 
000694 4c65 801 TBTS RGO,LE SET INTR LEVEL ERROR CONTROL BIT 0O0076E 5600 919 BXS (R6) RETURN 
000696 4CA2 802 INTR3 TBTR R4&.XI WAS INTERRUPT EXPECTED Q21 ROR OR ok KR kK RR doo ROK KK ROR ROR gOR OR kK ROOK ROR ORR ORR di ko a ok ag akogk gk dodo 
000698 1201 803 JON NTRX * YES, EXIT OFF THIS INTR LEVEL 922 * COMMON PRINT ERROR INTERFACE ROUTINE * 
00069A 4C60 804 TBTS gas MI) * NO, SET MYSTERY INTR CONTROL BIT 923 * * 
00069C 6006 805 INTRX SVC XIT EXIT THIS LEVEL VIA SUPVR TO PGM 924 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 
807 MM He Me He he eee Re Me he ae he ee ae eae he ee Ge Ke a a ea a at ae oh i ake a Re fe oh a ae a ae ae ah ako ak ke kc 925 * BRANCH IS TAKEN TO PRINT THE ERROR * 
808 * 926 * ----> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 
809 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 927 * RRANCH IS TAKEN TO PRINT THE ERROR * 
810 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 928 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 
811 * RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 929 * BRANCH IS TAKEN TO PRINT THE ERROR * 
812 930 * ----> PRNTRTN THIS LABELED ADDRESS IN SYST PROG ID = D3410/SYST %* 
813 FRESHER REE EEK EKKES SE KOK ROR OR ORR ROKK SRO ROR KOR KKK KK RR KOK gk Kk 931 * POINTES TO A COMMON ERROR OUTPUT AND FORMATTER ROUTI E* 
00069E 4620 814 XIOCK TBT (Ru MI) WAS THERE AN UNEXPECTED INTERRUPT 932 * WHICH WILL RETURN TO THIS PROG VIA REGISTER SEVEN 
0006A0 1217 815 JON ro¢éy BRANCH IF YES 933 » 
OO0O06A2 4C25 816 BT RY, LE) WAS AN INTR LEVEL ERROR FOUND 934 OR OIOIIOR RII IIR IR IORI IR ROI ROK ROR RRR OO OEE EE 
OO06A4 1002 817 JOPP Toes * NO, CONTINUE CHECKING 000770 4624 0012 935 $PRNT MVA OPTN3,R6 LOAD ADDRESS OF OPTION WORD THREE 
OOQ6A6 4C61 818 TBTS out ER) SET ERROR CONTROL BIT ON 000774 6D08 181E 936 MVW PRNTREN, RS LOAD ADDRESS OF COMMON PRNT ROUTINE 
990648 5013 819 J troey BRANCH 000778 4424 0000 937 MVA $PID, RG LOAD ADDRESS OF START OF PROG 
OOO6AA 4CAA 820 XIOCM TBTR (R4, PE) WAS A PROBABLE ERROR EXPECTED 00077C 4324 0042 938 MVA PCTR, R3 LOAD ADDRESS OF PASS COUNTER 
QOOO06AC 6ACO 0000 821 BON R6§ BRANCH YES 000780 6FA3 0000 939 BAL (R5) R7 BRANCH TO COMMON PRINT ROOTINE 
0006B0 4&C24 822 TBT RY, XE) WAS AN ERROR EXPECTED 000784 CE25 0012 940 MVWZ OPTN3,R6 ZERO OUT ALL FLAGS 
O0006B2 1214 823 JN IoéI * YES, BRANCH 000788 4424 ODODE 941 MVA OPTN1, R& LOAD BASE ADDRESS FOR INDICATORS 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
hu le 8028 0232 0060 342 CB CPUTYPE, ,TYPE23 Is THIS 2 TYPE 23 PROCESSOR DECLARED NAME ATTRIBUTES AND REFERENCES 
000794 4524 E000 944 MVWI X'EO00',RS INIT LOOP COUNTER 47 -REG. ABSOLUTE. HEX Se regs 
000798 5002 945 J $PRN1 BRANCH 152 153 212 213 214 267 290 343 349 
00079A 4524 8000 946 $PRN2 MVWI X*8000',R5 INIT LOOP COUNTER 362) 368 495 501 
00079E 6002 947 $PRN1 SVC IDLE DELAY 0 -R1. ABSOLUTE, HEX eT ey 
0007A0 4C03 948 TBT ir TM) SHOULD PROG TERMINATE 235 236 «62370 «624400 24200 «624300 «624700 248 249 
0007A2 6A00 0080 949 BON TERM BRANCH YES 270) = 276 282) 287 3313) 3397 319) 3230325 
0007A6 7DA1 0001 950 AWI 1 INCREMENT LOOP COUNTER 0 ~-R2. ABSOLUTE. HEX eee eee eee! 
OOO7AA 18F9 951 JINZ bent BRENCH NOT ZERO 211) 231 23400 272,276. 283 287 
OOO7AC 6802 0062 952 B $PENT BRANCH TO RESTART FROM BEGINING 0 -R3. ABSOLUTE, HEX radar es 
QS i He he ae He hee A He RC He A I RR OR EK KKK KE 273 277 281 288 471 473 490 492 598 
955 * DCB SETUP * 599 657 669 670 671 674 677 680 723 
se i ee st 
957 * THIS ROUTINE SETS UP THE PRINTER DCB FOR *STANDARD FUNCTIONS! * 
328 . AND ANY ROUTINE MUST MAKE ‘SPECIAL' MODIFICATIONS AS REQUIRED. : 0 oR4. RESOLUTE. HEX VALUE (00009004) 659 660 663 665 
sete wee atunane ae G82 88 Soe Gah G88 33 Gg} a88 
* * , 
aes SOeCe ANG CHE DT eee cere ar nee eC eee errs sere n tees ee 804 814 816 818 820 822 824 826 829 
000784 IFO 9080 964 OF eWE | X800808 LRT 18 CHAIN TYPE | 128 CHAR SET 937 941 98g Re 
0007B8 1803 965 JNE SETU1 ° BRANCH 0 ~R5. ABSOLUTE. HEX VALUE (00000005) 
0007BA 4020 082A 0040 966 MVWI X*0040', CHNTY IF 128 CHAR SET TEST WITH 64 CHAR SET 156 igo 180 si 182 18300 «184 472 473 
0007CO 372A 967 SETU1 SRL 5,R7 : SHIFT TO OBTAIN BLANK COUNT 491 aa: “Gee Pp. SES. SEES 2686: 2600. 888 
0007C2 6FOE 082A 968 AW CANTY,R7 AD BYTE COUNT TO CHAR COUNT 696 7F94 795 ue 197 79S 800 936 939 
0007C6 4324 O82E 969 MVA ALPHA, R3 MOVE AN ALPHANUMERIC FIELD TO HAKE 944 69946 0 950. 970) 972, 976 
QOOO7CA 4524 0916 970 MVA WRBUF,RS * A LARGER WRITE BUFFER 0 -R6. ABSOLUTE. HEX ee i tae 
QOOO7CE 6FOD 082C 971 MVW) 0=soR7,,CHATP SET UP MOVE BYTE COUNT _ 136 179-1850 186 2100 247 2270) 232 0233 
0007D2 2BA4 972 MVFN (3) (R5) * AND MOVE IT 264 265 266 279 289 304 $305 306 311 
0007D4 4324 0916 973 MVA RBUF LOAD START ADDRESS 315 322 340 347 342 347 359 360 361 
0007D8 4724 0108 976 MVWI oMxcT,&7 LOAD LENGTH OF BUFFER 366 379 380 381 387 403 404 405 410 
OOO7DC 6FOF 082C 975 Sw CHNTP, R7 SUBTRACT LENGTH ALREADY INIT 4 14 4 36 440 466 467 468 475 4B5 486 
OOO7EO 2BA4 976 MVFN (83) (R5 INIT REST OF BUFFER 487 498 667 821 £=836 839 886 894 #899 
Q0OO7E2 4020 0540 0916 977 MVA RBUS,WRADR SET UP WRITE ADRS 909 911 913) 915 919 935 940 983 
QOOO7E8 CF25 0532 978 MVWZ WRCTL SET UP CONTROL WORD 0 -R7. ABSOLUTE. HEX DREGE Speweaeo 
OOO7FC 4020 053E 0084 979 MVWI 132,WRBCT * AND THE BYTE COUNT 144 145 8149 = =6764 167 168 218 220 309 
0007F2 4020 0534 100E 980 SETU4 MVWI X*150E' WRFMS * MOVE IN CONTROLS 385 470 489 600 601 673 679 683 #%755 
OOOTFE 4090 0856 OOO; 98 VHT 1-WRSKP’ SET UP SINGLE SPACE CONTROL gyn 978 87g OK OT 96897 
000804 5600 983 BXS (R6) RETURN 58 $CKPT ADDRESS. HEX LOCATION (0090000C}, IN CSECT(E68E0 ) LENGTH (2) 
QBS Ha a HK He kK oR tok kk kk ok kok kK KKK 180 228 271 284 308 14 321 344 364 
986 * THIS TABLE HAS THE REPLACEMENT CODE USED * 386 409 413 416 86435) ~643906 6442 ATG 493 
GBT He He EE EO IO OR SOR BO EK 887 SCONC ADDRESS. HEX rari yy aay aug IN CSECT (E68 E0 )} LENGTH (¢1) 
000806 90000000000000000 288 SETCH be %£99000000000000000000" 96 CHARACTER SET 0 G85 eae es ati ie ay ad — aee 
0008 12 42PE42PFBCOOFOO1D 320 DIAGX 4S x1 42PEG2FFBCOOFOO1DCO1® SPECIAL DIAGNOSTIC NOT EXECUTED 883 $CONR A HEX LOCATION (OOO006F8) IN CSECT(E68E0 ) LENGTH (1) 
00081E FFFE42FFBCOOFO01D 992 DIAG1 DC Xt FFFEG2FFBCOOFOO1DCO1!' SPECIAL DIAGNOSTIC EXECUTED 97 SDATA ADDRESS. HEX Pech aeon Coops oe ta) IN CSECT(E68E0 +) LENGTH (2) 
000828 0000 993 D a D006 181 182 270 274 275 82 285 286 419 
QO He ee RE KK EE KK 424 429 4&5 450 
$8882 8888 o96 CHNEE Be, | £10000: PEAP SAVE AREA FOR, COATH ty DE ee ee 
997 FEKGEC ES CERES 44 eo SHNSO EE SEA EETACS 44 bao 5 000k bk 4046 b dtd 122 $DVID ADDRESS. HEX LOCATION(00000058) IN CSECT(E68E0 ) LENGTH (2) 
998 * ALPHANUMERIC BUFFER STORAGE * 222) 225 
999 vo ORES SAEEPED SEED ESTERS SESS ERS EVER SE CE SEUS CEL ED SERED EES SO EE OS TEES 121 $INTL ee ea eta fo eae pa ean. UBS3 EO abh 
0008 Cc Cc ' $* 4567890+. ' 
DOGBSE.  CETAEDIESRELECEOT. Ueoy Dor ae byes i rl eee Ty rete nee tea 94 $IOIN ADDRESS. HEX LOCATION (00000014) IN CSECT(E68EO ) LENGTH(2) 
00086C E0797FU0 1002 DC X'FO797F40 725 792 9 
eBags S1S,935u885697508 150; = BE «Hg 15 283849886079889. ee ee ee ee 
000882 A TAZA ZAG ADAG TAB A 1005 DC KT AVACR3A4A5AGR7ABA9" 123 $MXSL ADDRESS. HEX LOCATION (OQO00005A) IN CSECT(E68E0 ) LENGTH (2) 
. 1008 PEPE EEE E LE EL ETS TL SEE EL OE EE CT ETE TTT TCT TE TET TEE C CECE TET TT TT ET CCE T 133 SPENT ADDRESS. HEX LOCATION(00000062) IN CSECT(E68E0 } LENGTH (6) 
1009 * STRESS TEST BUFFER STORAGE * 55 175 190 952 1022 
1010 StRES De "c+ 11332 3344455666 77000090008 tona/7sssTTUDUTVENNKXTTTZZ" 53 $PLD ADDRESS. HEX LOCATION (00000000) IN CSECT (E68E0 ) LENGTH (4) 
000892 FIFIF2F2F2F3F3F4F 1011 STRES DC C*11222334445566677888990 
0008C6 5050506BE6B6C6C6CD 1012 DC *SEEEEE , AASIIRKRLLMHBNNOOOPPOQOGH ---554## ANBBBCCDDDEE! 935 $PRNT ADDRESS. HEX LOCATION (00900770 IN CSECT(E68E0 L LENGTH (4) 
OOO8F8 Cé6éCE6CECTC7CB8CB8CBC 1013 DC Ct PPP GGHAHIT++#, SPU igecce ( Guyer 226 240 246 25 320 26 421 426 431 
1014 SUGERS cco e845 0c s co ee sss 5k beans cote aie ee he eae ae ae ok i a a a ake a ake i ak ake ake ke ak ak Q4y7 452 457 336 726 828 832 834 905 
10 15 KERR KKK KEE KK KK KK KK KK KK KK KKH KKK KH KK KK KK KK KE KK KK KE OK KK KK KK KE 918 
000108 1016 MXCT EQU 264 MHAXIMUN LENGTH OF WRITE BUFFER 947 $PRN1 ADDRESS. HEX LOCATION(OOO0079E) IN CSECT(E68E0 ) LENGTH (2) 
URW ME TESTS S SLCC SC SCSOS COSI CSC CPE SSeS Se ee Pt tt Tee tT eC eet ete Lett Pee L eer etre re £2 ft 945 951 
poe a ae ne rR eer ane pee rsa rete WRBUF BC C1133) : MAXIMUM WRITE BUFFER 946 SPRN2 OTH aca HEX LOCATION (OOO0079A) IN CSECT(E68E0 ) LENGTH (4) 
OOOATE 1020 TSTEN FOU. * 137 $PUPD ADDRESS. HEX LOCATION (00000078) IN CSECT(E68E0 } LENGTH (4) 
10.21% He he oie ae ie a oe ak i Ko a EK KEKE KE EEE EE EO KK KK KE KKK ea 253 29 27 350 88 6 503 
000062 1022 END $PENT 173 $PUPS ADDRESS. HEX LOCATION (OOOOQOOEC) IN CSECT(E68E0 ) LENGTH (6) 
157 $RETC ADDRESS. HEX LOCATION(OO0000BC) IN CSECT(E68E0 } LENGTH (2) 
162 SRETI ADDRESS, HEX LOCATION (000000C8) IN CSECT(E68E0 ) LENGTH (6) 
156 $SRETN ADDRESS. HEX LOCATION (000000B8) IN CSECT (E68E0 ) LENGTH (4) 
190 SRTAD ADDRESS. HEX LOCATION (00000118) IN CSECT(E68E0 ) LENGTH (2) 
57 SRTNE ADDRESS. HEX LOCATION (0000000A) IN CSECT(E68E0 ) LENGTH ¢2) 
143 S$TERH ADDRESS - HEX LOCATION(00000080) IN CSECT (E68£E0 }) LENGTH (6) 
167 $TER1 ADDRESS. HEX LOCATION (OQOO0OEO) IN CSECT(E68EO ) LENGTH (4) 
1000 ALPHA ADDRESS. HEX LOCATION(0000082E) IN CSECT(E68E0 ) LENGTH(49) 
917 CCRTP ADDRESS. HEX LOCATION (00000768) IN CSECT(E68EO0 ) LENGTH(2) 
89 CE ABSOLUTE. HEX VALUE (00000028) 
996 CHNTP ADDRESS. HEX LOCATION (0000082C) IN CSECT(E68EOQ +) LENGTH{(2) 
995 CHNTY ADDRESS. HEX LOCATION (0000082A) IN CSECT (E68E0 ) LENGTH (2) 
316 963 966 968 
38 CICB ABSOLUTE. HEX VALUE (00000014) 
4g CPUTYPE ABSOLUTE, HEX VALUE (00000232) 
88 cs ABSOLUTE. HEX VALUE (00000027) 
660 663 752 790 824 7 
107 CSBUF ADDRESS. HEX LOCATION (00000032) IN CSECT(E68EO +) LENGTH(1) 
535 CSDCB ADDRESS. HEX LOCATION (00000542) IN CSECT(E68E0 ) LENGTH(1) 
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DECLARED 
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321 
327 
109 
115 

99 
98 


572 
990 
992 
598 
270 
276 
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82 

39 

36 
568 
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90 
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40 

84 

65 
853 
749 
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783 
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794 
802 
B44 
846 


B45 
847 
849 
216 
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253 
247 
241 

86 
87 
96 
81 
519 
518 
512 

511 
513 
328 


NAME 

CSRIN 
CSST4 
CSST7 
CSTL2 
CSTL8 
DCBUF 
DEV3 


DGDCB 
DIAGX 
DIAG1 
DISPF 
DSPL2 
DSPL3 
DSPLS5 
ER 
EXIT 
E6 8E0 
FMADR 
FMBCT 
PACTL 
PM DCB 
GI 
H0000 
HO001 
IDLE 
IN 
IND 
INTBL 
INTER 
INTET 
INTOK 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOERR 
IOMOD 
IORSP 
ITST4 
ITSt5 
ITST7 
ITST8 
ITST9 
LE 

LI 

LSTIO 
MI 

MSADR 
MSBCT 
MSCTL 
MSDCB 
MSPS 
MSGCS 
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PN=4414104 EC=755104 
CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 
ADDRESS. HEX LOCATION (00000734) IN CSECT(E68E0 ) LENGTH(6) 
RESS. HEX LOCATION(000002A4) IN CSECT(E68EO ) LENGTH(6) 
RESS. HEX LOCATION(000002BC) IN CSECT(E68E0 ) LENGTH(4) 
RESS. HEX LOCATION (00000034) IN CSECT(E68EO ) LENGTH(2) 
RESS$, HEX LOCATION (00000040) IN CSECT(E68EO ) LENGTH(2) 
RESS. HEX LOCATION(00000022) IN CSECT(E68EO ) LENGTH(2) 
RESS. HEX LOCATION (0000001) IN CSECT(E68E0 | LENGTH (2) 
184 224 225 239 45 251 319 325 
425 430 446 451 456 ~~ 800 
RESS. HEX LOCATION(00000572) IN CSECT(E68EO ) LENGTH(1) 
RESS. HEX LOCATION (00000812) IN CSECT(E68E0 ) LENGTH(10) 
417 420 422. 425 
RESS, HEX LOCATION (00000812 IN CSECT(E68E20 ) LENGTH(10) 
RESS. HEX LOCATION (00000592) IN CSECT(E68EO ) LENGTH (2) 
RESS. HEX LOCATION(000001FC) IN CSECT(E68EO ) LENGTH(4) 
RESS. HEX LOCATION (00000218) IN CSECT(E68E0 ) LENGTH (2) 
RESS. HEX LOCATION (00000248) IN CSECT(E68EO ) LENGTH (2) 
OLUTE. HEX VALUE (00000021) 
758 818 829 9 917 
OLUTE. HEX VALUE (00000006) 
CT. START(00000000) LENGTH(2590) ESDID(0) 
RESS. HEX LOCATION (00000570) IN CSECT(E68EO ) LENGTH(2) 
412 415 433. 438 44 
RESS, HEX LOCATION (00000S6E) IN CSECT(E68EO0 ) LENGTH(2) 
RESS, HEX LOCATION (00000562) IN CSECT(E68EO ) LENGTH(2) 
RESS. HEX LOCATION(00000562) IN CSECT(E68EO ) LENGTH(1) 
OLUZE. HEX VALUE (00000029) 
RESS. HEX LOCATION(0000005C) IN CSECT(E68E0 ) LENGTH (2) 
RESS, HEX, LOCATION (00000052) IN CSECT(E68EOQ ) LENGTH (2) 
OLUTE, HEX VALUE (00000002) | 
OLUTE. HEX VALUE (00009023) 
665 1 694 789 
OLUTE, HEX VALUE (00000008) 
831 889 904 908 914 
RESS. HEX LOCATION(000006F0) IN CSECT(E68EQ ) LENGTH (2) 
RESS. HEX LOCATION(0000064A) IN CSECT(E68EO ) LENGTH (2) 
RESS. HEX LOCATION(00000662) IN CSECT(E68EQ ) LENGTH(2) 
RESS. HEX LOCATION(00000666) IN CSECT(E68E0 ) LENGTH (2) 
RESS. HEX LOCATION(0C00069C) IN CSECT(E68EO ) LENGTH(2) 
RESS; HEX LOCATION (00000674) IN CSECT(E6BEO ) LENGTH ( 2) 
RESS. HEX LOCATION (00000682) IN CSECT(E68EO ) LENGTH(2) 
RESS. HEX LOCATION (00000696) IN CSECT(E68E0 ) LENGTH (2) 
RESS, HEX LOCATION (00000624 IN CSECT(E68EO ) LENGTH(2) 
RESS. HEX LOCATION (0000068) IN CSECT (E68E0 ) LENGTH (2) 
1g3 165 94° 596 02 604 607 661 
RESS, HEX LOCATION (0000066) IN CSECT(E68E0 ) LENGTH (2) 
RESS. HEX LOCATION (000006 2A) IN CSECT(E68EO ) LENGTH (2) - 
RESS, HEX LOCATION (QOQOO6EE) IN CSECT(E68EO0 ) LENGTH(2) 
RESS. HEX LOCATION (00000146) IN CSECT(E68E0 ) LENGTH(6) 
RESS. HEX LOCATION(00000174) IN CSECT(E68EO ) LENGTH (4) 
RESS. HEX LOCATION (000001DE) IN CSECT(E68EO ) LENGTH (4) 
RESS. HEX LOCATION (000001C6) IN CSECT(E68E0 ) LENGTH (4) 
RESS. HEX LOCATION(O000001AE). IN CSECT(E68EO0 ) LENGTH (4) 
OLUTE. HEX VALUE (00000025) 
OLUTE. HEX VALUE (00000026) 
RESS. HEX LOCATION (00000018) IN CSECT(E68E0O ) LENGTH (2) 
668 670 95 97 
OLUTE, HEX VALUE (00000020) 
RESS. HEX LOCATION (00000530) IN CSECT(E68EO ) LENGTH (2) 
RESS. HEX LOCATION (0000052E) IN CSECT(E68EO ) LENGTH(2) 
RESS. HEX LOCATION (00000522) IN CSECT(E68B0 ) LENGTH (2) 
RESS. HEX LOCATION (00000522) IN CSECT(E68E0 ) LENGTH(1) 
RESS. HEX LOCATION (00000524) IN CSECT(E68E0 . ) LENGTH(2) 
345 48s 981 ‘ 


LENGTH (2) 


as. 


E68E0 --- SYSTEM TEST EXERCISOR FOR THE 4973 PN=4414104 EC=755104 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES 
309 328 
330 MSGND ADDRESS. HEX LOCATION(000002EB) IN CSECT(E68EO ) LENGTH(1) 
389 HSGPE ADDRESS. HEX LOCATION (0000037A) IN CSECT(E68EO ) LENGTH (2) 
391 NSGPN ADDRESS. HEX LOCATION (00000380) IN CSECT(E68E0 ) LENGTH(1) 
514 MSSKP ADDRESS. HEX LOCATION(00000526) IN CSECT(E68E0 ) LENGTH (2) 
1016 MXCT ABSOLUTE. HEX VALUE (00000108) 
60 OPTN1 ADDRESS, HEX LOCATION (00000002) IN CSECT(E68E0 ) LENGTH(2) 
69 OPTN3 ADDRESS, HEX LOCATION (00000012) IN CSECT(E68EO ) LENGTH (2) 
548 OVDCB ADDRESS. HEX LOCATION (00000552) IN CSECT(E68E0 ) LENGTH (1) 
116 PCTR ADDRESS. HEX LOCATION(00000042) IN CSECT(E68E0 ) LENGTH (2) 
91 PE ABSOLUTE. HEX VALUE (0000002A) 
41 PREP ABSOLUTE. HEX VALUE (0000000C) 
48 PRNTRIN ABSOLUTE. HEX VALUE (0000181E) 
45 RESET ABSOLUTE. HEX VALUE (00000008) 
904 RESUM ADDRESS. HEX LOCATION(0000073E) IN CSECT(E68EO ) LENGTH (2) 
42 RICB ABSOLUTE. HEX VALUE (00000013) 
46 RID ABSOLUTE. HEX VALUE (00000009) 
365 RIPL3 ADDRESS. HEX LOCATION (00000338) IN CSECT(E68E0 ) LENGTH(6) 
210 RTO1 ADDRESS. HEX LOCATION (0000012C) IN CSECT(E68EO ) LENGTH (4) 
264 RTO2 ADDRESS. HEX LOCATION (000001E2) IN CSECT(E68EO ) LENGTH (4) 
304 RTO3 ADDRESS. HEX LOCATION (00000256) IN CSECT(E68E0 ) LENGTH (4) 
340 RTOS ADDRESS. HEX LOCATION(000002EC) IN CSECT(E68EO0 ) LENGTH (4) 
359 RTOS ADDRESS. HEX LOCATION(0000031C) IN CSECT(E68E0 ) LENGTH (4) 
379 RTO6 ADDRESS. HEX LOCATION (0000034E) IN CSECT(E68E0 ) LENGTH (4) 
403 RTO7 ADDRESS. HEX LOCATION (00000380) IN CSECT(E68EO ) LENGTH (4) 
466 RTOS ADDRESS. HEX LOCATION(0000049C) IN CSECT(E68E0 ) LENGTH (4) 
485 RTOO ADDRESS. HEX LOCATION (OOOOO4CA) IN CSECT(E68E0 ) LENGTH (4) 
498 RTO91 ADDRESS. HEX LOCATION (00000506) IN CSECT(E68EO ) LENGTH (4) 
916 SAVEA ADDRESS. HEX LOCATION(00000766) IN CSECT(E68EO ) LENGTH(2) 
988 SETCH ADDRESS. HEX LOCATION (00000806) IN CSECT (E68E0 ), , LENGTH (10) 
412 415 417 #44419 422 24 427 ° 429 438 
447 443 4 448 450 3 4 568 
963 SETUP ADDRESS. HEX LOCATION (000007B0) IN CSECT(E68EO ) LENGTH (4) 
266 306 3 361 381 05 468 487 
967 SETU1 ADDRESS. HEX LOCATION (000007C0) IN CSECT(E68EO ) LENGTH (2) 
346 SPAC3 ADDRESS. HEX LOCATION (00000306) IN CSECT(E68EZ0 ) LENGTH (6) 
43 START ABSOLUTE, HEX VALUE(0000000a) 
1011 STRES ADDRESS. HEX LOCATION (00000892) IN CSECT(E68EO0 ) LENGTH(52) 
44 TERM ABSOLUTE. HEX VALUE (00000007) 
64 TM ABSOLUTE, HEX VALUE (00000003) ) 
126 TYPE23 ADDRESS; HEX LOCATION (00000060) IN CSECT(E68EO ) LENGTH (2) 
422 VARI6 ADDRESS. HEX LOCATION (000003E2) IN CSECT(E68E0 ) LENGTH(6) 
427 VARI7 ADDRESS. HEX LOCATION (000003FA) IN CSECT(E68EO ) LENGTH (6) 
432 VARI8 ADDRESS. HEX LOCATION (00000412) IN CSECT(E68E0 ) LENGTH (6) 
448 VAR 16 ADDRESS. HEX LOCATION (00000468) IN CSECT(E68E0 ) LENGTH (6) 
453 VAR17 ADDRESS. HEX LOCATION (00000480) IN CSECT(E68E0 ) LENGTH (6) 
458 VAR18 ADDRESS. HEX LOCATION(00000498) IN CSECT(E68EO ) LENGTH(4) 
531 WRADR ADDRESS. HEX LOCATION (00000540 IN CSECT(E68EO ) LENGTH (2) 
5 30 WRBCT ADDRESS, HEX LOCATION (00000538) IN CSECT(E68EO ) LENGTH (2) 
1018 WRBUF ADDRESS. HEX LOCATION(00000916) IN CSECT(E68E0 | gLENGTH (135) 
234 235 #236 239 ~=«(2ut 42 245 247 2he 
251 272 283 363 472 49st 494 496 ~)=6 531 
580 970 973 977 
524 WRCTL ADDRESS. HEX LOCATION (00000532) IN CSECT(E68EO ) LENGTH (2) 
150 212 268 910 912 8 
523 WRDCB ADDRESS. HEX LOCATION (00000532) IN CSECT(E68EO ) LENGTH (1) 
525 WRFEMS ADDRESS. HEX LOCATION (00000534) IN CSECT(E68EO ) LENGTH (2) 
5 26 WRSKP ADDRESS. HEX LOCATION (00000536) IN CSECT(E68E0 ) LENGTH (2) 
153 214 278 280 346 48 367 499 502 
85 XE ABSOLUTE. HEX VALUE (00000024) 
384 786 822 
83 XI ABSOLUTE. HEX VALUE(00000022) 
154 689 802 
657 XIO ADDRESS, HEX LOCATION (OOOOOSBE) IN CSECT(E68EO 


we 


7 


603 608 


) LENGTH (4) 
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DECLARED 
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SYSTEM TEST EXERCISOR FOR THE 4973 
CROSS-REFERENCE LISTING 


NAME 
XIOCK 
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XI 06 
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HEX , 
X LOCATION (000006C2) 


HEX 
3 


ATTRIBUTES AND REFERENCES 
LOCATION (000006 9E) 
695 


LOCATION (000006AA) 
LOCATION (000005C8) 
LOCATION (00000600) 


LOCATION (000006D4) 
LOCATION (000005A8) 
LOCATION (00000638) 


X LOCATION (000005B6) 


LOCATION (000006DC) 


LOCATION (0000058) 
LOCATION (00000582) 
66 


LOCATION (000005DC) 
LOCATION (00000608) 
LOCATION (0000061E) 
LOCATION (00000620) 
LOCATION (00000624) 
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EC=755104 
CSECT(E68E0 ) LENGTH(2) 
CSECT(E68E0 ) LENGTH (2) 
CSECT(E68E0 ) LENGTH(6) 
CSECT(E68EO0 ) LENGTH(4) 
CSECT(E68EO0 ) LENGTH(2) 
CSECT(E68E0 ) LENGTH (4) 
CSECT(E68E0 ) LENGTH(6) 
CSECT(E68E0 ) LENGTH(2) 
CSECT(E68EO0 ) LENGTH(6) 
CSECT(E68EO ) LENGTH (2) 
CSECT(E68EO ) LENGTH(6) 
CSECT (EES £0 ) LENGTH (6) 

N cS Ber (EE8EO ) LENGTH (4) 
CSECT(E68E0 ) LENGTH (2) 
CSECT(E68E0 ) LENGTH(2) 
CSECT(E68EO ) LENGTH(2) 
CSECT(E68EO ) LENGTH(2) 


IN 


ROO IO OO OR IO OR oR LAST PAGE 


PES SSE SSS SESS SSE SESE SSS ELST SESE SETS SS SESS SS SS SG 





ee cram SOURCE SeRTEAEIT cdpynEcui TEM Sone MbIe LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000042 00000000 120 PCTR DC 2A (*-* PASS COUNTER 
ra ORR TC TC ta ee ee ne ee Ae eee eS Se eRe wae ae 090046 99900000 121 ECTR | DC 2h {x—| ERROR COUNTER sae tie eee 
| 
ae me PREREQUISITES bs : 00004C 0078 123 $DVAD DC X¥'0078° DEVICE ADDRESS BEING TESTED 
: : 90004E 0000 124 DC XL2'008 
8 at ‘ 800032 00000000 156 ey Oe Er aeooe 
40 SLO ee ate e Lee eee ee Ase ee ee ey eRe ee eee ee eee Toe gem ere e 000056 0011 127 SINTL DC oer Re ho 
2: ede ee ; BRaBGA Bee 135 Gage Be Egsho: re comes 
HEX WORD CONSTANT 
aS IMPROVEMENTS MADE TO RESPONSE TINE . 00005E 2300 131 TYPE23 DC X*23008 CONSTANT TO CHECK PROCESSOR AGAINST 
15 EI ICO GIGI GIGI IG ICI OI GG IOI GIGI ISI IGE Ik a gk i Ontoee cou Ue $HTOE DC A d) CONTROL BLOCK FOR HEX TO EBC 
es : 000064 009D 134 DE A mSGO ty 
17 * 4% REA'S INCORPORATED nes : 000066 0080 135 DC X"00808 
ee — : 000068 0072 136 SOUTIN Dc A(NSG) CONTROL BLOCK FOR SVC OUTIN 
A ee : 00006A OO0A2 137 DC A (INARA) 
87 GSO aE EES OC OIC CIO IC GIG GIGI GIGI IE IOI IO I IGIOK ak kK O0006C 0001 138 DC A(1 
a. eee ee 
ee *ee SPECIAL INSTRUCTIONS = *** id 000072 C3C1IDS4OE3CB8C540F 141 MSG_ DC C'CAN THE 4962 C.E. TRACK BE WRITTEN ON DA = ' 
ade ee : 00009D EVE740 142 MSGO1 DC C'xx ! 
eo. : 0000A2 0000 143 INARA DC A (x) SVC OUTIN INPUT AREA 
ca Beg eee ee ere ear eg Regge ee eee eT Ne ere ee eee 146 NS Pt pee oc SIGN OE En Tae a ERED rato raER ip EAp aE SNe aE ge ma ere 
29 * ee E. C. HISTORY HOR * : : 
Ae ; 148 * PROGRAM CONTROL FUNCTIONS * 
149 * * 
31 DATE 010CT76 DATE O2DEC76 DATE O6MAY77 DATE 15SEP77 
W950 Me Heo ate ke 2 fe ake ee a fe a he kc ae a af ake a ate ae ake ake a aie ae ae ae ae ok a af ake ake ake ae ake ae ke ae ee 2 2 ae ic ake ae fe ae a ee ae ak ie ae i fee 2c 2c ic fe ook 
33 ee ee ; Bobdea Wase Gece -oasa: es SPREE GUE Ore ee a ey ee cement 
000000 a0 yoru ek INCOR ee er eg ey ee Poe ee, OOO0AE 4acuD 153 TBTS (Re QUES) HAS QUES BEEN ASKED 
age SUPERVISOR EQUATES 0000B0 120D 154 JON $PEh BRANCH IF YES 
000014 38 CICB EQU 20 CONNECT INTERRUPT CONTROL BLOCK GeOcoe: ease vee. aves eae OED er Ou er meek. BPRREDS 
000006 39 EXIT FOU 6 EXIT INTERRUPT LEVEL | 
eR #0 aoe eu 36 ee 0000B8 4724 0068 157 MVA $OUTIN,R7 LOAD CONTROL BLOCK ADDRESS 
OGD OT 43 Haee, BOG fe HP OUT EO EeOUCD BaF apEe QQ00BC 4324 009D 158 MVA MSGO1,R3 LOAD R3 WITH ADDRESS OF DEV ADD 
000002 42 IDLE EQU 2 SHARE PROGRAM TIME WITH OTHER PGMS pam N poor ot 
000013 44 RICB EQU 19 RELEASE INTERRUPT CONTROL BLOCK Beouce weal nD SHE gpeyhee Puneet ee 
O0000A 45 START EQU 10 START CYCLE STEAL COMMAND eee 
001818 50 PRNTRTN EQU Xt181Et COMMON PRINT ROUTINE ADDRESS LOCATION ' Bbb0Le bee 10g $pup> ape | Geet eae DURE TE Nae GEN ECHL CHED 
URdese Sy ee eee panos OF “BRC ESO OR shnee 0000Z2 1018 169 32 == $Puba «NO, CONTINUE CHECKING 
oe BROCE RE BECP ING “AEP SON TROn-NORDS in + TERMINATE CONTROL BIT FOUND ON 
172 * 
Sood. Dono Ce ae mE ne pA se ee a ae OO0OE4 4020 0900 0OFO 173 $TERM MVA $RETI,IOERR INIT ERROR ADDRESS 
BOOROE. (OORE 28 He Rue eos Se eee a OOOOEA 4724 O8FE 174 MVA LIOBLK;R7 . LOAD CONTROL BLOCK ADDRESS 
000008 004C 58 DC A(EDVAD) -$ 70 DEVICE TABLE QO00ERE 6008 19 SVC  - RESET ISSUE SVC 
BeRbGR 0060 ee Suvi oe ee BGGR ONE MERGED Coe ud 0000FO 4020 0900 0108 176 $RETI MVA $TER1,IOERR INIT ERROR ADDRESS 
$0988 838 23 HERE BERS Lae a Bate PASSED G30088 3838 Ooo Oo eee an BENE osha LORD THREREUPE EELEL ACTIVE 
pave ne: “0000 ee ge meen PROGREN “OP ELON” CONTROL. WORD] 000192 4724 O8FE 179 A IOBLK,R? LOAD CONTROL BLOCK ADDRESS 
on We PORTO 000106 600C 180 vC PREP ISSUE SVC 
a 000108 C720 004C 181 $TER1 MVB  $DVAD,R7 LOAD DEVICE ADDRESS 
en000S ee zou 3 pean wme BROCHEE 00010C 7FE4 FFOO 182 BTWI X*FFO6',R7 ZERO HIGH ORDER BYTE 
00000C 67 WRIT EQU 12 CAN PROG WRITE ON DISK ee aE Le ee ave. “BICe ISSUE SVC 
00000D 68 QUES EQU 13 HAS QUES BEEN ASKED TO WRITE 136 * PORE eg ee 
panos so oyR 6 ESB SET Chea aan NDTORGOR 000114 A828 005C 000A 187 $PUP8 AW H0001,$RTNE ADVANCE ROUTINE NUMBER 
20 2 QOO1IA 8828 0058 000A 188 CW $MXSL, SRT NE CHECK FOR LAST AUTOMATIC ROUTINE 
000010 0000 72 OPTN2 DC —- x 00008 PROGRAM OPTION CONTROL WORD 2 oue we ee ae: EEN * BCH AND START WITH RTN 1 
192 * 
* : 
y@ + 9 ERROR INTERRUPT. ER § GOOD INTERRUPT RECEIVED GI 000122 6808 QOOA 193 $PSEL MV  $RTNE, RG MOVE RTN NUMBER IN REG 
77 * 2 EXPECTED INTERRUPT XI 10 PROBABLE ERROR EXPECTED PE 000138 Ghse 0020 134 a LS a Dee ee eee n ete ae 
78 * 3 INTERRUPT RECEIVED IN 11 NO INTERRUPT EXPECTED NI D001ZE 3609 132 BL ane? Dore Me aoe ene aan 
30. * & EXPECTED ERR/ATTENT XE ie. eee 000130 68D2 0134 197 B (R6 , SRTAD) * BCH VIA RTN TABLE 
itt © 2 133 ¢ SABLE OF ROUTINE ADDAESSE: 
Bh x | CS STATUS IN Tt HEX eee 000134 QOAu 201 $RTAD DC A ($PENT) NO RIN SELECTED 
000020 85 MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED OCOtae “alte ane ce TS ROUTINE ADDRESS 
000021 86 ER EQU 33 1 rm ERROR RECEIVED ON INTERRUPT BOOTaA. (ooee ae oe OE se a. 
000022 87 XI FOU 34 2 2 EXPECTED INTERRUPT CONTROL BIT O0015C: OaDA soe we EE 
paouee ae a Bee 33 i : De peer en merGn eceboRee 2.07 RES IOI ORIG IG OOOO OO IDI IOI IOI CIGGI ISIS IOI IGG 
0000 25 90 LE EOU 37 5 rn INTERRUPT ON WRONG LEVEL ERROR 208 2k OK ok lok ok ok iO ok Kk Rik i kok Ii fok ok kok kt kokokok kokokkatokakotoiagakokotoakogo ae ak ac 
000026 91 LI EQU 38 6 2 LOST INTERRUPT 209 * * 
000059 goes ESu 39 g ‘ CYCLE STAEGS IN PROGRESS 210 * LOGICAL SECTOR NUMBER TO PHYSICAL SECTOR NUMBER CONVERSION * 
000028 93 CE EOU 40 8 8 CYCLE STEAL STATUS INERRRUPT ERROR 
000029 94 GI EQU 41 9 4 GOOD INTERRUPT RECEIVED (EXPECTED ER 212 * LOGICAL--> 00, 1E, 01, 1F, 02, 20, 03, 21, O04, 22, 05, 23, 06, 24, * 
900034 35 BE th 42 19 2 PROBABLE ERROR EX ECTED | ) 213 * PHYSICAL-> 00; 01, 02, 03, 04, 05, 06, 07, 08, 09, OA, OB, OC, OD, * 
000014 0000 98 $IOIN D A (*-* 170 AND INTR CONDITION CODES. Z1> % LOGICAL--> O07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, * 
900016 9000 133 SES, BS A 4 R7e INTR STATUS BYTE & DEV ADRS 216 * PHYSICAL-> OF, OF, 10, 1%, 12, 13, 14, 15, 16, 17, 18, 19, 1A, 1B, * 
- + ~ 
00001A 000000000000 101 SCTID DC 3K (*¥-*) DEVICE DEPENDENT DATA 218 | LOGICAL 2 QE, 2Ce OFe 2De AOe 2h, Vie 2Fe 125 30 J3e 34-6 1M, 32, © 
900032 0000 103 DCBUF DG | A(x=* LAST DCB TABLE, CONTROL WORD Oe ee ee Nae ee tg eee eee er ere 
000024 0000 104 DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 221 * LOGICAL--> 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 1B, 39, * 
000026 0000 105 DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 222 * PHYSICAL~> 2A, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 37, * 
000028 0000 106 DCB4 DC A (+-* LAST DCB TABLE, DEV DEP WORD 223 : 
00002A 0000 107 DCBS DC A (k—# LAST DCB TABLE, DEV_DEP WORD g2a % LOGICAL-~> 1C, 3A, 1D, 3B : 
00002C 0000 108 DCB6 DC A (+—% LAST DCB TABLE, CHAIN ADRS Coe ee? oem Sanne : 
eG B 808 1a eae Be Ls ee ee hee SG RUEEER: LO DRESS 227 oo ee ee 
000032 111 CSBUF EOU * CYCLE STEAL DATA BUFFER 228 AES SEE ESS STEELE ST LET ES SS SSE SSL ESE STS SESS TEL EES SSS SESS SSE SSS SSR TSS SSS SS 
000032 0000 112 CSTL1 EQ A (*#-* CYCLE STEAL BUFFER RESIDUAL ADRS 230 =e ORO ROR KK kK ik kk kok Ri RK gg kofokok kak ok tok tok kkk kk kotok ak tok kokok kag atk kook a ako kaitoik ak ik afr 
990034 9090 113 CstL2 De a {s—* CYCLE STEAL WD 2, hEVICE DEPEND 231 * CHANNEL INTERFACE TEST * 
000038 0000 116 Gaal pe Reo CYCLE STEAL WD U! DEVICE DEPEND 233 + TO VERIFY THE CHANNEL INTERFACE CAN INTERRUPT ON ALL LEVELS : 
OOOO3A 0000 116 CSTLS DC A (*=-* CYCLE STEAL WD 5; DEVICE DEPEND 234 THE PROG WILL PREPARE THE I/0 DEVICE TO INTERRUPT ON LEVEL ZERO * 
00003C 0000 117 CSTL6 DC A (*-* CYCLE STEAL WD 6 DEVICE DEPEND 235 * AND CAUSE AN INTERRUPT. WHE THE INTERRUPT OCCURS THE LEVEL IS *® 
OQ003E 0000 118 CSTL7 DC A Ko CYCLE STEAL WD 7° DEVICE DEPEND 236 * COMPARED TO THE EXPECTED LEVEL. THIS IS DONE ON ALL LEVELS * 
000040 0000 119 CSTL8 DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 237 * EXCEPT LEVEL THREE. . 
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E78EO --- SYSTEM TEST EXERCISOR FOR THE DISK 
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STMT SOURCE STATEMENT 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000478 OOOF 469 DC A (15) DISP OF ERROR IN DCB 586 **** READ SECTOR AND VERIFY **** 
OOO47A 4020 O6F6 0496 470 MVA  RDBUF,RDDCB+14 RESTORE VALID DATA ADDRESS 587 * 
000480 6802 00DC G71 PUPD BRANCH TO CONTINUE 000708 200c 588 RDVAR DC X'200c! CONTROL WORDD 
073 OOO OO I III III I III IG III IR IO I II Kk 00070A 0000 589 DC X*0000! NOT USED 
u7q * CONSTANTS AND DEFINED STORAGE LOCATIONS 00070c 00 590 DC X00! NOT USED 
475 GR RIOR ORG IOI ICO IGOR I IG GI IG io GK IgG ii ka dak ka 00070D 00 591 RDVA1 DC X'oor FLAG FIELD 
000484 0000 476 DIFF DC A (*-* SEEK DIFFERENCE 00070E 0000 592 RDVA2 DC X¥'00008 CYL NUMBER 
000486 0000 477 XXX DC A (*-* WORK WORD INT TO ZERO 000710 0000 593 DC X'00008 HEAD AND RECORD NUM 
000488 0000 478 ZERO DC x'00008 CONSTANT ZERO 000712 0000 594 DC X'00008 CHAIN ADDRESS 
00048A 0001 479 ONE DC X'00018 CONSTANT ONE 000714 0100 595 DC X'0100! READ AND VERIFY ONE COMPLETE SECTOR 
00048C 0000 480 LGSEC DC X'00008 LOGICAL SECTOR # 000716 0496 596 DC A (RDBUF) READ INTO DUMMY BUFFER AREA 
OOQ04U8BE 0000 484 PHYSC DC x'oo0o0o8 CONVERTED PHYSICAL SEC ¥ 598 PSS SPS PLS SSS SSS SSSESESL SS SSS SSS SS SSS SSSES SSE SESS SS SSS SE SSS SSP SSS SSL SSeS ee es | 
000490 1D00 482 CB29. DC X¥'1D00' CONSTANT BYTE 29 599 x * 
000492 3B00 483 FIVES DC X'3B008 CONSTANT BYTE 59 600 * ALL CS STATUS ERROR WILL BE TRAPPED HERE AND PRINTED * 
000494 0000 484 HDNUM DC X¥'00008 HEAD SELECT 601 * * 
000u96 00000000000000000 “gs RDBUF D 256XL1'00? READ BUFFER 692 PSP TSS SSSESSSSLS SSSLESSLSS SS SSSSSSSES SESS SSS SSESLSSSSSSSSS SSS SLES SSS SSSE SLES 3 
000596 486 WIBUF EQU * WRITE BUFFER 000718 6D08 0034 603 CSRTN MVW CSTL2,R5 LOAD RS WITH CS STATUS 
000598 487 WIBU1 EOU WTBUF+2 00071C 1002 604 JZ CCRTP BRANCH IF ZERO 
000596 00010203040506070 488 D X'000102030405060708090A0BOCODOE® O0071E 6802 098C 605 B PRNT BRANCH TO PRINT IF ERROR 
000585 10111213141516171 489 DC X'101112131415161718191A1BICIDIE* 000722 4c21 606 CCRTP TBT {Ra ER) IS ERROR BIT ON 
OOO5B4 20212223242526272 490 DC X'202122232425262728292A2B2C2D2E! 000724 6A00 098C 607 BON PRAT BRANCH TO PRINT IF YES 
0005C3 30313233343536373 491 DC X 1303132333435 36 373839 3A 3B3C3D3E! 600728 5600 608 BXS (R6) RETURN 
0005D2 HOUTE2UZ4UUUSHBUTY 492 DC X'*UORUTE2ZE3ZG4ESHBUTYHB4EOSUAUBUCHUDYEE! MEO CEL tet tee STE SSS SSS SESS SESS SSS SSS SS SS SSL SSS SS ST ST SS ESE STS SSS LS SSS SS SS SE SF 
0005E1 50515253545556575 493 DC X *505 1525 35455565 758595A5B5C5D5E! 611 * * 
O005FO 60616263646566676 494 DC X'606 1626 36465666 7686 96A6BOCODOE! 612 * SUBROUTINE * 
OOOSFF 70717273747576777 495 DC X°707172737475 76777879 7TATBICIDTES 613 * * 
00060B 80818283848586878 496 DC X¥'808182838485 86 8788898A8B8C8DSE! 614 * PURPOSE * 
00061D 90919293949596979 497 DC X #909 1929 39495969798999A9BOCODIES 615 * * 
00062C AOA1TAZA3A4A5AGA7TA 498 DC X" AOA 1A2A3A4A5A6A7A8 A9AAABACADAE! 616 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA * 
00063B BOBIB2B3B4B5B6B7B 499 DC X'BOB1B2B3B4B5B6B7B8B9BABBBCBDBE? 617 * NORMAL AND TEST DATA. * 
QO0064A COCIC2c3Cc4HcscE6Cc7C = 00 DC X'*COC 1C2C 3C4C5C6CTCB8COCACBCCCDCE! 618 * * 
000659 DODID2D3D4D5D6D7D 501 DC X 'DO D1D2D 3D4D5D6D7D8D9DADBDCDDDE? 619 * CALLING SEQUENCE * 
000668 EOEIE2ZESEGE5E6E7E 502 DC X' ROE 1E2E3E4E5E6E7 ESE9EAEBECEDEE! 620 * * 
000677 OFITF2F3F4UF5F6FTIF8 503 DC X'OF1F2F3F4FSF6F7F8F9FAFCFBFDFEF* 621 * BAL CMPRW, R6 (NORMAL) * 
000686 FOFIF2F3F4FSF6F7TF 504 DC X "FOF IF2F3F4F5F6F 7F8F9OFAFBFCFDFE? 622 * BAL CMPRT,R6 TEST) * 
000695 FFO001 505 DC X'FFOOO18 623 * * 
506 2 2K aK 3 9K he af 3c af afc oe 2 2 aie ae 2k ae a a ie 2 2K ae afc afc afc af afc a afc akc ofc ake ofc ake oe ak ofc aie of ak ake ate afk ofc afc of oe of ake ake afc ake ae ke ate he ae ake afc ake af ake af afc afc ke ae ale ale 624 * RETURN * 
508 Me He de a ak ae oe He ae ae af he 2 he ae eke ae a ie ok ake 2h ae ake afc afc ake afc ae ake ate fe ofc ake ak ofc afc ake ake ake aie af afc oe ae afc afc afc aft fe ae ae ake afc ae ake ake ae oe ae ale oe ae ae ok ake afc afc ake 625 * * 
509 * 626 * BXS (R6) - NORMAL * 
510 * DCB TABLES 627 : * 
512 9K IK dhe dhe fe he ae He Me afe Ye fe BY afc ae fe kc he af ah ae he he fe ae ae ke ah afc abe af ale ake ake ake ke ake ak ake ake ake ofc ake ake ake afc ae ake ofc ae af afc ke ake oe ofc fe ake ale ae ake ae ae fe ae ake ae ake ae ate §29 TECR ata eee ne cane oe ee 
513 * 0C0072A 4724 0100 630 CMPRT MVWI 256 BYTE COUNT 
514 *#*#e RECALIBRATE DCB ***##% Kx 00072E 4324 0496 631 MVA Rabe. R3 ADDR OF RD SECT DATA 
515 * 000732 6D08 O6BE 632 MVW WEADD, ADDR OF WR SECT DATA 
000698 0007 516 CLDCB DC X¥'0007! RECALIBRATE DCB 000736 2BA6 633 CPR1 CENEN (R3) 0 (R COMPARE DAT 
00069A 00000000000000000 517 DC TA (*#-*) 000738 €800 O74A 634 ID KS BCH IF WRITE DATA OK 
518 * 00073C 4cé1 635 BETS RY SET ERROR INDICATION 
519 ***k* WRITE SECTOR ID ** 00073E 8308 0020 636 MV B R3 D v4 ERROR BYTE IN READ DATA 
520 * C00742 8508 0021 637 MVB R5}° DEV4+1 ERROR BYTE IN WRITE DATA 
0006A8 8001 521 WRDCB DC X'8001! WRITE SECTOR ID CONTROL WORD 000746 6802 098C 638 BS PRNT BRANCH TO PRINT ERROR 
QOOO6AA 0000 522 DC x#9000" NOT USED COO74A 5600 639 WIDOK (26) RETURN TO CALLER 
OOO06AC 0000 523 DC A 0-7 = PHYSICAL SECTOR # MINUS ONE 641 Beit eeee PES SSE SSS SSS SS SSL SS SSS SS SS SES SLE SS SS SSS SSL SSS SS See eS eS SLL SS Ss 
OOO6AE 012E 524 DC A 302 NOT USED 642 * * 
0006B0 0000 525 DC A (*-* NOT USED 643 * SUBROUTINE * 
0006B2 O6F8 526 DC A RTD B) CHAIN ADDRESS 644 * * 
O006B4 0100 527 ope A 256) BYTE COUNT 645 * PURPOSE * 
0006B6 0596 528 WRADD DC A (WTBUF) ADDR OF SECTOR ID DATA o46 . CONVERT LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR NUM. + 
530 ***** READ SECTOR ID DCB *****k* 648 * SETUP LOGICAL SECTOR # IN LOCATION 'LGSEC* * 
531 * 649 * PHYSICAL SECTOR # WILL BE LOADED IN LOCATION 'PHYSC! % 
O0006B8 200A 532 RSDCB DC X'200A* READ SECTOR ID 650 * * 
OOO6BA 0000 533 DC X'00008 NOT USED 651 * CALLING SEQUENCE * 
0006BC 0000 534 DC X'00008 0-7 = PHYSICAL SECTOR # MINUS ONE 652 * x 
OO06BE 0000 535 DC X'00008 NOT USED 653 * BAL CONVT,R6 * 
0006C0 0000 536 DC X'0000! NOT USED 654 * * 
0006C2 0000 537 DC X'00008 CHAIN ADDRESS 655 * RETURN * 
0006C4 0006 538 DC X'0006! BYTE COUNT FOR READ SECTOR ID 656 * * 
0006C6 OOTA 539 Z DC A (SCTID) SECTOR ID DATA ADDRESS 657 * B (RT30 442) + 
5U1 «ee eKK SEEK DCB OK He Ae A ae he 2K ok G59 A 2 eK oe He 2 2h 2 a i ae 2 2h he 2 2 fe fe ce ae fc 2k fe 2 afc i 2 2 oe afc oi ae ie ac 2c ok fe aie 2 fe co 2k 2 oi ake 2h ie a ae ae fc of fe 3 ok afc of ae afe ae ok ak 
542 * COCT4EC 6EQD O78C 660 CONVT MVW 6,RT304+2 SETUP RETURN ADDR 
0006C8 0005 543 SKDCB DC "00058 SEEK DCB 000750 802B 0488 O48D 661 CB ZERO, LGSEC#1 CK FOR LOG # ZERO 
0006CA 1000 54g DC X840008 BIT 0-3=0;BITG=DIRECTION :5-15=DIFFER 000756 100D 662 JE RT303 BCH IF LOG # IS ZERO 
0006CC 0000 545 DC F'ot 000758 802B O48D 0490 663 CB LGSEC+1,CB29 COMP LOG TO 29 
O006CE 0000 506 DC Ftgt COO7T5E 1C0D 664 JGE RTT01 BCH IF LGSEC EQ OR LESS THAN CB29 
0006D0. 0000 a7 DC X'00008 0-7 = HEAD: 8-15 NOT USED 000760 4024 0002 665 MVWI 2,R0 SETUP MULTIPLIER 
0006D2 0000 548 DC A (*=%) CHAIN ADDRESS 600764 E821 O48D 666 MB LGSEC+1, RO LOG SECTOR # TIMES 2 
0006D4 0000 549 DC Froe NOT USED 000768 7802 003C 667 SWI 60,R0 LOG SEC TIMES 2 MINUS 60 
0006D6 0000 550 DC F'o? NOT USED G0076C C628 O4BF 668 MVB  RO.PHYSC+1 PHYSICAL SECTOR NUMBER 
552 * 000770 500c 669 J RT304 RETURN TO CALLER 
553 ***kk CYCLE STEAL STATUS DCB ***%#kxx 600772 8628 0492 O48F 670 RT303 MVB  FIVE9,PHYSC#1 PHYSICAL SECTOR # 59 
554 * 000778 5008 671 J RT304 RETURN TO CALLER 
0006D8 2000 555 CSDCB DC X'20008 CONTROL WORD OOO77A 4024 0002 672 RTTO1 MVWI 2-R0 LOAD MULTIPLIER 
O0O06DA 0000 556 DC Ftot NOT USED O0OO77E E821 O48D 673 MB LESEC+1, RO LOG SECTOR i TIMES 2 
0006DC 0000 557 DC Fort NOT USED 000782 7802 0001 674 SWI 1,R SUBTRACT ONE 
OOO6DE 0000 558 DC Ftor NOT USED 000786 C028 O48F 675 MVB  RO,PHYSC+1 LOAD PHYSICAL SECTOR # 
0006E0 0000 559 DC F'0! NOT USED 00078A 6802 0000 676 RT304 B *— RETURN TO CALLER 
OO006E2 0000 560 DC Fg NOT USED 678 3K Ae 3K 2 3k aie ac 2 aK oie af ac aie a 2 ake ofc a 2 hc a oe kk aie 2k ae he ae ae ake of fe ake afc of ote ake ae ate ole afc ak ake afc of af of ak ake of ae ake ake ofc ae ofc ake ale ofc akc ofc ak ofe fe ofc ok afc ake ae akc 
OOO6E4 0008 561 DC X'00088 4 WORDS OF STATS 679 * EXECUTE INPUT & OUTPUT COMMANDS * 
0006E6 0032 562 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 680 * TO EXECUTE ALL I/0 COMMANDS FROM A COMMON PLACE. * 
563 * 681 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER * 
564 ***** READ DCB # RR 682 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE * 
565 * 683 * SUPVR CALL. * 
0006E8 2009 566 RDDCB DC x'20098 READ DCB CONTROL WORD 684 * * 
OO06EA 0000 567 DC Fort NOT USED 685 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: x 
O006EC 0000 568 DC X'00008 0-7=0, 8-15 = FLAG BYTE 686 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP * 
OO06EE 0000 569 DC X'00008 SEARCH ARGUMENT CYLINDER 687 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR * 
OO06FO 0101 570 DC X'0101° SEARCH ARGUMENT H-R 688 * 3. LOOP ON ERROR, THE CALL MUST HAVE A 'DC' STATEMENT AFTER x 
0006F2 0000 571 DC besa CHAIN ADDRESS 689 * THE CALL WITH THF ADDRESS OF THE RETRY STATEMENT * 
O0O06F4 0002 572 DC X"000 BYTE COUNT 690 * 4. CYCLE STEAL IN PROGRESS WITH AN ERROR * 
OO06F6 0496 573 r DC A (RDBUF) READ DATA ADDRESS ne ; 5. SOMETHING ELSE * 
575 **%*k WRITE SECTOR ID SKEWED ¥***x 693 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: * 
576 * 694 * 1 BAL $WTRD,R6 WRITE READ DATA * 
GQOU6F8 2009 577 RTDCB DC x'2009' CONTROL WORD 695 * 2 BAL $DIAG,R6 DIAGNOSTIC * 
OOO6FA 0000 578 DC x'00008 NOT USED 696 * 3 BAL $SEEK,R6 SEEK * 
O006FC 0000 579 DC A (*-* 0-7 = PHYSICAL SECTOR # MINUS ONE 697 * & BAL $RECL,R6 RECALIBRATE * 
OOO6FE O012E 580 DC A (302 NOT USED 698 * 5 BAL SRDID, R6 READ SECTOR ID * 
000700 0000 581 DC A (#-* NOT USED 699 * 6 BAL  $RD,R6 READ * 
000702 0000 582 DC A (¥-* CHAIN ADDRESS 700 * * 
000704 0700 583 DC A 256 BYTE COUNT WAIN SESS ST SSL SSS PST TS ST SSL SS SSS SSS SL SS SS SST SSL SSS SSS TSS LS SS TSS SSS LS SPS S22 fF | 
000706 0496 588 DC A(RDBUF) ADDR OF SECTOR ID DATA 00078E 4020 0902 06C8 702 $SEEK MVA  SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
585 x 000794 OBFF 703 MVBI X'FFI’R3 SET BUFFER TO F'S 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000796 4524 OO1A 704 MVA SCTID, R5 SETUP READ SECTOR ID BUFFER ADRS 821 * PURPOSE * 
00079A 4724 0006 705 MVWI 6 SETUP BUFFER LENGTH 822 * * 
O0OO079E 2BAC 706 FFN R3 (R5) INIT READ SECTOR ID BUFFER 823 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 
0007A0 5020 707 J X10 BRANCH 824 * PROBLEM THAT WAS FOUND WHEN THE 170 COMMAND WAS ISSUED BY THE x 
0072 4020 0902 0698 398 SRECL NVA CLDCB, LODCB SET UP BLOCK FOR SVC CALL Bae : SUPERVISOR AND IT WAS NOT ACCEPTED. : 

RANCH 
OOO7AA 4020 0902 06B8 710 S$RDID MVA RSDCB,IODCB SET UP BLOCK FOR SVC CALL 827 * CALLING SEQUENCE Be 
0007B0 OBFF 711 MVBI X'FFt, SET BUFFER TO F'S 828 * * 
0O007B2 4524 OO1A 712 MVA SCTID, R5 SETUP READ SECTOR ID BUFFER ADRS 829 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND * 
OOO7B6 4724 0006 713 MVWI SETUP BUFFER LENGTH 830 * * 
OOO7BA 2BAC 714 FFN R3 §B5) INIT READ SECTOR ID BUFFER 831 * RETURN CONTROL * 
O007BC 4020 06C6 001A 715 MVA SchID, RSDCB+14 DATA ADDR 832 * * 
0007C2 SOOF 16 J X10 BRANCH 833 * B SPRNT DUMP STATUS BEFORE TERMINATION * 
0007C4 4020 0902 O6E8 717 $RD MVA RDDCB, LODCB SET UP BLOCK FOR SVC CALL 834 * * 
OOO7CA 4020 0496 FFFF 718 MVWI X*FFF ', RDBUF SETRD BUFFER TO ALL FTtS 835 HK 2 2h ah fe ke af ae a 2c fe ie OK fc a i ac i of af aie fe age ac ae ai af ate af af fe ae afc ake afc ae ade ac akc af ac ae akc afc ofc ae ake af. afe ac ae ake afc ote af af ake ak ofc ake afc ae fe ote afc ake ae afc ae ae ke 
0007D0 5008 719 J XIO BRANCH 00085E T706E 836 XIOER CPLSR R3 SAVE CONDITION CODE ON I/O ERROR 
0007D2 4020 0902 O6A8 720 $WTRD MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 000860 336A 837 SRL 13,83 POSITION CC CODE TO BITS 13-15 
0007D8 5004 721 J X BRANCH 000862 C328 0014 838 MVB R3,$I0IN * PUT IN LOG OUT AREA 
QOO7DA 4020 0902 0708 722 $RDVA MVA RDVAR, LODCB SET UP CONTROL BLOCK FOR SVC CALL 000866 6802 098C 839 B SPENT BRANCH TO PRINT ERROR 
0007E0 5000 723 J BRANCH BU Fe Re ye ah he ae te 2h ofeach ae a af he he ae a 2c afc fe 2 2h ae 2 akc a aR a af af 2 fe oi fe 2 ake i afc of a 2 ate at fe af ake i ae ake af ake a ae ate afc ae ake ae afc ake afc oe 
JT D5 AAR a ee i RK 2K aK a 2K ic 2 2 aK ak a 2 2 ae 2k ic ae a fe 2 fe fe 2 2 22 fe oi a a 2 2c a ie ok cafe af 2 8 ae fc fe a ok ae af af ate a fe ac ae ak afc ake af 2c ak af age ae 842 * * 
726 * * 843 * SOUBROUTINE * 
727 * SOUBROUTINE * 844 * * 
728 * * 845 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* * 
729 * EXECUTE INPUT AND OUTPUT COMMANDS * 846 * * 
730 * * 847 * PURPOSE * 
731 * PURPOSE * 848 * * 
732 * * 849 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 
733 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. * 850 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * 
334 : THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: : o24 : EXPECTED CODE, : 
336 : A Bea e ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED : 3A . CALLING SEQUENCE . 
738 * 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 855 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT * 
739 * ISSUED BY THIS SUBROUTINE. * 856 * * 
740 * 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE * 857 * RETURN CONTROL * 
741 * START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. x 858 * * 
742 * 4. RESETS rahe, INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 859 * SVC EXIT RETURN TO USER VIA SUPVR * 
743 * SINCE AST EXPECTED INTERRUPT. IF AN pLNTERRUPT IS FOUND, * 860 * * 
TH x ce omepe OTN RRERDDe MI CONTROL BIT IS SE * BE Fe A he 2h ake 2 25 ie te afc 2h ae ae hc ca akc ake ah 2c a ae a 2k 2 oe i i fe fe ak 2k 2h ae 2 ae a ae oe ae 2k fe of ak a 2 aoe a ie ae ae ae fe aie ake a oc ate of ate oie ake af akc ake ok of 
745 * 5. MOVES THE ADDRESS dF hae I/O CONTROL BLOck ane SET THE * 00086A T706E 862 INTER CPLSR R3 SAVE INDICATORS 
746 * EXPECTED INTERRUPT CONTROL BIT AND ISSUE ghee ART? * 00086C 336A 863 SRL 13,R3 POSITION INDICATORS IN R3 
747 * 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE 10 COMMAND, TIMING * OOO86E 4424 OOOE 864 MVA OP®N1,R4 SET UP_BASE ADRS 
748 * STARTS TO DETERMINE A LOST INTERRUPT. * 000872 4&C27 865 TBTr fn c§) IS CS IN PROGRESS 
749 * 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF * 000874 1006 866 JOFF nTET * NO 
750 * WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * 000876 4Cc68 867 TBTS (R4 eet TURN ON CYCLE STEAL INTER ERROR 
751 * 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. * 000878 6FOD 0040 868 MVW R7,CST 8 SAVE CS ERR ISB VALUE, BITS 0-7 
752 * 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * 00087C C328 0041 869 MVB R3,CSTL8+1 * AND THE COND CODE 
753 * 10. CHECK IF MHERE WAS AN ERROR CONDITION, IF NOT RETUR * 000880 5009 870 J INfR1 BRANCH 
754 * 11. CHECK IS A CYCLE STEAL OPERATION WAS fn PROGRESS Ee WAS * | 200882 4&cé61 871 INTET TBTS Ags ER) SET ERROR ON I/O COMMAND CNTL BIT 
755 * ISSUED BY THIS SUBROUTINE. e | 900884 5007 872 J nTh1 BRAN 
756 * 12. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 Is ON Issuv A * 874 KE he A Ae ae KE a Oe aie He 2 fe fe ae af ae akc fe ae ak hc ke fe ake fe af age 2fe af ae afc aie af abe ake ofc ake akc ake ae af ofc ake ok ade ate ake ofc ae a ole 2k ake ale of afc ake ae afc af fe ae af fe ake ake ake ae ote 
757 * CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, * 875 * * 
728 : COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. . ee : SOUBROUTINE : 
760 : CALLING SEQUENCE : Aa8 . OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'S$INTL! . 
762 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: : Bea : PURPOSE : 
764 . ae Bat XIO : XEQ ANY CYCLE STEAL COME ADE MOD=0 7 882 : TO CHECK THE INTERRUPT AND CONTINUE THE TEST : 
-- IOCS,R EO START CYCLE STEAL STATU OD= 
ree * , Q : 884 * CALLING SEQUENCE * 
767 * RETURN CONTROL x 885 * * 
768 * * 886 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 
769 * BXS (R6 RETURN TO USER NO ERROR * 887 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * 
77.0 FORO III ICI ICICI IG III IOI IR RIOR RIG II RR I IOI K 888 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE . 
0007E2 CB25 0904 772 XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 889 * COMMON SECTION IS HANDLED HERE. * 
0007R6 500C 773 J XIO1 BRANCH 890 * * 
0007E8 4CA8 774 TBTR Ru, cE RESET CS STATUS INTER ERROR INDICAT. 891 * RETURN CONTROL * 
OOO7EA 4C67 775 TBTS SET 'CYCLE STEAL STATUS! IN PROGRESS 892 * * 
OOO7EC 4020 0902 O6D8 776 XIOCS MVA tae ODCB SET UP CONTROL BLOCK FOR SVC CALL 893 * svc EXIT RETURN TO USER VIA SUPVR * 
OOO7F2 4020 0904 OOOF 777 MVWI x 0008", roHOD SET CYCLE STEAL MODIFIER 894 * * 
0007F8 4C27 778 TBT ite S) IS CS IN PROGRESS ERROR CONDITION 895 AK he fe fe ae he afc fc fe he af ac fe ae ae ake ae ate fe ae ae af aie ok ate ofc a ae ofc a akc ake ofc ate ate ae ake ake fe ate ate ke fe ake ake of ae afc ae ake oe ke kc ofc ake of ake aie af ake fe ae afc af ak akc ake akc akc ake aie 
OOO7FA 1216 7179 JON 4 * YES. BYPASS SAVING I/O ADRS 000886 706E 896 INTOK CPLSR Re SAVE INDICATORS 
QOO7FC 4CA3 780 TBTR (Rs IN) HAS INTERRUPT OCCURED 000888 336A 897 SRL POSITION INDICATORS IN R3 
OOO7FE 125F 781 JON sae) ex BRANCH YES OOO88A 4424 ODODE 898 MVA Opaee R4 SET UP BASE ADRS 

000800 6E0D 0018 782 XIO1 MVW R6 LSTIO SAVE IAR O0O0088E 4C24 899 TBT in xf) TEST EXPECTED ERROR BIT 
000804 402E 0018 0004 783 SWI LsTI9 DECREMENT TO LOCATE INSTRUCTION 900890 1001 900 JOFF NT RT BRANCH IF OF 
OOO80A 4324 0000 784 MVA S61 LOAD PROG START ADDRESS 000892 4C69 901 TBS Rap GT SET GOOD INTERRUPT BIT 
OOO80E CB2F 0018 785 SW P2k3 SUB TO OBTAIN LISTING ADDRESS 000894 4C63 902 INTR1 TBTS R4Y,IN SET INTERRUPT RECEIVED 
000812 4324 0022 786 MVA Ba gue R3 SET UP TO ADRS TO MOVE DCB TABLE 000896 4C27 903 TBI R4,CS IS 'CS IN PROGRESS' ON 
000816 6D08 0902 787 MVW TODCB. Be * AND THE FROM ADRS, ALONG WITH 900898 1204 904 JON nT R2 * YES, BCH AROUND UPDATE 
00081A OF10 788 MVBI 16,R7 * THE NUMBER OF MOVES O00089A C328 0015 905 MVB R3,$1OIN+1 SAVE INTERRUPTING CC CODE 
00081C 2D64 789 MVEN R5) §R3) MOVE DCB TABLE O0089E 6FOD 0016 906 MVW R7,$1ISB SAVE INTR STATUS AND DEV ADRS 
OOO81E OBFF 790 | MVBI 5 CLEAR CYCLE STATUS BUFFER QO008A2 78B9 907 INTR2 CPCL R5 COPY INTERRUPT LEVEL TO CHECK 
000820 4524 0032 791 MVA CSBUF, RS * TO ALL ONES OOO8A4 3521 908 SLL 4,R5S POSITION INTR LEVEL AND PUT 
000824 OF10 7192 MVBI 16,R7_ x O0O0O08A6 0501 909 ABI 12R5 * IN ‘It BIT 
000826 2BAC 793 FFN R3 (R5 * Q0008A8 CD24 0056 910 CW $ENTL, RS IS THIS THE CORRECT INTR LEVEL 
000828 4cCA3 794 XIO02 TBTR (Rd IN CLEAR INTERRUPT RECEIVED CNTL BIT QOO08AC 1004 911 JE INTR3 * YES, GO EXIT THIS LEVEL 
00082A 1249 795 JON TOEK BRANCH IF ON QOO8AE 3 21 912 SLL “RS POSITION RECEIVED LEVEL 
00082C 4724 O8FE 796 , MVA  IOBLK SET UP CONTROL BLOCK FOR SUPVR 0008B0 6D0D 0020 913 MVW) ORS, DEV4 STORE INTO DEV4 
000830 802B 0232 O05E 7197 CB CPUTYPE, TYPE23 CHECK FOR PROCESSOR 23 OOO08BY 4¢55 914 TBTS R4,LE SET INTR LEVEL ERROR CONTROL BIT 
000836 1803 798 JNE XI05 BRANCH NOT FOUAL 0008B6 4CA2 915 INTR3 TBTR R4Y,XI WAS INTERRUPT EXPECTED 
000838 4&524 co0ood 799 MVHI X*CO00",R5 LOAD LOOP cotnt 0O008B8 1301 916 JON NTRX * YES, EXIT OFF THIS INTR LEVEL 
00083Cc 5001 800 J XIO6 BRANCH OOO8BA 44:60 917 TBTS ee MI) * NO, SET MYSTERY INTR CONTROL BIT 
00083E 75AA 801 XIO5 SB R5,R5 LOAD LOOP couNT OO0O08BC 6¢€06 918 INTRX SVC X1t EXIT THIS LEVEL VIA SUPVR TO PGM 
000840 4C G2 802 XI06 TBTS gpa XI) SET EXPECTED INTR CONTROL BIT \ 920 He Ke oie aie ak afc hc ak fe ofc abe ak a ake afc ake ake afc he ae ae afc ae af ake af afc ofc ade ke ah ote ate ae ae ade abe of ade ake ofe afc fe afc ke afc ake afe af age ae afc aie i afc ake akc ake ake afc ak af aie akc afc ic age ake ak ake ak 
000842 OOA 803 SVC TART CALL SUPVR FOR I/0 COMMAND j 921 * 

000844 6002 804 xIO8 svc IDLE ALLOW OTHER PROG TIME ; 922 * THIS IS THE CONTINUATION OF EXECUTE I/0 AFTER THE INTERRUPT 
000846 4c03 805 TBT Re TM) IS TERMINATE BIT ON 923 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
000848 6A00 OOR4 806 BON TERM BRANCH IF ON 924 * RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 

00084C 4CA3 807 TBTR (R4,IN) HAS INTERRUPT BEEN RECEIVED 925 * 

OO0OO084UE 1237 808 JON ToeK * YES CHECK IF ALL WAS SATISFACTORY 926 PS SPSS ESE STE SES ELS ESE SS SS SSS SESS SS SL SEL e Sere sees SLES SSS eee Se CeL SSS SSS SLES 
000850 7DA1 0001 809 AWI 1,R5 ADVANCE TIME OUT COUNT OOO8BE 4C20 927 XIOCK TBT Ne MT) TEST MYSTERY INTERRUPT BIT 

000854 18F7 810 JINZ xfoB BCH IF TIME OUT NOT REACHED 0008CO 1214 928 JON IOcU BRANCH IF ON 
000856 4cél 811. TBTS RG,ER SET ON ERROR CONTROL BIT 0008C2 4C25 929 TBT ae LE) WAS AN INTR LEVEL ERROR FOUND 
000858 4C66 812 TBTS RYLI SET ON LOST INTERRUPT CONTROL BIT 0008C4 1002 930 JOFF T0cM * NO, CONTINUE CHECKING 
OOO85A 6802 098C 813 B Behe BRANCH TO PRINT ERROR 0008C6 4C61 931 TBTS se ER) \ SET ERROR CONTROL BIT ON FOR RETRY 

B15 ROO OK ORI OK ROK IG IK oki I IO IOI OR IOI IR RI ICR OR ik ke afaik afc ak atc ake ake aka fe ake afc ae aie ake ie ake a of kc ae afe afc ae akc ake 0008C8 5010 932 J Locu POSITION LEVEL TO BITS 12-15 
816 * * OOO8CA 4CAA 933 XIOCM TBTR R4, PE) TEST PROBABLE ERROR BIT 

817 * SUBROUTINE * 0008CC 6ACO 0000 934 BON R6f BRANCH IF ON 

818 * * 0008DO 4c24 935 TBT R4, XE) WAS AN ERROR EXPECTED 

819 * I/O EXECUTE ERROR HANDLING ROUTINE * Q008D2 1211 936 JN IOI * YES, EXIT THIS ROUTINE 

820 x * 0008D4 4C27 937 TBT (R4&,CS) WAS AUTO CS IN PROGRESS 


ET8EO ~-- S¥STEH TEST EXERCISOR FOR THE DISK PN=1635253 EC=754882 PAGE 05 E78EQO --- SYSTEM TEST EXERCISOR FOR THE DISK PN=1635253 EC=754882 PAGE O5A 


LOCTR OBJECT TEXT STHT SOURCE STATEHENT COPYRIGHT IBH CORP 1976 LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0008D6 1005 938 JOFPF * HO CONTINUE CHECKING 1056 HAC He he He oe He Mc afc he afc ae ae a whe Aye ake she age ae ahs ale ake ae ate ah abe aie aie sfx ae afc oe she aie aie ate he she she abe ate ae he hc ais oe ah he ake abe ake he ate ae he be abe abe ae ate oe ate he af he he ts ahs ate este 
0008D8 4c28 939 TBT (84 SF) Is aS IN AN ERR CONDITION 1057 * COMMON PRINT ERROR INTERFACE ROUTINE x 
OOO8DA 6800 0778 940 BOFF x CH 1058 * a 
OOO8DE 6802 098Cc 944 B ait GO a ee RROR 1059 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 
OOO8E2 4c24 942 XIOCY TBT ER) WAS ERROR INTR CONTROL BIT OW 1060 * BRANCH IS TAKEN TO PRINT THE ERROR * 
OOO8SEY 1004 943 OFF Bree * NO, EXIT THIS ROUTINE 1061 * ----> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 
OOO8E6 6802 07E8 944 XIOCQ B yroce- 4 * AVAILABLE, GO AND GET IT 1062 * BRANCH IS TAKEN TO PRINT THE ERROR a 
OOO8EA 6802 098c 945 XIOCU B $PRNT PRINT ERROR 1063 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE % 
OOOSEE CB25 0012 946 XIOCX HVWZ Ora, R3 CLEAR OUT OPTION 3 CNTL BITS 1064 * BRANCH IS TAKEN TO PRINT THE % 
OOO8F2 68C2 0000 947 B R6) RETURN TO USER VIA REG 6 1065 * ----> PRNTRIN THIS LABELED ADDRESS IN SYST ae ID = D3410/SYST ) * 
O008F6 4c29 948 XIOGI TBT GI) DID A GOOD INTERRUPT OCCUR 1066 * POINTES TO A COMHON ERROR OUTPUT AND FOPMATTER ROUTINE* 
OOO8SF8 12F8 949 JON Bo kG YES - BRANCH TO PRINT ERROR 1067 * WHICH HILL RETURN TO THIS PROG VIA REGISTER SEVEN 
OOO8BFA 68C2 0000 950 B (R6) RETURN VIA R6 1068 * : 

952 * 1069 ae ae ae aie ake afe afc afc ade aie aft aie she fe aie alc ak sk ate ake ake aie afc ake ate ae age ate ae ate abe aie afc ake afc ake af ae ate aie afe ae ok ake ak abe ake ade fe afc ake ake atc afc he ake ake ate ode ake of af ae ate fe ake abe ate ade ahr ate 
953 * I/O PARAMETER LIST 00098C 4624 0012 1070 $PRNT HVA  OPTN3,R6 LOAD ADDRESS OF OPTION WORD THREE 
954 * 000990 6D08 181E 1071 HVY PRNTREN, RS LOAD ADDRESS OF COHHON PRNT ROUTINE 
OOOBFE OO04C 955 IOBLK Dc A($DVAD ADRS OF DEVICE ADRS 000994 4424 0000 1072 HVA  $PID,R LOAD ADDRESS OF START OF PR 
000900 O85E 956 IOERR DC A(XIOER ERROR ROUTINE ADRS 000998 4324 0042 1073 HVA PCTR,R3 LOAD ADDRESS OF PASS COUNTER 
000902 0000 957 IODCB DC A (8-* DCB ADRS OR LEVEL & INTR 00099C 6FA3 0000 1074 BAL (RS) R77 BRANCH TO COMMON PRINT ROUTINE 
000904 0000 958 IOHMOD DC A (e- MODIFIER 0009280 CE25 0012 1075 MVWZ OPTHS,R6 ZERO OUT ALL FLAGS 
000906 0000 - 959 DC Rh (¥- * ADRS OF LAST SVC CALL 0009A4 4424 OOOE 1076 NVA OPTN1/ RG LOAD BASE ADDRESS FOR INDICATORS 
000908 0000 960 IORSP DC A (¥-% SECOND WORD OF LAST IDCB 0009A8 802B 0232 O0S5E 1077 CB CPUTYPE, TYPE23 IS THIS A TYPE 23 PROCESSOR 
961 OOOSAE 1803 1078 JNE  §PRN2 BRANCH IF NO 
962 * INTERRUPT CONTROL BLOCK FOR I/0 COMMANDS 0009B0 4524 E000 1079 MVWI X*EOOO',RS INIT LOOP COUNTER 
963 * 0009B4 5002 1080 J $PRN1 BRANCH 
00090A 004c 964 INTBL DC A (S$DVAD ADRS OF DEVICE ADRS 0009B6 4524 8000 1081 $PRN2 MVWI X*8000',R5 INIT LOOP COUNTER 
00090C 0886 965 DC A(CLNTOK INTERRUPT OK RETURN ADRS 0009BA 6002 1082 $PRN1 SYC IDLE DELA 
OOO90E O86A 966 pC ALINTER INTERRUPT ERROR ADRS 0009BC 4c03 1083 TBT (ra TM) SHOULD PROG TERMINATE 
000910 0003 967 INTCC DC X'0003! INTERRUPT CODE EXPECTE OOO9BE 6A00 OOF4 1084 BON TERM BRANCH YES 
969 SAREE GEEADG O4G4 GE ERRES ENE LRERO EG Ocoee eas eek aks eae aweenaeeeeees 0009C2 T7DA1 0001 1085 AWIL 1,R5 INCREMENT LOOP COUNTER 
970 * 0009C6 18F9 1086 JNZ  $PRN1 BRANCH NOT ZERO 
971 * SUBROUTINE * 0009C8 6802 OOA4 1087 B $PENT BRANCH TO RESTART FROM BEGINING 
972 * x OOO0AY 1088 END $PENT 
973 * CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE + 
975 * PURPOSE : 
9717 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND * 
978 * PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * 
979 * TO INTERRUPT. * 
980 * * 
981 * CALLING SEQUENCE * 
983 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: * 
985 * -—-> BAL $CONC,R6 CLEAR DEV DEP Ts AND CONNECT I/O BLK 
986 * --> BAL $CONR, R6 BCH TO CONNEC * 
987 * --> BAL $CONP, R6 PREPARE DEVICE ONLY * 
989 * RETURN CONTROL * 
990 * x | 
994 * BXS (R6) RETURN TO USER VIA REG 6 + 
993 PSS SS SL SSSI LS SSE LES TES SSS SSS PSE SESS SS TS LSS SSS SSS PSS SCL SC Se SSeS SSS TST Set eS SS] 
000912 994 $CONR Eu * 
000912 4724 090A 995 MYA  INTBL,R7 SET R7 TO CONTROL BLOCK AND 
000916 6014 996 svc CICB * CONNECT IT TO THIS DEVICE 
000918 68c2 0000 997 B {R6) RETURN 
00091Cc 998 $cONC EQU 
00091C cB25 0012 999 MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
000920 8828 0056 0902 1000 $cONP MVW $INTL{TODCB PUT IN LEVEL & INTR PARAMETER 
000926 4724 O8FE 1001 MVA  LOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 
00092A 4020 0014 O7FF 1002 MVWI X'O7FF", $IOIN INITIALIZE CONDITION CODE STORAGE 
000930 cCB25 0016 1003 MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
000934 6EOD 0018 1004 MVW  R6,LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 
000938 4O02E 0018 0004 1005 SWI 4,£sTI0 DECREMENT TO POINT AT INSTRUCTION 
00093E 4324 0000 1006 MVA $PID_R3 LOAD ADDRESS OF START OF PROG 

000942 CB2F 0018 1007 SW R3,LSTIO SUB TO OBTAIN LISTING ADDRESS 
000946 600C 1008 SvC PREP * AND CALL ON SUPVR 
000948 68C2 0000 1009 B (R6) RETURN 

1011 IK ae ae ae se ae ae ae aK oe afc ae ae ak ah i he oe ake fe ac af ok ak fe ae aXe ac oie i ate afc ae ole aie 2c she afc ae age af ae ake afc akc ake ok afc ofc ake abe ae fe afc ake ae akc afc ake abe af of ae oe abe 2c ae ake of 
1012 * * 
1013 * SUBROUTINE x 
1014 * x 
4015 . SPECIAL ERROR CHECKING OF THE DCB 5 
1017 * PURPOSE * 
1018 * * 
1019 * TO SET THE CONTROL BITS BEFORE ISSUEING THE 1/0 COMMAND * 
1020 * TESTING TO VERIFY THAT THE ERROR DID OCCUR, AND VERIFYING * 
1024 * THAT THE RESIDUAL ADDRESS IS WHAT IT SHOULD BE. + 
1023 * CALLING SEQUENCE * 
1025 * --> BAL  ERTST,R2 USE COMMOM EPROR TEST SUBRTN . 
1026 . DC A (1) DISPLACEMENT FOR RESIDUAL ADRS * 
1028 * RETURN CONTROL * 
1029 * * 
19 30 * BXS (R2, 2) RETURN TO USER VIA REG 2 : 
1032 Beheg Mage’ Ten ay eee eeneraoe pera che eer eect 
00094C 4cé4 1033 ERTST TBTS % SET EXPECTED ERROR FOR EACH FAULT 
O0094E 4029 000C 0001 1034 AWL rSCKP INCREMENT CHECKPOINT 

000954 6E03 0000 1035 ERCAL BAL GO XEQ I/0 COMMAND 
000958 4c21 1036 TBT i Ra’ Bey DID ERROR CONTROL BIT GET SET 
00095A 1202 1037 JON RTSV * YES,GO CKECK RESIDUAL ADDRESS 
00095c 1038 CSADE EQU 
00095C 6802 098C 1039 : B SPRNT BRANCH TO PRINT ERROR 
000960 AAOQB 0908 1041 ERTSV AW £3 2 IORSP DEVELOP DCB ERPOR ADDRESS 
000964 8828 0908 098A 1042 MVW 7 ERTS2 SAVE DCB ADRS FROM SUPER BLOCK 
00096A CE25 0012 1043 MV WZ ZERO OPTION WORD THREE 
00096E 4C6A 1044 TBTS (sd ee} SET PROBABLE ERROR 
000970 6E03 07E8 1045 BAL toés-4, R6 REQUEST START CYCLE STEAL STAUTS 
000974 882B 0032 098A 10 46 CW CSTL1, ERTSZ TEST FOR CORRECT RESIDUAL ADDRS 
00097A 1004 1047 JE ERTSX RESIDUAL ADDRESS OK 
00097C 8828 098A 0020 1048 MVW  ERTSZ,DEV4 'WAS' RESIDUAL ADDRESS 
000982 SOEC 1049 J CSADE BRANCH 
000984 4caA7 1050 ERTSX TBTR (R4,CS RESET CS IN PROGRESS CNTL BIT 
000986 4CAT 1051 TBTR (R4SER RESET ERROR RECEIVED CONTROL BIT 
000988 5201 1052 ? BXS R2,2) OK, RETURN TO CALLER 
00098A 0000 1054 ERTSZ DC A (*-*) EXPECTED RESIDUAL ADDRESS SAVE AREA 


E78EOQ --- SYSTEM TEST EXERCISOR FOR THE DISK 


DECLARED 
0 
0 


0 


60 


998 
994 
123 
125 
132 
127 
98 
99 
128 
136 
151 
164 
55 
1070 


1082 
1081 
167 
187 
717 
710 
722 
708 
176 
201 
59 
702 
173 
181 
720 
482 
606 
93 
38 
516 
630 
660 
51 


NAME 
RO. 


-B3. 


RG, 


-R5. 


-R6. 


-R7. 


SCKPT 


SCONC 
SCONR 
SDVAD 
$DVID 
SHTOE 
SINTL 
$IOIN 
$ISB 
SMXSL 
SOUTIN 
SPENT 
$PEN1 
SPID 
SPRNT 


$PRN1 
$PRN2 
$PUPD 
$PUPS8 
SRD 
$RDID 
SRDVA 
$RECL 
SRETI 
$RTAD 
SRTNE 
$SEEK 
$TERM 
STER1 
SWIRD 
CB29 
CCRTP 
CE 
CICB 
CLDCB 
CMPRT 
CONVT 
CPUTYPE 


PN=1635253 EC=754882 PAGE 06 
CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
ATTRIBUTES AND REFERENCES 

ABSOLUTE. HEX yee eee) 

665 666 667 672 673 674 675 

ABSOLUTE. HEX tae DY ake ed 

297 298 302 323 328 339 398 Uugd 446 

450 456 461 468 1041 1052 

ABSOLUTE. HEX ee 

158 631 633 636 #703. 706 #711 #2714 ~«2772 

784 785 786 789 790 793 836 837 838 

862 863 869 896' 897 905 946 999 1003 
1006 1007 1073 

ABSOLUTE. HEX ED 

151 153 163 167 168 277 292 295 307 

371 377 606 635 774 775 778 780 794 

802 805 807 811 812 864 865 867 871 

898 899 901 902 903 914 915 917 927 

929 931 933 935 937 4.939 9423 £948 1033 
1036 1044 1050 1051 1072 1076 1083 

ABSOLUTE. HEX ee eee eae? 

194 195 603 632 633 637 704 706 712 

714 787 789 7191 793 799 801 801 809 

907 908 909 910 912 913 1071 1074 1079 
1081 1085 

ABSOLUTE. HEX eee a te 

160 161 166 193 196 197 239 254 255 

274 275 283 285 316 318 334 336 343 

348 §=6373- ss 3740S si33750—Ss—si382)0S385)~— 387) 2~—s03 

404 412 4413 +414 437 4608 639 #4660 °#«782 

934 947 950 997 1004 1009 1035 1043 1045 
1070 1075 

ABSOLUTE. HEX He 

155 157 174 179 181 182 244 246 630 
Re 713 788 792 796 868 906 995 1001 

ADDRESS. HEX eater Sy Aaah tanaka IN CSECT (E78E0 b LENGTH (2) 
194 256 276 284 294 25 326 327 378 

384 401 1034 

ADDRESS. HEX LOCATION(0000091C) IN CSECT(E78EO ) LENGTH(1) 
254 274 373 437 

ao HEX LOCATION (00000912) IN CSECT (E78 EO ) LENGTH (1) 
ADDRESS. HEX LOCATION(0000004C) IN CSECT(E78EO ) LENGTH(2) 

58133 #181 955 4 

Bago oka adie ct Weidebebatenaa IN CSECT (E78EO ) LENGTH (2) 
AEDT HSS: HEX LOCATION (00000060) IN CSECT (E78 E0 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00000056) IN CSECT(E78EO ) LENGTH(2) 
152 177 243 253 257 59 910 1000 

ADDRESS. HEX LOC ATION (00000014) N CSECT (E78E0O ) LENGTH (2) 
240 838 905 1002 

ot ae Ts LOCATION (00000016) IN CSECT (E78 E0 ) LENGTH (2) 
hon HEX LOCATION (00000058) IN CSECT(E78E0 ) LENGTH (2) 
peg ene es HEX LOCATION (00000068) IN CSECT(E78E0 ) LENGTH (2) 
ADDRESS. HEX LOCATION (OQOQOOOA4S) IN CSECT (E78E0 ) LENGTH (4) 

57 189 201 1087. 1088 

ADDRESS. HEX LOCATION(000000CC) IN CSECT(E78EO ) LENGTH (6) 
anh SOE ADT ee IN CSECT (E78E0O ) LENGTH (4) 
ADDRESS. HEX Boo aay soe re IN CSECT(E78E0 ) LENGTH (4) 
252 287 #289 329 397 05 607 638 #4813 

839 941 4945 1039 
‘ba Roke LOCATION (000009BA) IN CSECT (E78E0O ) LENGTH (2) 
Pa HEX LOCATION (000009B6) IN CSECT (E78 E0 ) LENGTH (4) 
ADDRESS, HEX LOCATION (000000DC) IN CSECT(E78EO ) LENGTH(4) 
apne HEX LOCATION (00000114) IN CSECT (E78 EO ) LENGTH (6) 
ADDRESS, HEX LOCATION (000007C4) IN CSECT(E78EO ) LENGTH (6) 
ADDRESS. HEX LOCATION (O00007AA) IN CSECT(E78EO ) LENGTH (6) 
285 336 7 49° 460 

ADDRESS. HEX LOCATION(000007DA) IN CSECT(E78EO ) LENGTH (6) 
ADDRESS. HEX LOCATION(000007A2) IN CSECT(E78EO ) LENGTH(6) 
Va HEX LOCATION (000000F0) IN CSECT (E78E0 ) LENGTH (6) 
eta HEX LOCATION (00000134) IN CSECT (E78E0 ) LENGTH (2) 
Ate ang ae ee ee IN CSECT (E78E0O ) LENGTH (2) 
eee aa ee epee IN CSECT (E78EO ) LENGTH (6) 
ADDRESS. | HEX LOCATION (000000E4) IN CSECT(E78EO ) LENGTH(6) 
ADDRESS. HEX LOCATION (00000108) IN CSECT (E78E0 ) LENGTH (4) 
ADDRESS. HEX LOCATION(000007D2) IN CSECT(E78EO ) LENGTH(6) 
Beaten HEX LOCATION (00000490) IN CSECT (E78E0 ) LENGTH (2) 
aaa HEX LOCATION (00000722) IN CSECT (E78EO ) LENGTH (2) 
ABSOLUTE. HEX VALUE (00000028) 

soe HEX VALUE (00000014) 

apa HEX LOCATION (00000698) IN CSECT (E78E0 ) LENGTH (2) 
He aap HEX LOCATION (0000072A) IN CSECT(E78E0 ) LENGTH (4) 
CCl teem et es soo bees IN CSECT(E78E0O ) LENGTH (4) 
ABSOLUTE HEX VALUE (90000232) 

97 1077 


E78EO --- SYSTEM TEST EXERCISOR FOR THE DISK 
CROSS-REFERENCE LISTING 


DECLARED NAME 
92 cs 
1038 CSADE 
111 CSBUF 
555 CSDCB 
603 CSRTN 
112 CSTL1 
113 CSTL2 
119 CSTL8 
103 DCBUF 
102. +.DEV4 
476 ‘DIFF 
70 DIR 
86 (ER 
1035 + ERCAL 
1033 | BRIST 
1041 " ERTSV 
1050 ERTSX 
1054 ERTSZ 
39 EXIT 

36 E78E0 
422 FINIS 
348 FINS 
483 FIVE9 

94 GI 
378 GO 
313 GO1 
484 HD NUM 

40 HTOE 
129 HO000 
130 HO001 

42 IDLE 

88 IN 
144 INARA 

69 IND 
964 INTBL 
862 INTER 
871 INTET 
896 INTOK 
918 INTRX 
902 INTR1 
907 INTR2 
915 INTR3 
955 IOBLK 
957 IODCB 
956 IOERR 
958 IOMOD 
960 IORSP 
253 ITstT1 

90 LE 
480 LGSEC 

91 af 
295 LOOP 
100 stro 

85 (41 


—_ at wth 
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ATTRIBUTES AND REFERENCES 


ABSOLUTE. HEX VALUE (90000027) 
775. 778 865 903 #937 
DDRESS. HEX POC ATLON(0000095¢) 
RESS, HEX LOCATION (00000032) 
HEX LOCATION (000006D8) 
HEX LOCATION (00000718) 
HEX LOCATION (00000032) 
HEX LOCATION (00000034) 
RESS. HEX LOCATION (00000040) 
HEX LOCATION (00000022) 
HEX LOCATION (00000020 
328 36. 637 


ie 


1 
8 


=e) 
ty 
nN 
RP NNNN 


HEX VALUE (0000000F) 
HEX VALUE (00009921) 
811 


oO 
tt 
Ete 
Wihom we 
ie 


ue 


HEX LOcarzON (0008094c 

HEX LOCATION (00000960) 

HEX LOCATION (00000984) 

HEX LOCATION (0000098:) 
1048 


HEX VALUE (00000006) 


2) 

ie] 

Nn 
SNSNA 
f* fe 
Own 


RESS. 
RESS. 
RESS. 


1046 
OLOTE. 


HEX LOCATION (000003D6) 
HEX LOCATION (000002F4) 
HEX LOCATION (00000492) 
HEX VALUE (00000029) 

HEX LOCATION (00000316) 
HEX LOCATION (00000254) 


OLUTE. HEX VALUE (000000%A) 
RESS. HEX LOCATION (0000005a) 
RESS. HEX LOCATION (0000005C) 
HEX VALUE (00000002) 
HEX VALUE (00000023) 
HEX LOCATION (000000A2) 
HEX, VALUE (00000008) 
HEX LOCATION (0000090A) 
HEX LOCATION (0000086A) 
HEX LOCATION (00000882) 
HEX LOCATION (00000886) 
HEX LOCATION (000008BC) 
RESS. HEX LOCATION (00000894) 
. HEX LOCATION (000008A2) 
HEX LOCATION (00000886) 
HEX LOCATION (000008FE 
244 4 196 


UTE. 
1082 
UTE 
9 


o + 


- 
0 
T 
7 
RESS 
1 
TE. 
307 
S 


6 
E 
0 


8 
0 
3HEX LOCATION (00000900) 
HEX LOCATION (00000904) 
HEX LOCATION (00000908) 
0 1041 4 

HEX LOCATION (00000178) 


HEX VALUE (00000025) 


9 
0 333 383 
: HEX VALUE (00000026) 
RESS. HEX LOCATION (0000020E) 
HEX LOCATION (00000018 
3 785 1004 1 


RESS. 
78 1005 
al HEX VALUE (00000030) 


PN= 1635253 


050 
I 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
3 


HEX lame? mage ae IN 
303 313 344 45 


942 
HEX erat Og COORG 24) 
44g 455 6 


IN 
7 

IN 
8 

IN 
IN 
IN 


CT. START (00000000) LENGTH (2508) 


IN 
IN 
IN 


IN 
IN 


RESS. EE ie ade hae IN 


IN 
IN 


IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


HEX rb Sadana 7: tebe aaa IN 
702 08 710 17 


HEX - iia: YP tt eek IN 
391 94 


IN 
IN 
07 


N CSECT (E78E0 


CSECT (E78 EO 
CSECT (E78E0 
CSECT (E78 E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
Garg eee 
ESECT (E79E0 
376 380 


& 


1036 1051 
CSECT (E78E0 


CSECT (E78E0 
CSECT (E78E0 
CSECT (E78 E0 
CSECT (E78E0 


ESDID (0) 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78 E0 


CSECT (E78 E0 
CSECT (E78E0 
CSECT (E78E0 


CSECT (E78E0 
CSECT (E78E0 


CSECT (E78E0 


CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78 E0 
CSECT (E78 E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
720. 722 
CS ECT (E78E0 
CSECT (E78 £0 
CSECT (E78E0 
CSECT (E78 E0 


CSECT (E78E0 
CSECT (E78E0 


EC=754882 
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LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


WW 
co 
© 


LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 


be dl 


) LENGTH (4) 
) LENGTH (4) 
) LENGTH (2) 


) LENGTH (6) 
) LENGTH (6) 
) LENGTH (2) 


) LENGTH (2) 
) LENGTH (2) 


) LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
qh LENGTH (2) 


~~ Ole 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 


bn A A al 


LENGTH (2 
63 — 


) LENGTH (2) 
) LENGTH (2) 


ETBEO --- SYSTEM TEST 


DECLARED 
141 
142 
479 

62 
73 
44 
120 
95 
481 
43 
50 
68 
485 
566 


588 
591 
592 
4] 
44 
48 
532 


577 
672 
327 
326 
239 
274 
371 
437 
330 
339 
315 
344 
333 
670 
676 
391 
398 
385 
396 
397 
408 
409 
394 
101 


543 


302 
311 
45 
46 
66 
131 
639 


NAME 
MSG 
MSGO1 
ONE 
OPTN1 
OPTU3 
OUTIN 
PCTR 
PE 
PHYSC 
PREP 
PRNTRIN 
QUES 
RDBUF 
RDDCB 


RDVAR 
RDVA1 
RDVA2 
RESET 
RICB 
RID 
RSDCB 


RTDCB 
RTTO1 
RTY23 
RTY24 
RTO1 

RTO2 

RTO3 

RTO4 

RT203 
RT204 
RT205 
RT208 
RT211 
RT 303 
RT304 
RF311 
RT312 
RT313 
RT3 14 
RT315 
RT316 
RT317 
RT331 
SCTID 


SK DCB 


SKRV 
SKRV1 
START 
TERM 
TM 
TYPE23 
WIDOK 


EXERCISOR FOR THE DISK 


DarAGNONV OD CHOU OU WW EDN AO mOUO SWOWAIDEOSONOHNWO NOMI OW saOWWHnOUIDEOMDOU Ww 
SOVOCONOUIS SOWONONDOU LY 2TOa25WNWNUNNYG amnNOHnODVIOCOWMNANONAODWNUID OND smAvOoOOL 


De De an en C0 I WIR WIN Be LU De EE De Le EL LB LON ON WI LUD? WI WLU ORDO NWP OP EINE AP a P WD W PAS SES EP POP MP Wr OF oP POY are 
WHOWOWOOOY COSY OOOVO OVO OD COUN UUOONUHOWON 
VOOUNDOUKUOONO=@0F 


SONS ON ENWNAGAGN S2{GoOKnOn go 0UWI9W 


WOOO" 


PN= 1635253 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
ADDRESS. HEX LOCATION(00000072) IN 
ADDRESS 


HEX LOCATION(0000009D) IN 
HEX LOCATION (0000048A) IN 
HEX LOCATION(0000000E) IN 
864 898 1076 
HEX LOCATION(00000012) IN 
1043 1070 1075 
HEX VALUE (00000001) 
s HEX LOCATION (00000042) IN 
E, HEX VALUE (0000002A) 
HEX LOCATION (00090482) IN 
70 75 
HEX VALUE (0000000C) 
HEX VALUE (00001818) 
OLUTE. HEX VALUE(0000000D) 

HEX LOCATION (00000496) IN 
584 596. 631 1 
HEX LOCATION(000006E8) IN 

443 H44- 852 53 
HEX LOCATION (00000708) IN 
RESS. HEX LOCATION(0000070D) IN 
RESS. HEX LOCATION(0000070E) IN 
OLUTE. HEX VALUE (00000008) 
OLUTE. HEX VALUE (00000013) 
OLUTE. HEX VALUE (00000009) 


HEX Oe IN 
317 335 386 48 


HEX LOCATION(000006F8) IN 
HEX LOCATION (0000077A) IN 
RESS. HEX LOCATION (00000296) IN 
RESS. HEX LOCATION(00000290) IN 
RESS. HEX LOCATION(0000013E) IN 
RESS. HEX LOCATION(000001A4) IN 
RESS. HEX LOCATION (000002FC) IN 
LOCATION (000003DA) IN 
LOCATION (000002A4) IN 
RESS. HEX LOCATION(000002CA) IN 
RESS. HEX LOCATION (00000260) IN 
RESS. HEX LOCATION (000002E2) IN 
RESS. HEX LOCATION (000002AE) IN 
LOCATION (00000772) IN 
HEX LOCATION (0000078) IN 
RESS. HEX LOCATION (00000356) IN 
RESS. HEX LOCATION(0000036C) IN 
RESS. HEX LOCATION (0000033E) IN 
RESS. HEX LOCATION(00000368) IN 
RESS. HEX LOCATION (00000368) IN 
RESS. HEX LOCATION (00000394) IN 
RESS. HEX LOCATION (0000039A) IN 
RESS. HEX LOCATION(00000360) IN 

QCATION (000Q001A) IN 


L 
19 
04 712 715 
LOCATION (COODRSCE) IN 
18 81 


Ps) 
ty 
WN 
wn 
° 

x 
tr 
o< 


D 
ta 
oe 
WW” 
Wwe 
coe) 
ae 
tH 
4 


b> 
re 
w 
” 
e 

joo) 
ts 
P< 


b=] a 

ty t? 

nn un 
WOMUIRIMN 
WaOe 


ofr 


279 280 
313 314 348 


RESS. HEX LOCATION(00000228) IN 
RESS, HEX LOCATION (0000024C) IN 
OLUTE. HEX VALUE (0000000A) 
OLUTE. HEX VALUE (00000007) 
OLUTE, HEX VALUE (00000003) 
RESS. HEX LOCATION (0000005E) IN 
SS. HEX LOCATION(QO00074A) IN 


Wn, 0o 


ee) 
a 


CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78 E0 


CSECT (E78 E0 


CSECT(E78E0 


CSECT (E78E0 
CSECT (E78E0 
454° 464 
CSECT (E78E0 


CSECT (E78 £0 
CSECT (E78E0 


CSECT (E78 E0 
458 459 
CSECT (E78E0 
C SECT (E78E0 
CSECT(E78E0 
CSECT (E78E0 
CSECT (E78 E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78 E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78 E0 
CSECT (E78 E0 
CSECT (E78E0 
CSECT(E78E0 
CSECT (E78E0 
CSECT (E78 E0 
CSECT (E78E0 
CSECT (E78E0 
341  § 342 
CSECT (E78 E0 
$73 386 
CSECT (E78E0 
CSECT (E78E0 


CSECT (E78E0 
CSECT(E78E0 


EC=754882 


COPYRIGHT IBM CORP 1976 


LENGTH (43) 
LENGTH (3) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


) LENGTH (2) 


) LENGTH (2) 


) LENGTH (1) 


LENGTH (2 
abo tensra2 


) LENGTH (2) 
) LENGTH(1) 
) LENGTH (2) 


3 bENGTH (2) 


LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 


- 


—=—_ oe —_ — 
~~ —- Oc” mo”~ ~~ ~~ wr wT wr ~~ —— —_ ww — oe eer eee 


Ud 
oe) 


ghENGTH (2) 
1 


GIL 


LENGTH (4) 
LENGTH (6) 


) LENGTH(2) 
) LENGTH (2) 
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E78EO --- SYSTEM TEST EXERCISOR FOR THE DISK 
CROSS~REFERENCE LISTING 


DECLARED NAME 
5 28 WRADD 
521 WRDCB 

67 WRIT 
4 86 WTBUF 
487 WIBU1 

89 XE 

87 XI 
772 XIO 
927 XIOCK 
933 XIOCM 
776 XTOCS 
945 XLOCU 
942 XIOCV 
946 XIOCX 
8 36 XIOER 
948 XIOGI 
782 xXIo1 
794 XI02 
801 XIO05 
802 XIO6 
804 XIO8 
477 XXX 
478 ZERO 


ATTRIBUTES AND REFERENCES 


ADDRESS. HEX LOCATION (000006B6) 
04 406 408 
HEX LOCATION (000006A8) 
HEX VALUE (0000000C) 
HEX LOCATION (00000596) 
487 528 
HEX LOCATION (00000598) 
HEX VALUE (00000024) 
HEX VALUE (00000022) 
. HEX LOCATION (000007£E2 
09. 716 
HEX LOCATION (000008BE) 
. HEX LOCATION(000008CA) 
HEX LOCATION (000007EC) 
HEX LOCATION (000008EA) 
HEX LOCATION (000008E2) 
RESS. HEX LOCATION (000008EE) 
RESS, HEX LOCATION (00000858) 


Pe 
o 
oO 
8) 
ty 
WN 
n 

8 


oO 

cml 

CS 
NONON UANANNOHOHA NENWHS 
~) J 2 


* Wwe 
bo 


a> BO 0 WD DBD 
See tm 
Nn aan n 


am 
tf oy 
Yn 


Os 
[Sa 


ROD RO CO Om A) ie OD ODOR OP OD OPT R> IP OPrPrOrereruare 
OCHOWKD aAVTOUOIHIONOWUORNYOSOWONUO SuWNDDOUVOmMWUMOUCUOWO 
Oe eae eee ee eee Pee eS eC Se Peele une 


RESS. HEX LOCATION (000008 F6) 
RESS. HEX LOCATION (00000800) 
RESS. HEX LOCATION (00000828) 
RESS. HEX LOCATION (00000838) 
RESS. HEX LOCATION (00000840) 
RESS. HEX LOCATION (00000844) 
PES ea nae aa tee) 
RESS. HEX LOCATION (00000488) 
319 337 388 661 


PN= 1635253 


IN 
IN 


IN 
IN 


IN 
23 


CSECT (E78E0 
CSECT (E78E0 


CSECT (E78E0 
CSECT (E78E0 


CSECT (E78E0 


N CSECT(E78E0 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


ROC OOO im aC oom ioiogckcioeidomoikcaokick LAST PAGE 


CS ECT (E78 E0 
CSECT (E78 E0 
CSECT (E78E0 
CSECT (E78E0 
CS ECT (E78 E0 
CSECT (E78 E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78 E0 
CSECT (E78 E0 
CSECT(E78E0 
CSECT (E78E0 
CSECT (E78E0 
CSECT (E78E0 


HE CC KC A ae He 2c a 2 3c 2c ae ae aie 2c a 2 2k 2c a a a afc 2c 2 aie a ok fe akc ac kc ek ote ake afc 2k ak kc ote 2 2k ok ak 2 


EC=754882 


wet ee eee eee 


COPYRIGHT IBM CORP 1976 


LENGTH (2) 
LENGTH (2) 


LENGTH (1) 
LENGTH (1) 


LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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~ 


EA3EO --- SYSTEM TEST EXERCISOR FOR THE OEMIA PN=4414105 EC=755104 PAGE 01 EA3EO --- SYSTEM TEST EXERCISOR FOR THE OEMIA PN=4414105 EC=755104 PAGE O1A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 =O ROO OR i oO iO i lok kik ik kta doioioi koi iia totais ait ak ok ak ak aki ae 00003C 0000 120 CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 
a * * Q0003E 0000 121 CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 
5 * eo PREREQUISITES ak 2K *x 000040 Q000 122 CSTL8 DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 
6 * * 000042 00000000 123 PCTR DC 2A (*-* PASS COUNTER 
7 * NONE * 000046 00000000 124 ECTR DC 2A (*-* ERROR COUNTER 
8 * * OOO0OO04A 0005 125 ERNUM DC X'0005 NUM OF ERRORS ALLOWED BEFORE TERM 
CMTE SSCSCLOCCS CCS SOSCSOCC COSC C SSS SC SSCS SSCL CSCS SSCL SSP PTS SSCS SL CS SSCS SS SL ee S| O0004C ODAZ3 126 $DVAD DC X*OOA3! DEVICE ADDRESS BEING TESTED 
10 * * OOOO4E 0000000000000000 127 DC XL8'OO! 
11 * kK MODIFICATIONS KK * 000056 0011 128 $INTL DC X'00118* INTERRUPT LEVEL REQUESTED 
12 * x 000058 0000 129 $DVID DC x*0000! DEVICE IDENTIFICATION 
Fee SO ee  $803Rk 8093 139 88035 BE HG3ho. eae 
14 * OF CARD ENDING IN EIGHT * 
15 * * QOOO05E 0001 132 HO001 DC X*QO00OTt HEX WORD CONSTANT 
MLE TS SSSCS SS CSCS CSCS CCC SC SCSC CSCS SCS SCS CSS CCS STC SCLC SSCS SSS CSCS SCS SSS SS LSS Ts 000060 2300 133 TYPE23 DC K'*2300! CONSTANT TO CHFCK PROCESSOR AGAINST 
17 * x 135 OK RO tok OR i lO i OK IG kak kk cok kk 
18 * ae OK REA'tS INCORPORATED KK * 136 * PROGRAM CONTROL FUNCTIONS * 
19 x * 13.7 ORR; Oo oo ok CII oR I IOI I ik tok do ki ak ak gc fc ok 
20 * NONE *x 000062 4020 0470 O3F6 138 SPENT MVA XLOER,IOERR INIT ERROR RETURN ADDRESS 
21 * * 000068 4020 0056 0011 139 MVWI X'0011', SINTL INIT THE INTERRUPT LEVEL 
22 OCG IOI ICI IO IG IO II IO I iol i i i a oii ak ak kook kak ak O0006ER 8028 OO4C 033B 140 MVB $DVAD, ARMDA MOVE DEV ADDRESS TO ALL LOCATIONS 
a . SO0O7A 8038 OOUE 0343 143 MVE $DVADS NIDA a as a Ses ESE 2 AT 
24 * tal SPECIAL INSTRUCTIONS 2 * PUIDR ° 3 Sine arer se so eee a see ee 
25 * x 000080 8028 OO04C 0347 143 MVB $DVAD,WIDA KO mmm me me men mn mn nnn nn rn rr ene 
26 * NONE * 000086 8028 OO4C 034B 144 MHVB SDVAD, RFDA KO em nm nr re rn nr nr rn nn 
27 * aK 00008C 8028 O04C O34F 145 MVB $DVAD, ARDA2 HO eee ne nr ne en 
28 4 OR IO OR ao OR OR iO i ok ai kk ki Rk i ak ek kook ae ake ak 000092 8028 O04C 0353 146 MVB S$DVAD,M2DA KO ewe mete me tee mm ere ee ere teen 
29 x * 000098 8028 O04C 0357 147 MVB SDVAD, RSDA KO mm mm nr nn en nn ne rene 
30 * #2 E. C. HISTORY OK * OOO0O09E 8028 O04C 035B 148 MVB SDVAD,WODA eRe Se asa S oH HSS eH Hasse s= 
ie : OOOORA OBFF 150 NVBI 35 RS US LOAD MASK FIELD INTO. R3. 
32 * DATE O6MAY77 DATE 15SEP77 DATE OODECT7 DATE * 
33 * E.C. 578756 F.C. 756882 F.C. 755104 E.C. * OOOO0OAC 4524 0022 151 MVA DcBUF, RS LOAD ADDRESS OF TO FIELD 
34 * x 0000B0 OF20 152 MVBI 32, LOAD LENGTH TO MOVE 
QS aR eo 2 A a 2 fe a fe 2 2 2 2 2h a 2 ei aK 2k i 2 a ic 2k 2 fc fe 2k a 2c i ake ofc 2k ake ke 2k 2c fe a 2 i ic 2c 2c ck 2K of 2k ae ca ke QOO0OO00B2 2BAC 153 FFN R3 Aho) INIT DCBUFFER AREA 
000000 37 EA3EO START X*0000!8 OOO00B4 CF25 002C 154 MVWZ DCB ZERO CHAIN ADDRESS 
38 * SUPERVISOR EQUATES Q0000B8 CE25 OOOA 155 SPEN1 MVWZ SRTNE,R6 CLEAR OLD ROUTINE NUMBER 
000014 39 CICB EQU 20 CONNECT INTERRUPT CONTROL BLOCK OOOOBC A82A O05C 0042 156 AD HO000, PCTR ADVANCE PASS COUNTER BY 1 
000006 40 EXIT OU 6 EXIT INTERRUPT LEVEL OO00C2 4424 ODODE 157 S$PUPD MVA OPTN1,R4 R4 MUST BE SET TO 'OPTNI1I! 
000001 41 OUTIN EQU 1 OUT MESSAGE WITH EXPECTED RESPONCE 0000C6 4cC03 158 $PUP2 TBT sen Tf) IS TERMINATE PGM REQUESTED 
QOOO01A 42 HTOE EQU 26 CHANGE HEX DATA TO EBCDIC DATA 0000C8 1020 159 JZ pubs * NO, CONTINUE CHECKING 
000002 43 IDLE EQU 2 SHARE PROGRAM TIME WITH OTHER PGMS 161 * 
O00000C G4 PREP EQU 12 PREPARE DEVICE 162 * TERMINATE CONTROL BIT FOUND ON 
000012 45 CTRL EQU 18 CONTROL IDCB = 6X WHERE X IS MOD. 163 * 
000013 46 RICB EQU 19 RELEASE INTERRUPT CONTROL BLOCK OOOOCA 4020 0470 ODE6 164 $TERM MVA S$RET1,1IOERR INIT ERROR RETURN ADDRESS 
OOOOOA 47 START EQU 10 START CYCLE STEAL COMMAND 0000D0 680C O34E 165 IO ARMO02 RELEASE FROM DIAG MODE 
000007 48 TERM EQU 7 TERMINATE THIS PROGRAM O0O00D4 4724 OQ46E 166 MVA IOBLK,R7 LOAD ADDRESS OF CONTROL BLOCK 
000008 49 RESET EOQU 8 RESET DEVICE 0000D8 4020 O474 0002 167 MVWI X*0002', TOMOD 
000009 50 RID EQU 9 READ DEVICE ID OOOODE 6012 168 SVC CTRL ISSUE RESET 
000000 51 REG EQUR 0O WORK REGISTER QOOOEO 4020 O474 0000 169 MVWI x*0000',IOMOD 
OO181E 52 PRNTRTN EQU X"181E* COMMON PRINT ROUTINE ADDRESS LOCATION OOO0OO0OE6 4020 0470 OOFE 170 $RET1 MVA $TER1,10ERR INIT ERROR RETURN ADDRESS 
000232 53 CPUTYPE EQU X*0232! ADDRESS OF PROCESSOR TYPE OOOOEC 8828 0056 0472 171 MVW SINTL, LODCB LOAD INTERRUPT LEVEL 
as sbo9ke adap 849 0001 173. Etwr $0604" rope LGaN EEE TY QEqCONTFOR BLOCK 
55 * PROGRAM HEADING AND CONTROL WORDS Py 
900000 2S § SOOOFE C720 00UC 178 $TER1 AVS SBVAD,RT LOAD DEV ADDRESS 
0000 C1IF3FOFO 57 $PID DC cfa3008 PROGRAM IDENTIFICATION 
000004 0000 58 DC XL2'0000! CURRENT LEVEL OF PROGRAM 000102 T7FE4 FFOO 176 RBTWI X*PFO6',R7 ZERO HIGH ORDER BYTE 
000006 0062 59 DC A($PENT -> TO START EXEC ADDRESS 000106 6013 177 SVC RICB ISSUE SVC 
000008 dQO04C 60 DC A($DVAD -> TO DEVICE TABLE 000108 6007 178 SVC TERM ISSUE SVC 
OO000A 0000 61 TNE DC A (*-* ROUTINE NUMBER BEING RUN 00010A A828 OOSE OOOA 180 $PUPS AW HO0O01,$RTNE ADVANCE ROUTINE NUMBER 
00000C 0000 62 $CKPT DC A +} LAST CHECK POINT PASSED 000110 882B OO5A OOOA 181 CW SMXSL, SRTINE CHECK FOR LAST AUTOMATIC ROUTINE 
OOO000E 0000 et OPTN1 DC X*O0000! PROGRAM OPTION CONTROL WORD 1 000116 6800 0062 Wee ‘ BE $PENT * BCH AND START WITH RTN 1 
68 * BIT FONCTION tee : GET RTN NUMBER AND BCH TO THAT RTN 
000003 68 TM EQU 3 TERMINATE PROGRAM OOO11A 6E08 OOOA 186 $PSEL MVW $RINE, R6 MOVE RTN NUMBER IN REG 
Q0000C 69 WRIT EQU 12 ON = EITHER WRAPPED OR TTY Q0011E CD25 OO00C 187 MVWZ $CKPT,RS ZERO CHECKPOINT 
00000D 70 QUES EQU 13 UESTION HAS BEEN ASKED 000122 CD25 OO1A 188 MVWZ SDATA,RS ZERO DEV DEPENDENT DATA DEV1 
OOO00OE 71 =#+IND EQU 14 NDICATOR FOR TTY WRAP CABLE 000126 CD25 O01C 189 MVWZ $DATA+#+2,R5 DEV2 
OOO000F 72 DIR EQU 15 SEEK DIRECTION INDICATOR 00012A CD25 OO1E 190 MVWZ DEV3,R5 DEV3 
73 * 00012E CD25 0020 191 MVWZ DEV3#2,R5 DEVY 
000010 0000 74 OPTN2 DC X'*0000°* PROGRAM OPTION CONTROL WORD 2 000132 3609 192 SLL 1 DOUBLE R6 FOR BRANCH TABLE 
000012 0000 42 OPTN3 DC xX*'*0000° PROGRAM OPTION CONTROL WORD 3 000134 68D2 0138 sou ‘ B (R6, $RTAD) * BCH VIA RTN TABLE 
77* O MYSTERY INTERRUPT MI 8 CS STATUS INTERRUPT ERR CE 195 * TABLE OF ROUTINE ADDRESSES 
78 * 1 ERROR INTERRUPT ER 9 GOOD INTERRUPT RECEIVED GI 196 * 
79 * 2 EXPECTED INTERRUPT XI 10 PROBABLE ERROR EXPECTED PE 000138 0062 197 $RTAD DC A($PENT) NO RTN SELECTED 
80 * 3 INTERRUPT RECEIVED IN 11 NO INTERRUPT EXPECTED NI 00013A 0142 198 DC A(RTO1 ROUTINE ADDRESS 
81 * 00013C 0186 199 DC A (RTO2 ve ed 
82 * 4 EXPECTED ERR/ATTENT XE 12 N.U. 00013E O1FE 200 DC A(RTO3 we ee 
83 * 5 WRONG INTR LEVEL LE 13 N.U. 000140 0242 201 DC A ts ee 
84 * 6 LOAS INTERRUPT LI 14 NLU. 203 3k OIRO IO I IOI I II ROR IOI IOI aR ak kako kaioio ak ak ak aici stark gc aie 
85 * 7 CS STATUS IN PROGR cs 15 N.U. 204 CHANNEL INTERFACE TEST * 
86 * BIT HEX 205 * * 
000020 87 MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 206 * TO VERIFY THE CHANNEL INTERFACE CAN INTERRUPT ON ALL LEVELS * 
000021 88 ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 207 * THE PROG WILL PREPARE THE I/O DEVICE TO INTERRUPT ON LEVEL ZERO * 
000022 89 XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 208 * AND CAUSE AN INTERRUPT. WHEN THE INTERRUPT OCCURS, THE LEVEL IS * 
000023 90 IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 209 * COMPARED TO THE EXPECTED LEVEL. THIS IS DONE ON ALL LEVELS * 
000024 91 XE EQU 36 4 8 EXPECTED ERROR RESPONSE 210 * EXCEPT LEVEL THREE. * 
000025 92 LE EQU 37 5 4 INTERRUPT ON WRONG LEVEL ERROR 217 RK kok oko ok ok ek kk koko mokok kkokokokok kk kkk tok rok ok OK io kok rai ak lok kk fo agai tok ak ak kk teak ac ok 
000026 93 LI EQU 38 6 2 LOST INTERRUPT 000142 6E03 0482 212 RTO1 BAL SCONR, R6 CLEAR AND CONNECT I/0 BLK 
000027 94 EQU 39 7 1 CYCLE STATUS IN PROGRESS 000146 6A08 0056 213 MVW SINTL, R2 SAVE SELECTED INTER&UPT 
000028 95 CE EQU 4Q 8 8 CYCLE STEAL STATUS INERRRUPT ERROR OOO1T4A 4020 0056 FFF1 214 MVWI X' FFF]! SINTL SET UP INTERRUPT LEVEL FOR PREP 
000029 96 GI EQU 41 9 4 GOOD INTERRUPT RECEIVED (EXPECTED ER) 000150 4724 QU6E 215 ITST4 MVA IOBLK,R LOAD CONTROL BLOCK ADDRESS 
OO002A 97 PE EQU 42 10 2 PROBABLE ERROR EXPECTED 000154 4020 0474 0002 216 MVWI X¥*0002', ToMOD 
00002B 98 EQU 43 11 1 NO INTR. EXPECTED UNPREPED DEV. QOO1SA 6012 217 svc CTRL ISSUE RESET 
000014 0000 100 $IOIN DC A (*-* I/O AND INTR CONDITION CODES 00015C 4020 0474 0000 218 MVWI X'*0000!' ,TOMOD 
000016 0000 101 $ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 000162 4029 0056 0010 219 AWI X°10', $inth ADV INTR LEVEL, STARTING AT OQ 
000018 0000 102 LSTIO DC A (*- * ADRs OF LAST I/0 + 4 BYTES 000168 6E03 O48C 220 BAL $CONC, R6 GO PREPARE ON NEW LEVEL 
O0001A 00000000 103 $DATA DC 2A (*-*) DEVICE DEPENDENT DATA 00016C 6E03 0362 221 BAL XIOA1,R6 ARM PI 
Q00001E 0000 104 DEV3 DC A (*-* DEVICE DEPENDENT DATA DEV3 000170 4029 000C 0001 222 AWI 1, $CK T BUMP CHECKPOINT 
000020 0000 105 DEVY DC A (*-* DEVICE DEPENDENT DATA DEVG 000176 402F 0056 0021 223 CHI X'21°,$INTL HAS INTR LEVEL COME DOWN TO 2 
000022 0000 106 DCBUF DC A (*-* LAST DCB TABLE, CONTROL WORD 00017C 18E9 ; 224 JNE ITST4 * NO, BCH AND CONTINUE TEST 
000024 0000 107 DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD QO0O017E 6A0D 0056 225 MVW R2,fINTL RESTORE SELECTED INTR LEVEL 
000026 0000 108 DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000182 6802 00C2 226 B $Piipp BRANCH TO CONTINUE 
000028 0000 109 DCB4Y pC A (*-* LAST DCB TABLE, DEV DEP WORD 228 ORR IO IGOR RIO RO IIR IIR IOI Ra i RRR IRR I FIR KOR ak 
00002A 0000 110 DCB5 Dc A (*-* LAST DCB TABLE, DEV DEP WORD 229 * * 
00002C 0000 111 DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 230 * PURPOSE: TO INSURE THE OEMIA ATTACHMENT WILL WRAP ALL DATA * 
QOO002E 0000 112 DCB7 Dc A (*-* LAST DCB TABLE, BYTE COUNT 231 * PATTERNES FROM X®FFFF* THRU X'O000'. bg 
000030 0000 113 DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 232 * * 
000032 114 CSBUF EQU * CYCLE STEAL DATA BUFFER 233 Ko koko tokio dof koi ii I gob kk fk ior tO iO ag RR ROR i Rig gga ok ak ai 
000032 0000 115 CSTL1 D A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 000186 6E03 O48C 234 RTO2 BAL S$CONC, R6 PREPARE DEVICE ON CORRECT LEVEL 
0000 34 0000 116 CSTL2 DC A (*-* CYCLE STEAL WD 2, fPEVICF DEPEND Q0018A 4029 000C 0001 235 AWI 1 $CK PT BUMP CHECKPOINT 
000036 0000 117 CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 000190 4724 O4UGE 236 MVA LOBLK R7 LOAD ADDRESS OF CONTROL BLOCK 
000038 0000 118 CSTL4 Dc A (*- * CYCLE STEAL WD 4, DEVICE DEPEND 000194 4020 O&474 0002 237 MVWI X'0002',10mM0D 
00003A 0000 119 CSTL5 DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND Q00019A 6012 238 SVC CTRL ISSUE RESET 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00019C 4020 0474 0000 239 MVR 10000", TOMOD 000322 603 037A 355 BAL  XIORF,R6 
O00O01A2 4&C6B 240 TBTS 1) 6 SET NO INTERRUPT PENDING BIT 000326 712A 356 SW R1 Rive ee ce 
OOO01A4 6E03 O36E 241 BAL eats SET DIAG MODE ONE 000328 C924 0024 357 CW pch2 R1 COMPARE TO RECEIVED 
0001A8 4C6B 242 TBTS RG, wt SET NO INTERRUPT PENDING BIT 00032C 1004 358 JE RTOU6 BRANCH IF EQUAL 
OOO1AA 4029 000c 0001 243 AWL $CKP BUMP CHECK NT 00032E 690D 0020 359 MVW R1,DEV4 MOVE EXPECTED DATA INTO DEV3 
0001B0 6£03 0368 244 BAL X LORE, RE BRANCH TO READ DIAG REGISTER 000332 6802 O4CO 360 B PRNT BRANCH TO PRINT ERROR 
0001B4 6908 0050 345 HVW SDVAD+t4,R1 LOAD CONFIG DATA 000336 6802 00C2 361 RTOU6 B PUPD BRANCH TO CONTINUE 
0001B8 7923 8000 246 OWI X'8000!,R1 TURN ON HIGH ORDER BIT 363 * 
gates Gog Om" i rn ety Seknen re egukE 365 pare ee we a 
0001C2 690D 0020 249 MVW R1,DEV4 MOVE EXPECTED DATA INTO 00033A 366 AR * 
gogteg Gaag tect 384 nrozs by SAT — gig §3 MER 8) —— 
X 
0001CC 4029 000C 0001 252 AWL 1, SCKPT BUMP CHECKPOINT 00033cC 0000 369 DC X*00008 
0001D2 7921 0001 253 RTO22 AWI xX'0001'_R1 BUMP R1 370 * 
0001D6 690D 0348 254 NVW R1,WRDO4 LOAD INTO WRITE FIELD 371 * DIAG READ MOD. = E CONTROL BLOCK 
OOO1DA 4C6B 255 TBTS (Rd NI) SET NO INTERRUPT PENDING BIT 372 * 
0001DC 6E03 0374 256 BAL T081,R6 BRANCH TO WRITE DATA 00033E 373 REDCB EQU * USE FOR DCB REFERENCE ONLY 
0001EO 4C6B 257 TBTS (Bu nt) SET NO INTERRUPT PENDING BIT 00033E 2E 374 RECTL DC X*2E* CONTROL WORD 
0001E2 6£E03 O37A 258 BAL IORF, R6 BRANCH TO READ REGISTER 00033F 00 375 REDA DC X*QO! 
0001E6 C924 0024 259 CW DCB2, R1 CHECK RECEIVED DATA 000340 0000 376 DC X*0000! 
OOO1EA 1004 260 JE RT023 BRANCH IF EQUAL 377 * 
0001EC 690D 0020 261 MVW R1,DEV4 LOAD EXPECTED DATA 378 * SET MODE ONE CONTROL BLOCK 
gogtey $802 ONcD 382 aroza fn SRR SEREGS EO BEET BEROR 900342 380 Mince zou 
G ONE 
0001F6 6801 01D2 264 BNZ RT622 BRANCH IF NOT ZERO 000342 61 381 MICTL De X61! CONTROL aORp eee 
OOO1FA 6802 00C2 265 $PUPD BRANCH TO CONTINUE 000343 00 382 MIDA DC X00! 
PIWMESE TTT S CSS L CSC SCSS CLS SCT CCT CSC CCC CS SC CS SSeS TTS Te TT TT TTT TT CT TT TTT TT TT Tt 000344 0001 383 DC Xx*O0018 
288 POSES TRLED STATUS APEER AM BEAG HOSE, SHE-COREANDS nat 385 ¢ 
AOOAeEY “BBOs: GlRE 270 Sree aan HoORGE 386 * Rie een Paces 
AL conc PREPARE DEVICE ON CORRECT L L 34 387 W1DC * 
000202 4029 000C 0001 272 AWL ScKbe BUMP CHECKPOINT ides 000346 48 388 WICTE be. X'ggt CONTROL sore a 
000208 4724 O46E 273 HVA rhern R7 LOAD ADDRESS OF CONTROL BLOCK 000347 00 389 W1IDA_ Dc x'00! 
000319 ents Cnet 2002 340 RVRI X10002*,LOHOD SSUE RES Sree eee oe Oe 
I RESET * 
000214 4020 0&74 0000 276 MVWI X* 0000", LOMOD 392 * DIAG READ MOD. = F CONTROL BLOCK 
00021A 4C6B 277 TBTS Ra oN SET NO INTERRUPT PENDING BIT 393 * 
00021C 6803 0380 278 BAL Toho. 6 SET DIAG MODE ONE OOO34A 394 RFDCB EQu % USE FOR DCB REFERENCE ONLY 
000220 4C6B 279 TBTS RY Nt) SET NO INTERRUPT PENDING BIT QO0034A 2F 395 RFCTL D X'2Ft CONTROL WORD 
000222 4029 000C 0001 280 AWI $CKP BUMP CHECKPOINT 00034B 00 396 RFDA DC X'0O0!' 
000228 6E03 0368 281 BAL XtfORE, R6 BRANCH TO READ DIAG REGISTER 06034C 0000 397 DC x*00008 
00022C 882B 0024 0050 282 CW DCB2,$DVADt4 COMPARE TO RECEIVED 398 * 
000232 1005 283 JE RTO 3 BRANCH IF EQUAL 399 * RESET DIAG MODE CONTROL BLOCK 
000234 8828 0050 0020 284 MVW SDVAD+4, DEVY MOVE EXPECTED DATA INTO DEV3 4OO * 
00023A 6802 O4&CO 285 B SPR BRANCH TO PRINT ERROR OOO034E 401 ARMO2 EQU * USE FOR DCB REFERENCE ONLY 
00023E 6802 00cC2 286 RT031 B SPR DD BRANCH TO CONTINUE O0O034E 62 402 ARCT2 DC X"62° CONTROL WORD 
2B BHA Ae He oe ee ae ke ae oe ie He ee he ke tC Re a a i fe 2c fe ae i oe ade af a aa ake ae ae ak oe ae kak a fe ae ae ae ae ak fe ae ak ae ae ae ae a a ae fe a kc ae ae OOO034F 00 403 ARDA2 DC x'OO! 
289 : DIAG MODE 2 AND 3 STATUS CHECK : 000350 0000 nits ” DC x*0000' 
291 * THE ATTACHMENT WILL BE ISSUED A DIAG MODE TWO THEN A DIAG MODE * “O06 * SET MODE TWO CONTROL BLOCK 
me PER Pe Sey La mE pede oa EL pie eel fa PEEL EE Le Le em ennenes 000352 406 M2DCB EQU * 
000242 6803 O48C 294 RTOY BAL $CONC, R6 PREPARE DEVICE ON CORRECT LEVEL 000352 61 409 M2CTL Be x'61t CONTROL oo oe pee 
000246 4724 O46E 295 MVA IOBLK, R7 LOAD CONTROL BLOCK ADDRESS 000353 00 410 M2DA DC x'0oOo! 
OOO24A 4020 0474 0002 296 MVWI X*'0002',ITOMOD 000354 0002 411 DC x'0002' 
000250 6012 297 SVC CTRL ISSUE RESET 413 * 
000252 4020 O474 0000 298 MVWI xX'0Q000',IOMOD 414 * RESET CONTROL BLOCK 
$0038 been OOS 000% 300 es ThacRey URN OW WO FRSNERUP 000356 44@ RSDC 
TER T FLAG RSDCB EQU * 
000260 6803 0386 301 BAL $roh> 6 BRANCH TO ISSUE I 000356 6F 417 RSCTL De X*6Ft CONTROL fopp poe 
000264 4C6B 302 TBTS (Rs Nt) TURN ON NO INTERRUPT FLAG 000357 00 418 RSDA DC X00! 
000266 6E03 0368 303 BAL TORE, R6 BRANCH TO ISSUE 000358 FFFF 419 DC X'FFFF® 
00026A 6908 0050 304 MVW $DVAD+4,R1 LOAD CONFIG DATA 420 * 
00026E 7923 8000 305 OWL X'8000!,R1 TURN ON HIGH ORDER BIT 421 * WRITE 0 CONTROL BLOCK 
Booa7e ou oes 395 cE ORTOGa BRANCH IF EOUAR. 00035— 454 WODCR EQU * 
B CH IF EQUAL B E FO 
000278 690D 0020 308 MVW R1, DEV4 MOVE EXPECTED DATA INTO DEV3 00035A 50 424 WOCTL DC X'50! CONTROL qonb. ee 
00027C 6802 O04CO0 309 B SPRNT BRANCH TO PRINT ERROR 00035B 00 425 WODA DC x'OO8 
000280 4Cé6B 310 RTO41 TBTS fru NI TURN ON NO INTERRUPT FLAG 00035C 0000 426 DC xX*0000! 
000282 4029 000cC 0001 311 AWI $CKP BUMP CHECKPOINT G27 * 
000288 6803 038C 312 BAL Xf£ORS, R6 BRANCH TO ISSUE IO 428 * SET MODE THREE CONTROL BLOCK 
00028C 4C6B 313 TBTS (Ra Nf) TURN ON NO INTERRUPT FLAG 429 * 
00028E 6803 O37A 314 BAL IORF, R6 BRANCH TO ISSUE IO 00035E 430 M3DCB EQU * USE FOR DCB REFERENCE ONLY 
000292 4124 O6F0 315 MVWr X'O6FO6', RI PUT IN THE MASK O0035E 61 431 M3CTL DC X'61! CONTROL WORD 
000296 c924 0024 316 CW DCB2, R1 COMPARE TO pRECEIVED 00035F 00 432 M3DA DC X'00* 
00029A 1004 317 JE RTOU2 BRANCH IF UAL 000360 0003 433 DC Xx'0003! 
00029C 690D 0020 318 MVW R1,DEV4 MOVE uxpEcT D DATA INTO DEV3 UBS MH He He OK ee He He oe 3 2 he a 2 2K 2 a 2 2 a fe ok af fe 2 2 a af ake oak a ok ake ake 2 af ae atc ake ake a fe ae aie ake ae ac aa ac afc ake ak ada eae ae age a oe ae ate ae 
0002A0 6802 O4CO 319 B $PRNT BRANCH TO PRINT ERROR 436 * ISSUE ALL I/O COMMANDS FROM A COMMON SUBROUTINE * 
Bae ae ress Nanernae a2) RTO42 Tere eecuey, TURE Caren yess FLAG net . FO OLSEMAL NSTRUCTIONS AND OPERATING PROCEDURES TO THE OPERATOR* 
o003ke 6203 900C 333 BRL 118i, Fo BEC ECKPOINT | 39 : AND SET UP ANY REQUIREMENTS FOR OTHER I/O COMMANDS : 
TORN ON NO INTERRUPT FLAG 0 * --> B 
0002B2 6E03 037A 324 BAL seeks h6 BRANCH TO ISSUE tO ‘i oe * te BAL XTORE! Re XEO READ Bab. OE * 
0002B6 4124 0500 325 MVWI «x'0506',R1 PUT IN THE CORRECT MASK 442 * --> BAL XIOM1, R6 XEQ SET MODE ONE * 
OOO2BA C924 0024 326 CW DCB2,R1 COMPARE TO RECEIVED 443 * --> BAL XIOW1, R6 EO WRITE ONE * 
0002BE 1004 327 JE RTOYUS BRANCH IF EQUAL 444 * --> BAL XIORF, R6 XEQ READ MOD. F * 
0002CO 690D 0020 328 MVW R1, DEV4 MOVE EXPECTED DATA INTO DEV3 445 * --> BAL XIOA2,R6 XEQ RESET DIAG MODE * 
0002C4 6802 O4CO 329 B $PRNT BRANCH TO PRINT ERRO 446 * --> BAL XIOM2,R6 XEQ SET MODE TWO * 
0002C8 4&C6B 330 RTO43 TBTS {RY CNT TURN ON NO INTERRUPT. FLAG 447] * --> BAL XIORS, R6 XEQ RESET * 
OOO2CA 4029 000C 0001 331 AWL $CKP BUMP CHECK POINT “ug * --> BAL XIOWO,R6 XEQ WRITE ZERO * 
0002D0 6803 0398 332 BAL X LOM3, R6 BRANCH TO ISSUE I 449 * --> BAL XIOM3, R6 XEQ SET MODE THREE * 
0002D4 4C6B 333 TBTS (Ra nf) TURN ON NO INTERRUPT FLAG 450 * % 
0002 D6 6E03 0368 334 BAL IOkE, 6 BRANCH TO ISSUE I VPM LE tLe StS STL SST SETS STS SPS SL TS STS SS ST SCT eT SS SSCS S SC CCS SCCSCSCSCOSCSSLC PS ST TT ee 
OOO2DA 6908 0050 335 MVW $DVAD+4,R1 LOAD CONFIG DAT 000362 4524 033A 452 XIOA1 MVA ARMO1,R5 SET UP CONTROL BLOCK FOR SVC CALL 
0O0O0O2DE 7923 8000 336 OWL X"8000',R1 TURN ON HIGH ORDER BIT 000366 501B 453 J XIO ” BRANCH 
ae Seen 0024 aan a pen? Ha SOtEeH TE Renae eps catg 033E ize XIORE MVA REDCB, RS SET UP CONTROL BLOCK FOR SVC CALL 
J XIO 
O002E8 690D 0020 339 MVW R1,DEV4 MOVE EXPECTED DATA INTO DEV3 OOO36E 4524 0342 456 XIOM1 MVA M1DCB,RS ENGR CONTROL BLOCK FOR SVC CALL 
0002EC 6802 O4CO0 340 B $PRNT BRANCH TO PRINT ERROR 000372 5015 457 J XIO BRANCH 
O002FO 4&Cé6B 341 RTO TBTS fay NI TURN ON NO INTERRUPT FLAG 000374 4524 0346 458 XIOW1 MVA W1IDCB,R5 SET UP CONTROL BLOCK FOR SVC CALL 
9026s feos B98E °°°1 tg RAE re SEEPE BUNCH FOTESEOE 0 O337% 2834 o3ua 80 xronr Hva BPD aM 
XIORF 
goss HES sr, a TES imei, Gulbcd eS cenperaer™ F246 BEH05 289 aus tS) ronan Hla. as BENGE covnsot sLock YOR svc catt 
000302 4124 O6F0 346 MVWI X'06F6',R1 PUT IN CORRECT eMASK 000384 500C 463 oF ca a oa BRANCH penne age teow eet nee 
Boose. RoE 0024 ana nd SCRUcL eee aN aan8 0352 lee XIOM2 oN M2DCB,R5 SET UP CONTROL BLOCK FOR SVC CALL 
I BRANCH 
00030C 690D 0020 349 MVW R1,DEV4 OVE E CT 00038C 4524 035 s 
300315 6802 0020 350 oes Be SPknT BRANCH 6 TED DATA INTO DEV3 900395 $006 baa et XIORS NVA RSDCB, 75 SET UP CONTROL BLOCK FOR SVC CALL 
O INTERRUPT FLAG OW 
000316 4099 990¢ ree 352 aT {psceeh BURP ON NO ENTE UPT A 000336 5003 sii 469 XI NVA WODCB, oR5 SET UP CONTROL BLOCK FOR SVC CALL 
RANCH TO ISSUE IO XIOM D 
000320 4Cé6B 354 TBTS (R4,NE) TURN ON NO INTERRUPT FLAG 00039C 5000 471 oe ion a BRANCH Panne ec enertorare? Teen ere Oonne 
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ELT 2 a te 2 ae af eh a i he he ae 3k 2k he 2 a 2 a a 2 a a a 2h a ae ai 2c ae 2 2 ie ae 2 ake a i a i a 2 i a i a i ic a ie ie a aK ie aK eo aK 000406 “uu OOOE 590 MVA OPTN1,R4Y SET UP BASE ADRS 
474 * * OOO4OA 4C61 591 TBTS RY ER) SET ERROR ON I/O COMMAND CNTL PIT 
475 * SOUBROUTINE * 00040C 5007 592 J NTR1 BRANCH 
u“y6 * * 59ou PP SSS SSeS SSL ESL SES SESS SSL ESS SCL SL SSS SSS SSS SS SSL SE SSS SESS SL SLES ESS 2 2 2 2 2 22 SS 
477 * EXECUTE INPUT AND OUTPUT COMMANDS * 595 * * 
4u78 * * 596 * SOUBROUTINE * 
479 * PURPOSE * 597 * * 
ugd * * 598 * OKAY INTERRUPT RUNS ON INTERRUPT LEVEL ‘$INTL* * 
481 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. * 599 * * 
482 : THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: : BOO : PURPOSE : 
4By * 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 602 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST * 
E85 * THE I/0 COMMAND. * 603 * * 
486 * 2. SAVES THE DCB BLOCK USED * 604 * CALLING SEQUENCE * 
4ug7 * 3. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 605 * * 
488 * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 606 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 
489 x MYSTERY INTERRUPT (MI) CONTROL BIT IS SET. * 607 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * 
490 * 4. MOVES THE ADDRESS OF THE I/0 CONTROL BLOCK IN R7, SET THE * 608 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 
491 * EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE NECESSARY IO. * 609 * COMMON SECTION IS HANDLED HERE. * 
492 * 5. AFTER ISSUING THE I/O COMMAND, TIMING * 610 * * 
493 * STARTS TO DETERMINE A LOST INTERRUPT. * 611 * RETURN CONTROL SS 
4Qyu * 6. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF * 612 * * 
495 * WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * 613 * SVC EXIT RETURN TO USER VIA SUPVR x 
“9G * 7. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. * 614 x * 
ug] * 8. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * 6 15 He RE 2 2 2 a ae he ae 2 he ie he fe af ye fe ok oe ae te 2h ake ae ok he 2 a oc akc a 2c fe fe he fe ak oe ae oe 3 2 oe ic oe he 2c kf i i oe ake ke he ke ae oe co oe ate he oe oe 
49g * 9. CHECK IF THFRE WAS AN ERROR CONDITION, IF NOT RETURN. * OOO4OE T706E 616 INTOK CPLSR R3 SAVE INDICATORS 
u99 * * 000410 336A 617 SRL 13, R3 POSITION INDICATORS IN R3 
500 * CALLING SEQUENCE * 000412 4424 OOOE 618 MVA OPTN1, R4 SET UP BASE ADRS 
501 * * 000416 4c24 619 TBT R4 Xf) IS AN ERROR EXPECTED 
502 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: * 000418 1001 620 JOFF nNTR1 BRANCH NO 
503 * * 00041A 4C69 621 TBTS R4,GI SET GOOD INTERRUPT BIT 
504 * -=> B XIO XEQ ANY CYCLE STEAL COMMAND, MOD=0 * 00041C 4C63 622 INTR1 TBTS R4,IN SET INTERRUPT RECEIVED 
505 x x 00041E C328 0015 623 HVB  R3,$IOIN+1 SAVE INTERRUPTING CC CODE 
506 * RETURN CONTROL * 000422 6FOD 0016 624 MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS 
507 * 000426 78B9 625 INTR2 CPCL R5 COPY INTERRUPT LEVEL TO CHECK 
508 * BXxs (R6) RETURN TO USER NO ERROR * 000428 3521 626 SLL 4,R5 POSITION INTR LEVEL AND PUT 
G09 2 i a ake ae ae ke a fe a a a ad Ske a a akc ae a af ate fe ke a ake ke ake af fe fe a af ae a fe oe af ae a a af ae ake akc a a ok fe ae ake ak oe ie a a ae ae aft ke af ake a akc a ke ae a ok QO0042A 0501 627 ABI 1,R5 * IN 'I' BIT 
00039E 4CA3 511 XIO TBTR (R4,IN) CLEAR INTERRUPT RECEIVED CNTL BIT 00042C CD24 0056 628 CW SINTL,RS IS THIS THE CORRECT INTR LEVEL 
0003A0 1250 512 JON TOCK BRANCH IF ON 000430 1004 629 JE INTR3 * YES, GO EXIT THIS LEVEL 
0003A2 6E0OD 0018 513 MVW R6, LSTIO SAVE IAR FOR RETRY IF REQUESTED 000432 3521 630 SLL 4G,R5 SET LEVEL IN HIGH ORDER BYTE 
0003A6 4O2E 001718 0004 514 SWI 4, LSTIO POINT AT CORRECT INSTRUCTION 000434 6DOD 0020 631 MVa R§, DEV3+2 STORE IN DEV4 
0OO0O3AC 4324 0000 515 NVA $PID, R3 LOAD ADDRESS OF START OF PROG 000438 4Cc65 632 TBTS R4,LE SET INTR LEVEL ERROR CONTROL BIT 
0003B0 CB2F 0018 516 SW R3,LSTIO SUB TO OBTAIN LISTING ADDRFSS Q0043A 4CA2 633 INTR3 TBTR R4,X1I WAS INTERRUPT EXPECTED 
O003B4 4324 0022 517 MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 00043C 1201 634 JON NTRX * YES, EXIT OFF THIS INTR LEVEL 
0003B8 OFO4 518 MVBI 4,R7 * THE NUMBER OF MOVES O0O043E 4C60 635 TBTS {Bh MI) * NO, SET MYSTERY INTR CONTROL BIT 
OOO0O3BA 2D64 519 MVFN (BS), (83) MOVE 1 STATUS WORD AND ADJUST 000440 6006 636 INTRX SVC XIT EXIT THIS LEVEL VIA SUPVR TO PGM 
O0003BC 802B 0232 0060 520 CB PU { E, YPE23 CHECK FOR PROCESSOR 23 638 He fe afe afc aie ae fe 2c oe ah 2 fe she i Ne ik ic a afc ak aie ic oe ke he afc af ak ae ode ake ae ate ake ake af fe oe fe ake ake ake ofc ote ake ake oe ake of fe ofc afc afe ake afc ate ake of ok ofc of ate ake of ae ote ak ake ok ok 
0003C2 1803 521 JNE XIO5 BRANCH NOT EQUAL 639 * * 
0003C4 4524 C000 522 MVWI X*CO00',RS5 LOAD LOOP COUNT 640 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT * 
0003Cc8 5001 523 J XI06 BRANCH 641 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN * 
OOO0O3CA 75AA 524 xI05 SW R5,R5 LOAD LOOP COUNT 642 * RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. * 
0003CC 4C62 525 XI06 TBTS (RG XT) SET EXPECTED INTR CONTROL BIT 643 * * 
O003Cz 680c 0022 526 Io DCBUF ISSUE I0 Cet tee ek tee SS SS SSS SS ST ESS SS SSS SS SELES SSS SSS SSS SSS LSS SS SS SSL SL eS SL See 22 2S 
0003D2 6F05 03F6 527 NCC 7,XIOER ERROR IF NOT CC=7 000442 4C20 645 XIOCK TBT see MI) DID MYS INTERRUPT OCCUR 
0003D6 6002 528 xI08 SVC IBLE ALLOW OTHER PROG TIME 000444 1208 646 JON TO€Q BRANCH YES 
0003D8 4c03 529 TBT ie TM) TS TERMINATE BIT ON 000446 4C25 647 TBT (ee LE) WAS AN INTR LEVEL ERROR FOUND 
OO003DA 6A00 OOCA 530 BON TERM BRANCH IF ON OO00448 1002 648 JOFF IOCM * NO, CONTINUE CHECKING 
OO03DE 4CA3 531 TBTR (Raa IN) HAS INTERRUPT BEEN RECEIVED QOOO44A 4C61 649 TBTS seen SET ERROR CONTROL BIT ON 
0003EO 1230 532 JON LOCK * YES, CHECK IF ALL WAS SATISFACTORY O0044C 5006 650 J ITOCcU BRANCH 
0003E2 4CAB 533 TBTR (R4,NI) IS THERE GOING TO BE A INTERRUPT OOO44E 4C24 651 XIOCM TBT phe et®) WAS AN ERROR EXPECTED 
OO0O03E4 6ACO 0000 534 BON Ref BRANCH NO 000450 120A 652 JN IOGI * YES, EXIT THIS ROUTINE 
0003E8 7DA1 0001 535 AWI R ADVANCE TIME OUT COUNT 000452 4C21 653 xIOCV TBT (R4,ER) WAS ERROR INTR CONTROL BIT ON 
OOO03EC 18F4 536 JINZ xfo8 BCH IF TIME OUT NOT REACHED 000454 1004 654 JOFF xXIOCX * NO, EXIT THIS ROUTINE 
OOO03EE 4c61 537 TBTS R4,ER SET ON ERROR CONTROL BIT 000456 655 XIOcQ EQU * 
Q0003FO 4C66 538 TBTS R4,LI SET ON LOST INTERRUPT CONTROL BIT 000456 4Cc8C 656 TBTR {4 WRIT) IS WRITE EXPECTING MORE THEN ONE INTR 
0003F2 6802 O4CO 539 PRNT BRANCH TO PRINT ERROR 000458 1202 657 JON TOCX BRANCH IF ON 
501 OO Ck oi ok dak i ak kk ake ak ac ak ak ak ak fea ok ak ak ai ak ake ak ak akc ak akc O0OO45A 6802 O4C0 658 XIOCU B SPRNT BRANCH TO PRINT ERROR 
5u2 * x QOOO4SE CB25 0012 659 XIOCX MVHZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
543 * SUBROUTINE * 000462 68C2 0000 660 B R6) RETURN TO USER VIA REG 6 
544 * * 000466 4C29 661 XIOGI TBT R4, GT) IS GOOD INTERRUPT BIT ON 
545 * I/O EXECUTE ERROR HANDLING ROUTINE * 000468 12F8 662 JON Tocu BRANCH YES 
5u6 * * QOOO46A 68C2 0000 663 B (R6) RETURN 
547 * PURPOSE * 664 * 
548 * * 665 * 1/0 PARAMETER LIST 
549 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 666 * 
550 * PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE * O0OO0O46E O004C 667 IOBLK DC A($DVAD ADRS OF DEVICE ADRS 
551 * SUPERVISOR AND IT WAS NOT ACCEPTED. * 000470 0O3F6 668 IOERR DC A (XIOER ERROR ROUTINE ADRS 
552 * * 000472 0000 669 IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 
553 * CALLING SEQUENCE * 000474 0000 670 IOMOD DC A (*-* MODIFIER 
554 * * 000476 0000 671 DC A (*-* ADRS OF LAST SVC CALL 
222 : SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND . 000478 0000 642 TORSP DC A (*-* SECOND WORD OF LAST IDCB 
227 : RETURN CONTROL : e338 : INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
559 * B $PRNT DUMP STATUS BEFORE TERMINATION * OOO0O47A OO04C 676 INTBL DC A($DVAD ADRS OF DEVICE ADRS 
560 * * 00047C O4OE 677 DC A (INTOK INTERRUPT OK RETURN ADRS 
561 OR IO OI OR OR IO I rok rok i aici ii i a i koi kek ak ak ak aioli ak ake ak ak aki ake ake ake aie akc ok OOO4TE O402 678 DC A (INTER INTERRUPT ERROR ADRS 
0003F6 706E 562 XIOER CPLSR R3 SAVE CONDITION CODE ON I/O ERROR 000480 0004 679 INTCC DC ' ' INTERRUPT CODE EXPECTED 
OO003F8 336A 563 SRL 13,R3 POSITION CC CODE TO BITS 13-15 6B 2K RM aK Me 2 A 3 OK a a 2 ee 2 ec fc ek 2 2c ae ak a 2c 2c ae kc ok 2c fc 2k ae 2 oe ai 2 2c Re 2K 2c ic kc ate 2 oe oe ae 2 2k ok 2 a ke ake af a a ak afc ke oe ak of ac 
OOO3FA C328 0014 564 MVB R3,$10IN * PUT IN LOG OUT AREA 682 * * 
OOO3FE 6802 O4CO 565 B PRNT BRANCH TO PRINT ERROR 683 * SUBROUTINE * 
S67 Me a 2 2 ie eo he ae 2 i ce he 2 ok OK ie oh ok oye ke 2h fe 2 ie ok ae fe ae ae 2h 2k fc ae af ae ie ic a of ai afc hc 2 2 3c af ic 2 oe fe ofc oe of 2c ke ok ic ok ok 684 * * 
568 * * 685 * CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE * 
569 * SOUBROUTINE * 686 * * 
570 * * 687 * PURPOSE x 
571 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! * 688 * * 
572 * * 689 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND * 
573 * PURPOSE 690 * PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * 
574 * * 691 * TO INTERRUPT. * 
575 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 692 * * 
576 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * 693 * CALLING SEQUENCE * 
S77 * EXPECTED CODE. * 694 * * 
578 * * 695 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: * 
579 * CALLING SEQUENCE * 696 * * 
580 * * 697 * --> BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
581 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT * 698 * --> BAL SCONR,R6 BCH TO CONNECT * 
582 * * 699 * --> BAL $CONP, R6 PREPARE DEVICE ONLY * 
583 * RETURN CONTROL * 700 * * 
584 * * 701 * RETURN CONTROL * 
585 * SVC EXIT RETURN TO USER VIA SUPVR * 702 * * 
586 * * 703 * BXS (R6) RETURN TO USER VIA REG 6 * 
SBT x aK a a a aK a RK a 2 2 2K 2 a 2 2 a ak 2 2k 2 ok 2 2 2 2 a 2c 2k coi 2k ac 2k fk ke ak kk a 2 2 2k 2 2 2k 2c dc af 2k fk ofc afc oc kc a 704 * * 
000402 T706E 588 INTER CPLSR R3 SAVE INDICATORS 705 GR FOR I RO IO IC OR I aOR I I IO I I OR gf kc ak fe a akc ae ae 
000404 336A 589 SRL 13,R3 POSITION INDICATORS IN R3 000482 706 SCONR EQU * 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
000482 4724 OUTTA 707 HVA INTBL, R7 SET R7 TO CONTROL BLOCK AND DECLARED NAME ATTRIBUTES AND REFERENCES 
000486 6014 708 SVC CICB * CONNECT IT TO THIS DEVICE 
000488 68C2 0000 709 B (R6) RETURN 0 ~R1. ABSOLUTE. HEX VALUE (00000001) 
00048C 710 $CONC EQU * 245 246 247 249 251 251 253 254 259 
00048C 8828 0056 0472 711 MVW SINTL, LODCB PUT IN LEVEL & INTR PARAMETER 261 263 263 304 305 306 308 315 316 
000492 CB25 0012 712 MVHZ OPTN3.R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 318 325 326 328 335 336 337 339 346 
000496 CB25 0016 713 MVWZ $ISB_R3 * AND CLEAR OLD ISB VALUE 347 349 356 356 357 359 
OOO49A 6EOD 0018 714 MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 0 ~R2. ABSOLUTE. HEX VALUE (00000002) 
OOOU"IE 4O2E 0018 0004 715 SHI 4, £STIO DECREMENT TO POINT AT INSTRUCTION 213 225 
OOO4AS 4324 0000 716 MVA $hID, R3 LOAD ADDRESS OF START OF PROG 0 ~R3. ABSOLUTE. HEX VALUE (00000003) 
OOO4UA8 CB2F 0018 717 SW R3, LSTIO SUB TO OBTAIN LISTING ADDRESS 150 153 515 516 517 519 562 563 564 
OOOUAC 4724 O4GE 718 MVA TOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 588 589 616 617 623 659 712 713 716 
0004B0 4020 0014 O7FF 719 MVWI X'O7FF', $IOIN INITIALIZE CONDITION CODE STORAGE 717 741 
0004B6 600C 720 SVC PREP * AND CALL ON SUPVR 0 oR4. ABSOLUTE. HEX VALUE (00009004) 
OOO4BB CF25 0472 721 MVWZ IODCB,R7 ZERO PREP 'I' BIT 157 158 240 242 255 257 277 279 300 
OOO4BC 68C2 0000 722 B (R6) RETURN 302 310 313 320 323 330 333 341 344 
WIG SSS SSS SSE STFS SS SSE SS SS SSS ST SSS TSS SS SSS LS SSS PF SSS SSS SL SS SSP SS SP St ese + es fs 351 354 511 525 529 531 533 537 538 
725 * COMMON PRINT ERROR INTERFACE ROUTINE * 590 591 618 619 621 622 632 633 635 
726 * x 645 647 649 651 653 656 661 740 744 
727 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 751 
728 * BRANCH IS TAKEN TO PRINT THE ERROR * 0 ~R5. ABSOLUTE. HEX VALUE (00000005) 
729 * ----> R4 LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 151 153 187 188 189 190 191 452 454 
730 * BRANCH IS TAKEN TO PRINT THE ERROR * 456 458 460 462 464 466 468 470 519 
731 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 522 524 524 535 625 626 627 628 630 
732 * BRANCH IS TAKEN TO PRI sue cs 631 739 742 747 749 753 
733 * ----> PRNTRIN THIS LABELED ADDRESS ate BERG ID = D3410/SYST * 0 -R6. ABSOLUTE. HEX eA (omelet! 
138: EOLEDHEGED EasGHNHOTHEDE GABE"Y a DonDaTA "eye OTs yas 388 288 i tg 388 BBL 384383 
7136 * : 312 314 322 324 332 334 343 345 353 
737 pia A aa a aa aL saciid chs ch cb adeeb hdd lag 355 513 534 660 663 709 714 722 738 
OOO4CO 4624 0012 738 SPRNT MVA OPTN3 LOAD ADDRESS OF OPTION WORD THREE 743 
O0OO04CKH 6D08 181E 739 MVW OP aNEaee RS LOAD ADDRESS OF COMMON PRNT ROUTINE 0 -R7. ABSOLUTE. HEX VALUE (00000007) 
0004C8 4424 0000 740 MVA $PID,R4 LOAD ADDRESS OF START OF PROG 152 154 166 172 175 176 215 236 273 
OO04cC 4324 0042 741 MVA BCTR, R3 LOAD ADDRESS OF PASS COUNTER 295 518 624 707 718 721 742 
OOO&DO 6FA3 0000 742 BAL 2587 BRANCH TO COMMON PRINT ROUTINE 62 $CKPT ADDRESS. HEX LOCATION (0000900) IN CSECT(EA3E0 ) LENGTH (2) 
OOO4D4 CE25 0012 743 MVWZ pe 30R ZERO OUT ALL FLAGS 187 222 235 243 252 72 280 299 311 
OOOUD8 4424 OOOE 744 MVA OPTN Be LOAD BASE ADDRESS FOR INDICATORS 321 331 342 352 
O0O04DC 802B 0232 0060 745 CB Cpary bE. TYPE23 IS THIS A TYPE 23 PROCESSOR 710 $CONC ADDRESS. HEX LOCATION (0000048C) IN CSECT (EA3E0 ) LENGTH (1) 
OOO4E2 1803 746 INE S$PRN2 BRANCH IF NO 220 234 294 
QOO4EL 4524 F000 q47 MVHI X¥E000", RS INIT LOOP COUNTER 706 $CONR ADDRESS. HEX LOCATION (00000482) IN CSECT(EA3E0 ) LENGTH (1) 
PRN BRANCH 
OOO4EA 4524 8000 749 $PRN2 MVWI xX*8000',RS5 INIT LOOP COUNTER 103 $DATA ADDRESS. HEX LOCATION(0000001A) IN CSECT (EA3EO ) LENGTH (2) 
OOOURE 6002 750 $PRN1 SVC IDLE DELAY 188 189 
OOO4FO 4C03 751 TBT (RS TH) SHOULD PROG TERMINATE 126 $DVAD ADDRESS. HEX LOCATION (0000004C) IN CSECT(EA3E0 \, LENGTH (2) 
OOO4F2 6A00 OOCA 752 BON TERM BRANCH YES 60 140 141 142 143 144 145 146 147 
OOO4F6 7DA1 0001 753 AWL 1,R5 INCREMENT LOOP COUNTER 148 149 175 245 282 284 304 335 667 
OOO4FA 18F9 754 JNZ $PRN1 BRANCH NOT ZERO 676 
O004FC 6802 0062 755 B $PENT BRANCH TO RESTART FROM BEGINING 128 $SINTL ADDRESS. HEX LOCATION (00000056) IN CSECT(EA3E0 —) LENGTH (2) 
000062 756 END $PENT 139 171 213 214 219 23 225 628 711 
100 $IOIN ADDRESS, , HEX, LOCATION (00000014) IN CSECT (EA3EO ) LENGTH (2) 
101 $ISB ADDRESS. HEX LOCATION (00000016) IN CSECT (EA3E0 ) LENGTH (2) 
130 $MXSL ADDRESS. HEX LOCATION(OO00005A) IN CSECT(EA3E0O ) LENGTH (2) 
138 $PENT ADDRESS, HEX LOCATION (00000062) IN CSECT (EA3E0O ) LENGTH (6) 
57 $PID ADDRESS. HEX_LOCATION (00000000) IN CSECT(EA3E0 ) LENGTH (4) 
738 $PRNT ADDRESS. HEX LOCATION (000004C0 IN CSECT(EA3E0 ) LENGTH (4) 
230 262 28> 30 319 29 340 350 360 
750 $PRN1 ADDRESS, HEX LOCATION (OOOOO4EE) IN CSECT(EA3E0 ) LENGTH (2) 
749 $PRN2 ADDRESS. HEX LOCATION (OOOQOOO04EA) IN CSECT(EA3E0 ) LENGTH (4) 
157 $SPUPD ADDRESS. HEX LOCATION (000000C2) IN CSECT (EA3E0 ) LENGTH (4) 
180 $PUPS ADDRESS. HEX LOCATION (0000010A) IN CSECT(EA3E0 ) LENGTH (6) 
170 $SRET1 ADDRESS. HEX LOCATION (OO0000E6) IN CSECT(EA3EO ) LENGTH (6) 
197 $SRTAD ADDRESS. HEX LOCATION (00000138) IN CSECT(EA3E0 ) LENGTH (2) 
61 SRTNE ADDRESS. HEX LOCATION (0000000) IN CSECT (EA3E0 ) LENGTH (2) 
164 $TERM ADDRESS» HEX LOCATION(OQOO00CA) IN CSECT(EA3E0 ) LENGTH (6) 
175 $TER1 ADDRESS. HEX LOCATION (OQOOOOOFE) IN CSECT (EA3E0 ) LENGTH (4) 
403 ARDA2 ADDRESS. HEX LOCATION (Q000034F) IN CSECT(EA3E0 ) LENGTH (1) 
368 ARMDA ADDRESS. HEX LOCATION (0000033B) IN CSECT(EA3E0 ) LENGTH (1) 
366 ARMO1 ADDRESS. HEX LOCATION (0000033A) IN CSECT(EA3E0 ) LENGTH (1) 
401 ARMO2 ADDRESS. HEX LOCATION(0000034EF) IN CSECT(EA3E0 ) LENGTH (1) 
39 CICB ABSOLUTE. HEX VALUE(00000014) 
53 CPUTYPE ABSOLUTE, HEX “VALUE (00000232) 
45 CTRL ABSOLUTE. HEX VALUE (00000012) 
168 217 238 97 
106 DC BUF ADDRESS. HEX, LOCATION (00000022) IN CSECT (EA3E0 ) LENGTH (2) 
107 DCB2 ADDRESS. HEX LOCATION (00000024) IN CSECT(EA3E0 LENGTH (2) 
247 259 282 306 316 
111 DCB6 ADDRESS. HEX LOCATION (0000002C) IN CSECT(EA3E0 ) LENGTH (2) 
104 DEV3 ADDRESS. HEX LOCATION (0000001E) IN CSECT(EA3E0 ) LENGTH (2) 
105 DEVY4 ADDRESS. HEX LOCATION (00000020), IN CSECT (EA3E0 ! LENGTH (2) 
249 261 284 308 28 339 349 359 
37 EA3E0 CSECT. START (00000000) LENGTH(1280) ESDID(0) 
88 ER ABSOLUTE. HEX VALUE (90000021) 
5 37 591 649 653 
40 EXIT ABSOLUTE. HEX VALUE (00000006) 
96 GI ABSOLUTE. HEX VALUE (00000029) 
131 HO000 ADDRESS. HEX LOCATION(0000005C) IN CSECT (EA3E0 ) LENGTH (2) 
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DECLARED NAME 
132 HOO001 
4 3 IDLE 
90 IN 
676 INTBL 
588 INTER 
6 16 INTOK 
6 36 INT RX 
622 INTR1 
633 INTR3 
667 LOBLK 
669 IODCB 
668 IOERR 
670 IOMOD 
215 ITSTY 
92 LE 
93 LI 
102 LSTIO 
87 MI 
382 M1DA 
380 M1DCB 
410 M2DA 
408 M2DCB 
4 32 M3DA 
4 30 M3DCB 
98 NI 
64 OPTN1 
75 OPTN3 
123 PCTR 
yy PREP 
52 PRNTRIN 
375 REDA 
373 REDCB 
396 °° RFDA 
394 RFDCB 
46 RICB 
418 RSDA 
416 RSDCB 
212 RTO1 
234 RTO2 
251 RTO21 
253 RTO22 
263 RTO 23 
271 RTO3 
286 RT031 
294 RTO4 
310 RTO41 
320 RTO42 
330 RTO43 
341 RTO4Y 
351 RTO4S 
361 RTO46 
48 TERM 
68 TM 
133 TYPE23 
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RESS. 
OLUTE. HEX VALUE (00000002) 

HEX VALUE(00000023) 

RESS. HEX LOCATION (0000047A) 
RESS. HEX LOCATION (00000402) 
RESS. HEX LOCATION (00000408) 
RESS. HEX LOCATION (00000440) 
RESS, HEX LOCATION (000004 1C) 
RESS. HEX LOCATION(0000043A) 
EX LOCATION (0000046E 
HEX LOCATTON (00000472) 
HEX LOCATION (00000470) 
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69 
HEX LOCATION (00000150) 
HEX VALUE (00000025) 
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1 

HEX VALUE (00000020) 
HEX LOCATION (00000343) 
RESS. HEX LOCATION (00000342) 
RESS. HEX LOCATION (00000353) 
RESS. HEX LOCATION (00000352) 
RESS. HEX LOCATION (0000035F) 
RESS. HEX LOCATION (0000035E) 
E. HEX VALUE (00000028) 
42 255 257 277 
20 
. HEX LOCATION (00000008) 
90 618 744 
HEX LOCATION (00000012) 

738 43 

HEX LOCATION (00000042) 

HEX VALUE (0000000C) 

HEX VALUE (0000181E) 
HEX LOCATION (0000033F) 
HEX LOCATION (00000338) 
HEX LOCATION (00000348) 
RESS. HEX LOCATION (0000034A) 
OLUTE. HEX VALUE (00000013) 
DDRESS. HEX LOCATION (00000357) 
DRESS. HEX LOCATION (00000356) 
DRESS. HEX LOCATION (00000142) 
DRESS. HEX LOCATION (00000186) 
DRESS. HEX LOCATION (000001CA) 
DRESS. HEX LOCATION (000001D2) 
DRESS. HEX LOCATION (000001F4) 
DRESS. HEX LOCATION (000001FE) 
DRESS. HEX LOCATION (0000023E) 
DRESS. HEX LOCATION (00000242) 
D 
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D 
7 
D 
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D 
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8 
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RESS. HEX LOCATION (00000280) 
RESS. HEX LOCATION (000002A4) 
RESS. HEX LOCATION (000002C8) 
RESS. HEX LOCATION (000002F0) 
RESS. HEX LOCATION (00000314) 
RESS. HEX LOCATION (00000336) 
OLUTE. HEX VALUE (00000007) 

Ore ee HES VALUE (0000000 3) 

HEX LOCATION (00000060) 
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CSECT (EA3E0 
CSECT (EA3E0 
CSECT (EA3E0 
CSECT(EA3E0 
CSECT (EA3E0 
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CSECT(EA3E0 
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LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


_ LENGTH (2) 


LENGTH (4) 


LENGTH (2) 


LENGTH (1) 
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LENGTH (1) 
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LENGTH (2) 
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LENGTH (1) 
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LENGTH (1) 
LENGTH (1) 
LENGTH (4) 
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LENGTH (4) 
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LENGTH (4) 
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LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
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DECLARED 


390 
69 
425 
423 
389 
387 
91 
89 
511 


452 
462 
645 
651 
655 
658 
659 
562 
661 
456 
464 
470 
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460 
466 
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458 
524 
525 
528 
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NAME 


WRDO1 
WRIT 
WODA 
WODCB 
W1IDA 
W1DCB 
XE 

XI 
XIO 


XIOA1 
XIOA2 
XIOCK 
XIOCM 
XIOCQ 
XIOCU 
XIOCX 
XIOER 
XIOGI 
XIOM1 
XIOM2 
XIOM3 
XIORE 
XIORF 
XIORS 
XIOWO 
XIOw1 
XIO5 

XIO6 

XIO8 
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74 
ADDRESS. 
ABSOLUTE. 


RESS. 
53 


RESS. 
66 
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ATTRIBUTES AND REFERENCES 


HEX VALUE (0000000C) 


HEX LOCATION (0000035B) IN CSECT(EA3E0 
HEX LOCATION(0000035A) IN CSECT(EA3E0 
HEX LOCATION (00000347) IN CSECT (EA3E0 
HEX LOCATION (00000346) IN CSECT(EA3E0 


HEX VALUE (00000024) 
HEX VALUE (00000022) 


Fey ao del Wes, aes ueT 
HEX LOCATION(00000362) IN CSECT(EA3E0 
HEX LOCATION (00000380) IN CSECT(EA3E0 
HEX LOCATION (00000442) IN CSECT(EA3E0 
7 HEX LOCATION (OOO0044E) IN CSECT(EA3E0 
HEX LOCATION (00000456) IN CSECT(EA3E0 
HEX LOCATION (0000045A) IN CSECT(EA3E0 
HEX LOCATION (0000045E) IN CSECT(EA3E0 
HEX LOCATION (000003F6) IN CSECT(EA3E0 
HEX LOCATION (00000466) IN CSECT(EA3E0 
HEX LOCATION(0000036E) IN CSECT(EA3E0 
HEX LOCATION (00000386) IN CSECT(EA3E0 
HEX LOCATION (00000398) IN CSECT(EA3E0 
HEX LOCATION (00000368) IN CSECT(EA3E0 
y HEX, LOCATION (00000372) IN CSECT (EA3E0 
X LOCATION (0000038C) IN CSECT(EA3EO 
LOCATION (00000392) IN CSECT(EA3E0 
HEX LOCATION (00000374) IN CSECT(EA3E0 
HEX LOCATION (000003CA) IN CSECT(EA3E0 
HEX LOCATION (000003CC) IN CSECT(EA3E0 
HEX LOCATION (000003D6) IN CSECT(EA3E0 
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HEX LOCATION(00000348) IN CSECT(EA3EO ) 
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LENGTH (2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 


LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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EAYEO --- SYSTEM TEST EXERCISOR SENSOR 1/0 PN=4414106 EC=755104 PAGE 01 EAWEO --- SYSTEM TEST EXERCISOR SENSOR I/0 PN=4414106 EC=755104 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRISHT IBN CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 


3 lo loko ok doko kk fokaiigk ko rok ikke ke te kokoke atc e o ak 00003E 0000 120 CSTL7 DC A (eas CYCLE STEAL WD 7, DEVICE DEPEND 
uy * : * 000040 0000 121 CSTL8 DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 
5 * ok PREREQUISITES ek * 000042 00000000 122 PCTR DC 2A (*-* PASS COUNTER 
6 * * 000046 00000000 123 ECTR DC 2A (¥-* ERROR COUNTER 
7 * NONE % OOOO4A 0005 124 ERNUM DC X*0005 NOM OF ERRORS ALLOWED BEFDRE TERMS 
8 * *« O0004Cc OOAY 125 $DVAD DC Xt OOAK! DEVICE ADDRESS BEING TESTED 
QA He 2 i ee ae i oe a RE A a fe ek et a ak ako aa ok oa a tak ie tk ko dk kk kek ok ak tek ke ie kek ko ak ok he OOOOXE 0000000000000000 126 DC XL8*0O08 
10 * * 000056 0011 127 S$INTL DC X*00118 INTERRUPT LEVEL REQUESTED 
11 * 2k ie ak MODIFICATIONS et * 000058 0000 128 eure DC X*Q000* DEVICE IDENTIFICATION 
a; : 883888 3583 136 aBsas BE ES Bbo. SUNS Egg eTPCTABLE voUTINES 
13 * CHA * 
14 * Nppaeee BRDLNEC TG oreue DENATE x 00005E 0001 131 HO001 DC X*00018 HEX WORD CONSTANT 
15 * 1k 000060 2300 132 TYPE23 DC x*#23008 CONSTANT TO CHECK PROCESSOR AGAINST 
16 Ok i a tok kkk ik tk ik a rr ik ak kk kk oo ok tok VSG RR RER ERK E KERR EERE ERE REE EEE EEE EEE ERE EE EKER EEE EEE AKER EERE EEK EEE 
17 * * 135 * PROGRAM CONTROL FUNCTIONS * 
18 * KX REA'S INCORPORATED * Kx x 136 #8 RO OK OIRO IO tO IK ik tok kk 
19 * * 000062 4020 0434 O3BA 137 SPENT MVA XIOER,IOERR : INIT ERROR RETURN ADDRESS 
20 * NONE * 000068 4020 0056 0011 138 MVGI xX*'0014" SINTL INIT THE INTERRUPT LEVEL 
21 * * OOOO06E 8028 OONC O2FF 139 MVB $DVAD, ARMDA MOVE DEV ADDRESS TO ALL LOCATIONS 
22 Je iG a oii oto i RC IO OR ok RR a to to 000074 8028 OO04C 0303 140 MYB SDVAD, REDA eo Seer SS SSS eS HSS ee oe 
Bite : 000080 8038 DOG O30B 142 HVB © $DVAD.WIDA Be 
24 * +#% SPECIAL INSTRUCTIONS slashed * MEDORA Re ee es 
25 * * 000086 8028 O04C 030F 143 NVB SDVAD, RFDA HO nn ne 
26 * NONE po 00008C 8028 O04C 0313 144 MVB SDVAD,ARDA2 HO mm nn rr 
27 * *x 000092 8028 O04C 0317 145 MVB $DVAD,M2DA KO nr nr eee 
28 3h tO oO a ao loi iit Ci Itoi ki i tok tek tok tok fk ok toi ok 000098 8028 OO4C 031B 146 MVB SDVAD, RSDA e. Seah S Sees Se ete Sea reas 
29 * * OOOO9E 8028 OO04C O3IF 147 HVB SDVAD, WODA HO a ene eee 
30 * #0 E. C. HISTORY * eK * OOOOA4 8028 O004C 0323 148 MVB SDVAD,M3DA eee Se Se eee a= 
ais : SoooeA OBET 0022 143 Bret 22268 ns I eee 
32 * DATE O6MAY77 DATE 15SEP77 DATE OSDEC77 DATE % ’ 
33 * E.C. 578756 E.C. 754882 E.C. 755104 E.C. *x OOO0OBO OF20 151 MVBI 32,R7 LOAD LENGTH TO MOVE 
34 * an * OOOOB2 2BAC 152 FFN R3 £F2) INIT DCBUFFER AREA 
CLUE TE LTCC OSS CSS CSCS COS SCL OCCL OCC SE SCCCSCS CCC CSS LSS SCT SS CSCC SCTE TTS eS eT eT SS OOO0O0B4Y CF25 002C 153 MVWZ DCh6,R ZERO CHAIN ADDRESS 
000000 37 EASEO START X*00008 QOOOOB8 CE25 OOOA 154 $PEN1 MVHZ $RTNE, RG CLEAR OLD ROUTINE NUMBER 
38 * SUPERVISOR EQUATES OOOOBC A82A O005C 0042 155 AD HOO000, PCTR ADVANCE PASS COUNTER BY 1 
000014 39 CICB EQU 20 CONNFCT INTERRUPT CONTROL BLOCK O0000C2 4424 ODODE 156 $PUPD MVA OPTN1,R4 RG MUST BE SET TO ‘OPTN1® 
000006 40 EXIT EOD 6 EXIT INTERRUPT LEVEL 0000C6& 4&cC03 157 $PpUP2 TBT ee thy IS TERMINATE PGM REQUESTED 
e304, i} Gros" ERY do euiGe abe oath 0 ERCEe SEaKo'C® eer ar ee oe 
000006 ui PREP EOU 42 BREPARE DEVICE OTHER PGHS 162 + De ee ores er ear 
000013 45 RICB EOU 19 RELEASE INTERRUPT CONTROL BLOCK OOOOCA 4020 0434 OODA 163 $TERM MVA SRET1,1I0OERR INIT ERROR RETURN ADDRESS 
OOOOOA G6 START EOU 10 START CYCLE STEAL COMMAND 0000D0 680C 0312 164 Io ARMO2 RELEASE FROM DIAG MODE 
000007 47 TERM EOU 7 TERMINATE THIS PROGRAM O0O0O0D4 4724 0432 165 MVA IOBLK, R7 LOAD ADDRESS OF CONTROL BLOCK 
000008 48 RESET EOU 8 RESET DEVICE 0000D8 6008 166 SVC RESET ISSUE SVC 
000009 49 RID EQU 9 READ DEVICE ID OOOODA 4020 0434 OOF2 167 $RET1 MVA $TER1,IOERR INIT ERROR RETURN ADDRESS 
000000 50 REG EQUR O WORK REGISTER OOOOEO 8828 0056 0436 168 MVW S$INTL, LODCB LOAD INTERRUPT LEVEL 
OO0181E 51 PRNTRTN EQU X*181E® COMMON PRINT ROUTINE ADDRESS LOCATION OOOO0E6 4724 0432 169 MVA IOBLK,R7 LOAD ADDRESS OF CONTROL BLOCK 
000232 52 CPUTYPE EQU xX'0232'! ADDRESS OF PROCESSOR TYPE OOOOEA 402D 0436 0001 170 RBTWI X'0001', IODCB TORN OFF 'I* BIT 
2a itt 0095 004c 175 STER1 SVE SBYAD R7 1830 DEV ADDRESS 
54 * PROGRAM HEADING AND CONTROL WORDS 
a2 ogogen aig *FO° ta Bye*T Beg" +7 geegetEge ORDER BITE 
000000 C1F4FOFO 6 $PID DC C*a4oo! PROGRAM IDENTIFICATION 
Q00004 0000 57 Dc XL2'0000!8 CURRENT LEVEL OF PROGRAM OOOOFC 6007 175 svc TERM ISSUE SVC 
000006 0062 58 DC A ($PENT -> TO START EXEC ADDRESS OOOOFE A828 OO5SE OOOA 177 $PUP8S AW HO001,$RTNE ADVANCE ROUTINE NUMBER 
00000sg8 o004c 59 pc A($DVAD -> T0 DEVICE TABLE 000104 882B OO5A OOOA 178 Cu S$MXSL,$RTNE CHECK FOR LAST AUTOMATIC ROUTINE 
OOO000A 0000 60 S$SRTNE DC A (*-* ROUTINE NUMBER BEING RUN 00010A 6800 0062 ue) ‘ BE SPENT * BCH AND START WITH RTN 1 
00000cC 0000 61 $CKPT DC A ++ LAST CHECK POINT PASSED 
OOO000E 0000 o OPTN1 DC x'0000!8 PROGRAM OPTION CONTROL WORD 1 133 be GET RTN NUMBER AND BCH TO THAT RTN 
65 * BIT FUNCTION OO010E 6E08 OOOA 183 $PSEL MVW SRTNE, R6 MOVE RTN NUMBER IN REG 
est Oo0116 eb32 001K ibs GVWE SO ReA Re ZERO DEV DEPENDENT DATA DEV1 
000003 67 TM EQU 3 TERAINATE PROGRAM ’ 
00000C 68 WRIT EOQU 12 ON = EITHER WRAPPED OR TTY QO011A CD25 O01C 186 MVWZ SDATA+2,R5 DEV2 
00000D 69 QUES EQU 13 QUESTION HAS BEEN ASKED QOO011E CD25 OO01E 187 MVWZ DEV3,R5 DEV3 
200085 Ware Be 4 SURE Binicr tow fWDEeATOR a3a1g6 S903 07° Bo BEER PErge ers DOUBLE ne, FoR Branch TABLE” 
72 * ® 000128 68D2 012C 190 B (Re, SRTAD) * BCH VIA RTN TABLE 
000010 0000 73 OPTN2 DC x'*'O000F PROGRAM OPTION CONTROL WORD 2 191 * 
000012 0000 ia OPTN3 pc x*0000! PROGRAM OPTION CONTROL WORD 3 soe : TABLE OF ROUTINE ADDRESSES 
76 * O MYSTERY INTERRUPT NI 8 CS STATUS INTERRUPT ERR CE 00012C 0062 194 $RTAD DC A ($PENT) NO RTN SELECTED 
77 * #1 ERROR INTERRUPT ER 9 GOOD INTERRUPT RECEIVED GI 00012E 0136 195 DC A(RTO1 ROUTINE ADDRESS 
78 * 2 EXPECTED INTERRUPT XI 10 PROBABLE ERROR EXPECTFD PE 000130 016E 196 DC A({RTO2 es es 
79 * 3 .QINTERFUPT RECEIVED IN 11 NO INTERRUPT EXPECTED NI 000132 O1DA 197 DC A(RTO3 us ee 
80 * 000134 0212 198 DC A (RTOYG ue ee 
81 * 4 EXPECTED ERR/ATTENT XE 12 N.U. DO) He ae he ae He he oe a a a a a KO OOK OO OE RK KKK EEE 
82 * 5 WRONG INTR LEVEL LE 13. W.O. 201 CHANNEL INTERFACE TEST * 
83 * 6 LOAS INTERRUPT LI 14 N.U. 202 * * 
84 * 7 CS STATUS IN PROGR CS 15 W.U. 203 * TO VERIFY THE CHANNEL INTERFACE CAN INTERRUPT ON ALL LEVELS + 
85 * BIT HEX 204 * THE PROG WILL PREPARE THE I/0 DEVICE TO INTERRUPT ON LEVEL ZERO * 
000020 86 MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 205 * AND CAUSE AN INTERRUPT. WHEN THE INTERRUPT OCCURS, THE LEVEL IS * 
000021 87 ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 206 * COMPARED TO THE EXPECTED LEVEL. THIS IS DONE ON ALL LEVELS * 
000022 88 XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 207 * EXCEPT LEVEL THREE. 
000023 89 IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT PANE LIC SLSCSS£CSSSOTCCSC£SCOSS CSL COCSL CCS COC SLES SS SE SCC eT ete eee Pee eter eer re ee 
000024 90 XE EQU 36 u 8 EXPECTED ERROR RESPONSE 000136 6£E03 0446 209 RTO1 BAL SCONR, R6 CLEAR AND CONNECT I/O BLK 
000025 91 LE EOU 37 5 4 INTERRUPT ON WRONG LEVEL ERROR 00013A 6A08 0056 210 MVW SINTL, R2 SAVE SELECTED INTERRUPT 
000026 92 LI EOU 38 6 2 LOST INTERRUPT O00013E 4020 0056 FFF1 211 VWI X*FPFA', SINTL SET UP INTERRUPT LEVEL FOR PREP 
000027 93 CS EOU 39 7 1 CYCLE STATUS IN PROGRESS 000144 4724 0432 212 ITSTY MVA TOBLK, R7 LOAD CONTROL BLOCK ADDRESS 
000028 94 CE EQU 40 8 8 CYCLE STEAL STATUS INERRRUPT ERROR 000148 6008 213 SVC RESET ISSUE RESET 
000029 95 GI EQU 41 9 4 GOOD INTERRUPT RECEIVED (EXPECTED ER) OOO14A 4029 0056 0010 214 AWI X'10!, SINTL ADV INTR LEVEL, STARTING AT O 
O00002A 96 PE EQU 42 10 2 PROBABLE ERROR EXPECTED 000150 6E03 0450 215 BAL $SCONC, R6 GO PREPARE ON NEW LEVEL 
Q00002B 97 NI EQU 43 11 1 NO INTR. EXPECTED UNPREPED DEV. 000154 6E03 0326 216 BAL XIOA1,R6 ARM PI 
000014 0000 99 $IOIN D A (*-* I/O AND INTR CONDITION CODES 000158 4029 O00C 0001 217 AWI 1, scKbr BUMP CHECKPOINT 
000016 0000 100 $ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 00015E 402F 0056 0021 218 CWI X'21*,S$INTL HAS INTR LEVEL COMF DOWN TO 2 
000018 0000 101 LSTIO DC A (*-* ADRS OF LAST I/0 + &Y BYTES 000164 =18EF 219 JNE ITST4 * NO, BCH AND CONTINUE TEST 
00001A 00000000 102 $DATA DC 2A {¥o*) DEVICE DEPENDENT DATA 000166 6A0D 0056 220 AVW R2,$INTL RESTORE SELECTED INTR LEVEL 
OO00TE 0000 103 DEV3 Dc A (*-* DEVICE DEPENDENT DATA DEV3 00016A 6802 00C2 221 B spipp BRANCH TO CONTINUE 
000020 0000 104 DEVG o»DC A (*—* DEVICE DEPENDENT DATA DEVG PORMEST TTT SSCS SLOSS SC$CCSSCC CSCC CLC SC SS SL EL CC eC Se TCT CTS C CS TS TCS CTS TTL e es 2 
000022 0000 105 DCBUF DC A (*-* LAST DCB TABLE, CONTROL WORD 224 * * 
000024 Q000 106 DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 225 * PURPOSE: TO INSURE THE 4982 ATTACHMENT WILL WRAP ALL DATA * 
000026 0000 107 DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 226 * PATTERNES FROM X'FFFF* THRU X*0000'. * 
000028 0000 108 DCBY DC A (*-* LAST DCB TABLE, DEV DEP WORD 227 * * 
00002A 0000 109 DCBS5S DC A (*-*% LAST DCB TABLE, DEV DEP WORD 228 EH MK eH RK EEE EEE REE REE ERE EEE ERE 
00002c 0000 110 DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 00016E 6£E03 0450 229 RTO2 BAL SCONC, R6 PREPARE DEVICE ON CORRFCT LEVEL 
00002E 0000 111 DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000172 4029 O000C 0001 230 AWI 1,$CKPT BUMP CHECKPOINT 
000030 0000 4112 DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000178 4724 0432 231 HVA IOBLK, R7 LOAD ADDRESS OF CONTROL BLOCK 
000032 113 CSBUF EQU * CYCLE STEAL DATA BUFFER 00017C 6008 232 SVC RESET RESET DEVICE 
000032 0000 114 CSTL1 D A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS OOO17E 4C6B 233 TBTS jae NI) SET NO INTERRUPT PENDING BIT 
000034 0000 115 CSTL2 DC A (*-*% CYCLE STEAL WD 2, BHEVICE DEPEND 000180 6£03 0332 234 BAL 1041, 6 SET DIAG MODE ONE 
000036 0000 116 CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 000184 4C6B 235 TBTS {Re ut) SET NO INTERRUPT PENDING BIT 
000038 0000 117 CSTLS& DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND 000186 4029 000C 0001 236 AWT SCKP BUMP CHECKPOINT 
00003A 0000 118 CSTL5S DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND 00018C 6£E03 032C 237 BAL x LORE, R6 BRANCH TO READ DIAG REGISTER 
00003c 0000 119 CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 000190 6908 0050 238 NVW S$DVAD+4,R1 LOAD CONFIG DATA 
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EAYEO --- SYSTEM TEST EXERCISOR 
LOCTR OBJECT TEXT STMT 

473 

G74 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

000362 4CA3 500 
000364 1250 501 
000366 6E0D 0018 502 
00O036A 402E 0018 0004 503 
000370 4324 0000 504 
000374 CB2F 0018 505 
000378 4324 0022 506 
00037C OFO4 507 
OOO37E 2D64 508 
000380 802B 0232 0060 509 
000386 1803 510 
000388 4524 C000 511 
00038C 5001 512 
O0038E 75AA 513 
000390 4C62 514 
000392 680C 0022 515 
000396 6F05 O3BA 516 
QO0039A 6002 517 
00039C 4C03 518 
00039E 6A00 OOCA 519 
0003A2 4CA3 520 
OO03A4 1230 521 
OO0O03A6 4CAB 522 
0003A8 6ACO 0000 523 
OOO3AC 7DA1 0001 524 
0003B0 18F4 525 
0003B2 4C61 526 
O003B4 4C66 527 
0003B6 6802 0484 528 
530 

531 

532 

533 

534 

535 

536 

537 

538 

939 

540 

541 

542 

543 

544 

545 

546 

S47 

548 

549 

550 

Q0Q003BA 706E 551 
0003BC 336A 552 
O0O03BE C328 0014 353 
0003C2 6802 0484 554 
556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

0003C6 T706E 577 
0003C8 336A 578 
OO03CA 4424 ODODE 579 
OO03CE 4C61 580 
0003D0 5007 581 
583 

584 

585 

586 

587 

588 

589 

590 


SENSOR 1/0 PN=4414106 EC=755104 PAGE 03 
SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 
* THE I/O COMMAND. | * 
* SAVES THE DCB BLOCK USED * 
* 3. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 
* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 
* MYSTERY INTERRUPT at) S CONTROL BIT IS SET. * 
* 4. MOVES THE ADDRESS HE I/0 CONTROL BLOCK IN R7, SET THE * 
* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE NECESSARY IO. * 
* 5. AFTER ISSUING THE 1/0 COMMAND, TIMING * 
* STARTS TO DETERMINE A LOST INTERRUPT. * 
* 6. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF * 
* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * 
* 7. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. % 
* 8. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * 
* 9. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. * 
* CALLING SEQUENCE * 
* THIS ROUTINE HAS THE FOLLOWING ENTRIES: + 
$227.8 XIO XEQ ANY CYCLE STEAL COMMAND, MOD=0 * 
* RETORN CONTROL ‘ 
x BXS (R6) RETURN TO USER NO ERROR * 
oa eee ee ea ee ceca ae 
XIO TBTR {B4e IN) CLEAR INTERRUPT RECEIVED CNTL BIT 

JON BRANCH IF ON 

MVW te OfK oo SAVE LIAR FOR RETRY IF REQUESTED 

Sur 4,£sTIO POINT AT CORRECT INSTRUCTION 

HVA $PID, R3 LOAD ADDRESS OF START OF PROG 

SW R3,LSTIO SUB TO OBTAIN LISTING ADDRESS 

HVA  DCBOUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 

MVBI 4&,RT7 * THE NUMBER OF HOVES 

HVFN (5) §R3), MOVE 1 STATUS WORD AND ADJUST 

CB POTYPE, TYPE23 CHECK FOR PROCESSOR 23 

JNE  X105 BRANCH NOT EQUAL 

HVWI X*CO00',RS LOAD LOOP COUNT 

J XI06 BRANCH 
Xi05 SW R5,R5 LOAD LOOP CoUNT 
XI06 TBTs (R4,xI) SET EXPECTED INTR CONTROL BIT 

I0 DCBOF ISSUE IO 

BNCC 7,XIOER ERROR IF NOT CC=7 
XI08 svc IBLE ALLOW OTHER PROG TIME 

TBT fx TH) IS TERMINATE BIT ON 

BON TERE BRANCH IF ON 

TBTR (4 IN) HAS INTERRUPT BEEN RECEIVED 

JON IOcEK * YES, CHECK IF ALL WAS SATISFACTORY 

TBTR (R4,NTI) IS THERE GOING TO BE A INTERRUPT 

BON Rot BRANCH NO 

AWL R ADVANCE TIME OUT COUNT 

JNZ X08 BCH IF TIME OUT NOT REACHED 

TBTS (R4,ER SET ON ERROR CONTROL BIT 

TBTS (R4°LT SET ON LOST INTERRUPT CONTROL BIT 

B PRAT BRANCH TO PRINT ERROR 
PSS SSS SSE SPS LESS SSS SSS SSS SSS SSE PSE SSS SS SSS SE SES SS SS SSS SSS ES S53 25 S82 SS SS 
* * 
* SUBROUTINE + 
. I/O EXECUTE ERROR HANDLING ROUTINE * 
* PURPOSE . 
* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 
* PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE * 
* SUPERVISOR AND IT WAS NOT ACCEPTED. ; . 
* CALLING SEQUENCE : 
‘ SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND * 
* RETURN CONTROL * 
* B $PRNT DUMP STATUS BEFORE TERMINATION ¢ 
PS SPSSSESS SSS SSLSLISSES ELSE SSSLSLS SSE SSS SSE SS SSS SESS ESE SSS SSS SESS SLE SESS ESS SS 
XIOER CPLSR R3 SAVE CONDITION CODE ON I/0 ERROR 

SRL 13,83 POSTTION CC CODE TO BITS 13-15 

HVB R3,$I0IN * PUT IN LOG OUT ARE 

SPRNT BRANCH TO PRINT ERROR 

PSSSEST SESS TSE SSS SSL SL SSSSSESSSSSSE SSS SS ESS SESE SIS SE STE SESS SSS SST SSeS SSS SS | 
* 
* SOUBROUTINE * 
. ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* + 
* PURPOSE * 
* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 
* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * 
* EXPECTED CODE. * 
* CALLING SEQUENCE + 
* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT * 
* RETURN CONTROL + 
* SVC EXIT RETURN TO USER VIA SUPVR * 
PS SSS SESS SSS SSS SSS ESE SE SSS SSSSS SSL SSPE SSS SSS SSS SSS SSS SSS TS SS St eee e+ es Se | 
INTER CPLSR R3 SAVE INDICATORS 

SRL POSITION INDICATORS IN R3 

MVA bank? R4 SET UP BASE ADRS 

TBTS TRG ER) SET ERROR ON I/O COMMAND CNTL BIT 
PSS SSSS SESE SES SES TS SESS SSE SS SS SPS SESS SESS SS SS SS SSS SS SSeS Se SP Sete eee ee SCS LS SS 
* * 
* SOUBROUTINE * 
¢ OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! * 
* PURPOSE * 
* * 


EAYEO --- SYSTEH TEST EX ERCISOR 
LOCTR OBJECT TEXT 
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SENSOR 1/0 PN=4414106 EC=755104 PAGE O3A 
SOURCE STATEHENT COPYRIGHT IBH CORP 1976 
* TO CHECK THE INTERRUPT AND CONTINUE THE TEST * 
* CALLING SEQUENCE 
% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 
* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * 
* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 
« COMMON SECTION IS HANDLED HERE. * 
* RETURN CONTROL + 
SVC EXIT RETURN TO USER VIA SUPYR * 
PPS STESS LSS SESS SSR SS ES SSS ESSE SS SS SSE SS SSS SSL SSSI SSS SS SS SSS SSS SSS SSeS Ss Se eS SY 
INTOK CPLSR R3 SAVE INDICATORS 
RL POSITION INDICATORS IN R3 
BVA ohn SET UP BASE ADRS 
TBT rey IS AN ERROR EXPECTED 
JOFF Ras BRANCH NO 
TBTS (R4,GI SET GOOD INTERRUPT BIT 
INTR1 TBTS (RU /T SET INTERRUPT RECEIVED 
NVB 3- $10 N+4 SAVE INTERRUPTING CC CODE 
NVW  R7,$I SAVE INTR STATUS AND DEV ADRS 
INTR2 CPCL R5 COPY INTERRUPT LEVEL TO CHECK 
SLL 4,R5 POSITION INTR LEVEL AND PUT 
ABIL 1.R5 * IN "It BIT 
CH $INTL, RS IS THIS THE CORRECT INTR LEVEL 
JE INTR3 * YES, GO EXIT THIS LEVEL 
SLL 4,RS5 SET LEVEL IN HIGH ORDER BYTE 
MVW «= R55, DEV3#2 STORE IN DEV4 
TBTS BA LE) SET INTR LEVEL ERROR CONTROL BIT 
INTR3 TBTR (¢(RUSXI WAS INTERRUPT EXPECTED 
JON NT RX * YES, EXIT OFF THIS INTR LEVEL 
TBTS (Ru MI) * NO, SET MYSTERY INTR CONTROL BIT 
INTRX SVC XI EXIT THIS LEVEL VIA SUPVR TO PGH 
PSS SSS SSS SSE SSP ST SSS SESS PS SS ESSE SPSS SC SSeS SS SCSC SSS CSS SS SSS SSS SL SS See eS eS es 
b4 * 
a THIS IS THE CONTINUATION OF EXECUTE I/O APTER THE INTERRUPT * 
" HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN * 
+ RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. ‘ 
PS SS SSS ESS SLES SSP SES SESS SS SSS See PSS ee See e+e eee eS SSeS Se SSS SS Se Se 2 2 2S 2 8 ee 
XIOCK TBT R4 MI) DID M¥S INTERRUPT OCCUR 
JON toto BRANCH YES 
TBT (Bu E) WAS AN INTR LEVEL ERROR FOUND 
JOFF xXI0cH * NO, CONTINUE CHECKING 
TBTS (BU, ER) SET ERROR CONTROL BIT ON 
J Tocu BRANCH 
XIOCH TBT RY, XE) WAS AN ERROR EXPECTED 
In ToéI * YES, EXIT THIS ROUTINE 
XIOCV TBT (Ra ER) WAS ERROR INTR CONTROL BIT ON 
JOFF xox * NO, EXIT THIS ROUTINE 
XIOcQ EQU. * 
TBTR (Ru WRIT) IS WRITE EXPECTING MORE THEN ONE INTR 
JON toé BRANCH IF ON 
XIOCU B $PRNT BRANCH TO PRINT ERROR 
XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
B R6) RETURN TO USER VIA REG 6 
XIOGI TBT RY GI) IS GOOD INTERRUPT BIT ON 
JON tocu BRANCH YES 
' B (R6) RETURN 
‘ I/O PARAMETER LIST 
IOBLK DC A($DVAD ADRS OF DEVICE ADRS 
IOERR DC A(XIOER ERROR ROUTINE ADRS 
TODCB DC A t*-* DCB ADRS OR LEVEL & INTR 
IOMOD DC A (*-* MODIFIER 
DC A (*-* ADRS OF LAST SVC CALL 
IORSP DC A(*-* SECOND WORD OF LAST IDCB 
- INTERRUPT CONTROL BLOCK FOR 1/0 COMMANDS 
INTBL DC A $DVAD ADRS OF DEVICE ADRS 
DC A(INTO INTERRUPT OK RETURN ADRS 
DC AINTE INTERRUPT ERROR ADRS 
DC X"0004 INTERRUPT CODE EXPECTED 
Me Me ae Me HK fe He she he Mh ae ae KK a aK OK nO Pe eM ee sed Me aie oe ee ee 
SUBROUTINE 
CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
PURPOSE 
TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 


TO INTERRUPT. 
CALLING SEQUENCE 
THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 


HHH HH HH He HE EH OE OH Et He E+ 
Zz 


--> BAL CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
--> BAL CONR,R6 BCH TO CONNECT 
--> BAL $CONP,R6 PREPARE DEVICE ONLY 
RETURN CONTROL 
~ BXS — (R6) RETURN TO USER VIA REG 6 


HHRKEEHEHRHRA KEKE HH HHH 


ICR IRI RR RRR RR ROR RIOR RII HOR i 
$CONR Ey * 


NYA  INTBL,R7 SET R7 TO CONTROL BLOCK AND 
SVC CICB * CONNECT IT TO THIS DEVICE 
B (R6) RETURN 
$CONC EQU) #* 
MVw $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
MVWZ OPTN3~/R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
MVW  R6,LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
SWI 4,LSTIO DECREMENT TO POINT AT INSTRUCTION 
MVA $PID.R3 LOAD ADDRESS OF START OF PROG 
SW R3,LSTIO SUB TO OBTAIN LISTING ADDRESS 


DAYDU ~~~ SYSTEM TEST EXERCISOR SENSOR I/0 PN=4414106 EC=755104 PAGE 04 EAYEO --- SYSTEM TEST EXERCISOR SENSOR 1/0 PN=4414106 EC=755104 PAGE O4A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS- REFERENCE LISTING COPYRIGHT IBM CORP 1976 
000470 4724 0432 707 MVA  IOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE DECLARED NAME ATTRIBUTES AND REFERENCES 
000474 4020 0014 O7FF 708 MVWI X'O7FF',S$IOIN INITIALIZE CONDITION CODE STORAGE 
O0047A 600C 709 SVC PREP * AND CALL ON SUPVR 0 -R1. ABSOLUTE. HEX VALUE (00000001) 
00047C CF25 0436 710 MVWZ LODCB,R7 ZERO PREP ‘I! BIT 238 239 240 242 244 244 246 247 252 
000480 68Cc2 0000 711 B (R6) RETURN 254 256 256 293 294 295 297 304 305 
713 ORK IO IO OR IOI IR IO RIOR RI RK Ro ok tok OK Ok i ko fak ike tae ak ke ak ak 307 314 315 317 324 325 326 328 335 
714 * COMMON PRINT ERROR INTERFACE ROUTINE Xx 336 338 345 345 346 348 
715 * * oh2s ABSOLUTE. HEX VALUE(00000002) 
716 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 210 220 
717 * BRANCH IS TAKEN TO PRINT THE ERROR * -R3. ABSOLUTE. HEX VALUE (00000003) 
718 * ----> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 149 6952006 (5504 =65050 «(5060 «65508 86551 «6552 5553 
719 * BRANCH IS TAKEN TO PRINT THE ERROR * 577 278 605 606 612 648 701 702 705 
720 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 706 7 30 
721 * BRANCH IS TAKEN TO PRINT THE ERROR * 0 ~R4. ABSOLUTE. HEX YALUE (00009004) 
722 * ----> PRNTRTN THIS LABELED ADDRESS IN SYST PROG ID = D3410/SYST ) * 1560 157) 23300 23500 248 250 = 268 S270 289 
723 * POINTES TO A COMMON ERROR OUTPUT AND FORMATTER ROUTINE* 291 299 302 309 312 319 322 330 333 
724 * WHICH WILL RETURN TO THIS PROG VIA REGISTER SEVEN * 340 343 500 514 518 520 522 526 527 
725 * * 579 580 607 608 610 611 621 622 624 
T26 4 RRO OK OR Rok tokoR Rok Rk kok kK ki iO ROR ROR RR kkk kok ak ak kok ike 634 6 36 638 640 642 645 650 729 733 
000484 4624 0012 727 $PRNT MVA OPTN3,R6 LOAD ADDRESS OF OPTION WORD THREE 740 
000488 6D08 181E 728 MVW PRNTREN,RS LOAD ADDRESS OF COMMON PRNT ROUTINE 0 ~R5. ABSOLUTE. HEX VALUE (00000005) 
00048C 4424 0000 729 MVA $PID,R4 LOAD ADDRESS OF START OF PROG 150 152 184 185 186 187 188 G4 443 
000490 4324 0042 730 MVA PCTR, R3 LOAD ADDRESS OF PASS COUNTER 445 447 449 451 453 455 457 459 508 
000494 6FA3 0000 731 BAL (RO) R7 BRANCH TO COMMON PRINT ROUTINE 511 513 513 524 614 615 616 617 619 
000498 CE25 0012 732 MVWZ OPTNS,R6 ZERO OUT ALL FLAGS 620 728 731 736 738 742 
00049C 4424 OODOE 733 MVA OPTN1, R4 LOAD BASE ADDRESS FOR INDICATORS 0 -R6. ABSOLUTE. HEX pate Coogogeos) 
0004A0 802B 0232 0060 734 CB CPUTYPE, TYPE23 IS THIS A TYPE 23 PROCESSOR 154 183 189 190 209 215 216 229 234 
O004R8 4594 E000 736 HVT X*EO00", RS INTT LOOP COUNTER $01 303 «344 «393 «381 «933 383) 33n 345 
OOOURE 4594 8000 Gr rant ait eee ae ne ka I 
Cc 
OO0OO4B2 6002 739 $PRNI SVC IDLE : DELAY 0 RTs ABSOLUTE. HEX VALUE (90000007) 
O0O04B4 4C03 740 TBT {Ru TM) SHOULD PROG TERMINATE 151 153 165 «169 «A720 «1730212 231 266 
0004B6 6A00 OOCA 741 BON TERM BRANCH YES 286 507 613 696 707 710 731 
OOO4BA 7DA1 0001 742 AWI 1,R5 INCREMENT LOOP COUNTER 61 $CKPT ADDRESS. HEX LOCATLON (0090000C) IN CSECT (EA4YEO LENGTH (2) 
09040 802 0062 74a ge tee BRANCH TO RESTART FROM BEGINING $10 $20. 384. SHA 
000062 745 END $PENT Pa ° 699 $CONC ADDRESS. HEX LOCATION (00000450) IN CSECT(EA4EO ) LENGTH (1) 
695 $CONR ADDRESS. HEX LOCATION(00000446) IN CSECT(EA4EO ) LENGTH (1) 
102 SDATA ADDRESS. HEX LOCATION(O000001A) IN CSECT(EASEQ ) LENGTH (2) 
125 $SDVAD ADDRESS. HEX LOCATION(OOO0004C) IN CSECT(EA4EO } LENGTH (2) 
59 139 140 144 142 143 144 145 146 
he 148 172 238 273 275 324 656 
127 SINTL ADDRESS. HEX LOCATION (00000056) | IN CSECT (EA4EO ah LENGTH (2) 
99 $IOIN ADDRESS. HEX LOCATION (00000014) IN CSECT(EA4EO ) LENGTH (2) 
100 $ISB ADDRESS. HEX LOCATION (00000016) IN CSECT(EAUEO ) LENGTH (2) 
129 SMXSL ADDRESS. HEX LOCATION (0000005A) IN CSECT(EA4EO ) LENGTH (2) 
137 $PENT ADDRESS, HEX LOCATION (00000062) IN CSECT (EA4EO ) LENGTH (6) 
56 $PID ADDRESS, HEX LOCATION (00000000) IN CSECT(FA4EO ) LENGTH (4) 
727 $SPRNT ADDRESS. HEX LOCATION (00000484) IN CSECT (EA4EO LENGTH (4) 
: 
a 22° 218 298 308 18 329 339 349 
739 $PRN1 ADDRESS» HEX LOCATION (000004B2) IN CSECT(EA4EO ) LENGTH (2), 
738 $SPRN2 ADDRESS. HEX LOCATION (QOOOO4AE) IN CSECT (EA4EO ) LENGTH (4) 
156 $PUPD ADDRESS, AEX, LOCATION (000000C2) IN CSECT (EA4EO ) LENGTH (4) 
177 SPUP8 ADDRESS. HEX LOCATION (QOQOOOFE) IN CSECT(EAUEO ) LENGTH (6) 
167 $RET1 ADDRESS. HEX LOCATION (OQOOOODA) IN CSECT(EAGEO ) LENGTH (6) 
194 $RTAD ADDRESS. HEX LOCATION(0000012C) IN CSECT(EAUEO ) LENGTH (2) 
60 SRINE ADDRESS. HEX LOCATION (0000000A) IN CSECT(EA4E0 ) LENGTH (2) 
163 $TERM ADDRESS HEX LOCATION(OQQOOOOCA) IN CSECT(EA4FO ) LENGTH (6) 
172 $TER1 ADDRESS. HEX LOCATION (OOO000F2) IN CSECT (EA4 EO ) LENGTH (4) 
392 ARDA2 ADDRESS. HEX LOCATION (00000313) IN CSECT (EA4EO ) LENGTH (1) 
357 ARMDA RDDBESS: HEX LOCATION(OOOOO2FF) IN CSECT(EA4EO ) LENGTH (1) 
355 ARMO1 ADDRESS. HEX LOCATION (000002FE) IN CSECT (EA4EO ) LENGTH (1) 
390 ARMO2 ADDRESS, HEX LOCATION (00000312) IN CSECT(EAUWEO ) LENGTH (1) 
39 CICB ABSOLUTE. HEX VALUE (00000014) 
52 CPUTYPE ABSOLOTE. HEX VALUE(00000232) 
105 DCBUF ADDRESS. HEX, LOCATION (00000022) IN CSECT (FA4WEO ) LENGTH (2) 
106 DCB2 ADDRESS ENE x LOGNTION (00000024). IN CSECT (EAQ RO ; ¢ PENGTH (2) 
110 DC B6 BDDR ROS: HEX LOCATION(0000002C) IN CSECT(EA4EO ) LENGTH (2) 
103 DEV3 ADDRESS. HEX LOCATION (0000001E) IN CSECT(EA4EO ) LENGTH (2) 
104 DEV4 ADDRESS. HEX LOCATION (00900020) IN CSECT(EAWEO \ LENGTH (2) 
242 254 275 7 307 17 328 338 348 
37 EAYEO CSECT. START (00000000) LENGTH(1220) ESDID(0) 
87 ER ABSOLUTE. HEX VALUE (00000021) 
5 26 5 80 638 
40 EXIT ABSOLUTE. HEX VALUE (00000006) 
95 GI ABSOLUTE. HEX VALUE (00000029) 
130 HO000 ADDRESS. HEX LOCATION(0000005C) IN CSECT (EAWEO ) LENGTH (2) 
131 HO001 ADDRESS. HEX LOCATION(OOOO005E) IN CSECT(EA4EO ) LENGTH (2) 
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CROSS~REFERENCE LISTING 
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IDLE 
IN 
INTBL 
INTER 
INTOK 
INTRX 
INTR1 
INTR3 
IOBLK 
IODCB 
IOERR 
ITSTY 
LE 

LI 
LSTIO 
MI 
HIDA 
M1DCB 
M2DA 
M2DCB 
M3DA 
H3DCB 
NI 


OPTN1 
OPTN3 
PCTR 
PREP 
PRNTRTN 
REDA 
REDCB 
RESET 
RFDA 
RF DCB 
RICB 
RSDA 
RSDCB 
RTO1 
RTO2 
RTO21 
RTO22 
RTO 23 
RTO 3 
RTO31 
RTO 
RTO41 
RTO42 
RTO43 
RTO4Y 
RTO4S5 
RTO46 
TERM 
TH 
TYPE23 
WRDO1 


ATTRIBUTES AND REFERENCES 
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OLU HEX VALUE (00000002) 
HEX VALUE (00000023) 
HEX LOCATION (00000438) 
HEX LOCATION (000003C6) 
HEX LOCATION (000003D2) 
HEX LOCATION (00000404) 
RESS. HEX LOCATION (000003E0) 
RESS. HEX LOCATION(000003FE) 
RESS. HEX LOCATION (00000432 

69 212 3 
HEX LOCATION (00000436) 
70 700 7 
HEX LOCATION (00000434) 
HEX LOCATION (00000144) 
HEX VALUE (00000025) 
HEX VALUE(00000026) 
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HEX VALUE (00000020) 
LOCATION (00000307) 
LOCATION (00000306) 
LOCATION (00000317) 
LOCATION (00000316) 
LOCATION (00000323) 
LOCATION (00000 322) 
ALUE (90000028) 
319 
CATION (00000008) 
x CATION (00000012) 
HEX LOCATION (00000042) 
. HEX VALUE (0000000C) 
OLUTE. HEX VALUE (0000181E) 
RESS. HEX LOCATION(00000303) 
RESS. HEX LOCATION (00000302) 
OLUTE, HEX VALUE (90000008) 
ESS. HEX LOCATION (0000030F) 
RESS. HEX LOCATION (0000030E) 
OLUTE. HEX VALUE (00000013) 
RESS. HEX LOCATION (0000031B) 
ESS. HEX LOCATION (0000031A) 
RESS. HEX LOCATION (00000136) 
RESS. HEX LOCATION (0000016E) 
ESS. HEX LOCATION (000001A6) 
RESS. HEX LOCATION (000001AE) 
HEX LOCATION (000001D0) 
HEX LOCATION (000001DA) 
HEX LOCATION (0000020E) 
HEX LOCATION (00000212) 
HEX LOCATION (00000244) 
HEX LOCATION (00000268) 
HEX LOCATION (0000028C) 
HEX LOCATION (000002B4) 
HEX LOCATION (000002D8) 
HEX LOCATION (000002FA) 
HEX VALUE (00000007) 
HEX VALUE (00000003) 
HEX LOCATION (00000060) 
HEX LOCATION (0000030c) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 


LENGTH (2) 
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LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
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EAYEO --- SYSTEM TEST EXERCISOR SENSOR I/0 
CROSS~REFERENCE LISTING 


DECLARED NAHE 
68 WRIT 
414 WODA 
412 HODCB 
378 WIDA 
376 H1DCB 

90 XE 
88 XI 

500 XIO 

441 XIOA1 
451 XIOA2 
634 XIOCK 
640 XIOCH 
644 XIOCQ 
647 XIOCU 
648 XIOCX 
551 XIOER 
650 XIOGI 
445 XIOH1 
453 XIOM2 
459 XIOM3 
443 XIOKRE 
44g XIORF 
455 XIORS 
457 XIOWO 
447 XIOW!1 
513 XIO5 

514 XI06 

517 XIO8 
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HEX LOCATION (0000031F) 
HEX LOCATION (0000031E) 
HEX LOCATION (0000030B) 
HEX LOCATION (000003043) 


LOCATION (00000326) 
LOCATION (00000344) 
LOCATION (00000406) 
LOCATION (00000412) 
LOCATION (0000041A) 
LOCATION (00000418) 
LOCATION (00000422) 
_EQCATION (000003BA) 
HEX LOCATION (0000042A) 
HEX LOCATION (00000332) 
HEX LOCATION (0000034A) 
HEX LOCATION (0000035C) 
HEX LOCATION (0000032C) 
HEX. LOCATION (00900338) 
HEX LOCATION (00000350) 
HEX LOCATION (00000356) 
HEX LOCATION (00000338) 
HEX LOCATION (0000038E) 
HEX LOCATION (00000390) 
HEX LOCATION (0000039A) 


PN=4414106 


HEX reggae ire auaert st aaa Be IN 
446 44s 450 52 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


Be A A a 5 ee a a ee ea a ok eK a Kk RHOK TAST PAGE 


CSECT (EA4EO 
CSECT (EA4 EO 
CSECT (EAYWEO 
CSECT (EA4EO 


CSECT (EA4EO 
454 456 
CSECT (EA4EO 
CSECT (EA4EO 
CSECT (EA4EO 
CSECT (EA4EO 
CSECT (EAYEO 
CSECT (EA4EO 
CSECT (EA4EO 
CSECT (EA4E0 
CSECT (EAUEO 
CSECT (EAYEO 
CSECT (EA4 EO 
CSECT (EAU EO 
CSECT (EA4EO 
CSECT (EA4 E0 
CSECT (EA4EO 
CSECT (EA4 E0 
CSECT (EA4EO 
CSECT (EA4 E0 
CSECT (EAYEO 
CSECT (EA4EO 


Me eH ee HO a hae a 2 a eae ae ate ak ge ahead ae age ae ake eek ok ak 


EC=755104 


= elle 


COPYRIGHT IBM CORP 1976 


LENGTH (1) 
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LENGTH (4) 
LENGTH (2) 
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EESE0O --- SYSTEM TEST EXERCISOR FOR. THE ACCA SL PN=4414107 EC=754882 PAGE 01 EE8EO --- SYSTEM TEST EXERCISOR FOR THE ACCA SL PN=4414107 EC=754882 PAGE O1A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3) SOOO IO ORIG OIG OGIO OR IO IO I IC a RII ICR I RCI ICI I ICR Ck aR ak a ak 000042 00000000 120 PCTR DC 2A (*-* PASS COUNTER 
y * ' x 000046 00000000 121 ECTR DC 2A (*-* ERROR COUNTER 
5 * 2 aK PREREQUISITES eC * OOO004A 0005 122 ERNUM DC X*0005 NUM OF ERRORS PROG CAN HAVE 
6 * x O0004C OO0E8 123 $DVAD DC X'OOES8! DEVICE ADDRESS BEING TESTED 
7 * NONE *x OOOO04E 0000000000000000 124 DC XL8'00! 
8 * * 000056 0011 125 $INTL DC X¥'0011° INTERRUPT LEVEL REQUESTED 
9 2G OO oO a io oi doi ci oi ka IR ik kei ak ako ak ak ake ak ak i ak ak ak ake aka ake ak ate akc ak a ai af 2 ok 000058 100E 126 S$DVID DC X*100E* DEVICE IDENTIFICATION 
10 * * Q0005A 0005 127 $MXSL DC A (2) MAXIMUM SELECTABLE ROUTINES 
11 * 40k MODIFICATIONS a * 00005C 0000 128 HO000 DC X*O000 CONSTANT 
12 ¢ : 000060 2300 130 TYPE23 DC x" 2300" GONSTANT TO CHECK PROCESSOR AGAINST 
aa : CHANGES MADE TO ROUTINE TO INSPECT DIAG DATA . 132 2G ORIG GGG GI GIG IG IG III aK Ac 
15 2 OGG GIORGIO IO aOR ICR III IGRI kaka a a 3k 133 * * 
16 * * ise i PROGRAM CONTROL FUNCTIONS : 
ie : = REA'S INCORPORATED oe : (13.6 ACO IG RIGO IR OI ORR I GR I ak a IK akg ak ak ak ak 
19 * 27-11576 x 000062 4020 O4E8 043E 137 $PENT MVA  XIOER,IOERR RESTORE ERROR ADDRESS 
20 * * 000068 A82A 005C 0042 138 AD HO000,PCTR ADVANCE PASS COUNTER BY 1 
2.7 GGG I AGOGO Ga OI Ia IC io I GCAO GI IOI I ia kta ak QO006E 4020 0056 0011 139 MVWI X*'O011', SINTL INIT INTERRUPT LEVEL 
: BORSA Giga a8 tae pny Be? BEEP. BE Seance RSPOLITAS HEE, 
* ok ak kk x 
ae SPECIAL: INSTRUCTIONS : 00007C 4cC03 142 $PUP2 TRT (Ru why IS TERMINATE PGM REQUESTED 
Se x NONE * QOO07E 1018 143 JZ pubs * NO, CONTINUE CHECKING 
* * 
so OIRO IG IO ICG II RIOR IO IOI RIOR IORI IG a aOR kk tae . TERMINATE CONTROL BIT FOUND ON 
8 * * 
a5 $k E. C. HISTORY 4 + 000080 4020 O4E8 008C 147 $TERM MVA $RETI,IOERR INIT ERROR ADDRESS 
40% . 900088 6008 149 Sve ORESET ISSUE SVC) Ow BROCK 
31 * DATE 06 7 77 " 
33 * pare oben Bee enneo bree Pee * 00008C 4020 O4EB OOA4 150 $RETI MVA $TER1,IOERR INIT ERROR ADDRESS 
33 * x 000092 8828 0056 O4EA 151 MVW SINTL, LODCB LOAD CURRENT INTERRUPT LEVEL 
30 ORO OCI IG I III ICR I IOI GIGI III kg a i ak ak 000098 4724 QO4EG 152 MVA  IOBLK,R7 LOAD ADDRESS OF CONTROL BLOCK 
000000 36 EE8EO START x'00008 00009C 402D O4EA 0001 153 RBTWI X'00041',I0DCB TURN OF PREPARE 'I* BIT 
000014 a By anos Sees SOO0RG e720 004C 124 sver1 MVS SVAD TOAD CORRENT DEV ADDRESS 
CICB EQU CONNEC N 
50000 14 35 Sager aoe 4 SU REGSACE. Ea EEO ECHED RECCONGE OOOOAS 7FEY FFOO 156 RBTWI X'FFOO',R7 ZERO HIGH ORDER BYTE 
00001A 40 HTOE EQU 26 CHANGE HEX DATA TO EBCDIC DATA Q000AC 6013 157 SVC = RICB ISSUE SVC 
900006 44 EXIT EQU 6 EXIT INTERRUPT LEVEL QOOOAE 6007 25 . SVC TERM ISSUE SVC 
O0000c ia PREP ou 42 SP EOLEE GEtECE?  ee 000080 A828 00SE 000A 161 $PUP8 AW HO001,$RTNE ADVANCE ROUTINE NUMBER 
000013 u& RICB EOU 19 RELEASE INTERRUPT CONTROL BLOCK 0000B6 882B O0O5A OOOA 162 CW SMXSL,$RTNE CHECK FOR LAST AUTOMATIC ROUTINE 
000008 45 START EOU 40 START CYCLE STEAL COMMAND QOOOO0BC 10D2 ca : JE $PENT * BCH AND START WITH RTN 1 
TERM EQU TERM T 
990008 G7 RESET EAU 8 DEutGe acaen ee 165 4 GET RTN NUMBER AND BCH TO THAT RTN 
4g 9 
60000 Ao Ree eeuR. 20 vone RBoccnee 0000BE 6E08 OOOA 167 $PSEL MVW $RTNE,R6 MOVE RTN NUMBER IN REG 
a3881: o0 Fairer eou Foaa1e CQHRON SERINE ROUTINE ADDRESS Locarron _«$980C7 B49 990 jeg tay Scher DENS CHECRPO ETE nos oF Ey 
25 CC oa °C goggca Sb32 OOig 178 AYE fparad2e ns py TEEEEDEDTCDADD 
Bo tee ee tee || Cs CR CIS COLE jj. <471 ##§ “<MVWZ. "DENG. 85° j= -@ -Ssecsccusses— 
38 et ee 9000D6 $608 oo 133 Bree ence DOUBLE FOR BRANCH TABLE 
000000 C5F8FOFO 55 $PID DC C'E800! PROGRAM IDENTIFICATION T 
900006 O0E2 25 De |= ACSPENT) SRO START EXEC ADDRESS Pang estan sx =» ee) Sarre 
- T S 
guB3e Bes 38 sous Be IEE souttub HaiBes BEEuc oon He en nee 
00000C 0000 60 $CKPT DC A xs} LAST CHECK POINT PASSED Q000DC 0062 178 $RTAD DC A (SPENT) NO RIN SELECTED 
OO0O00E 0000 62 OPTN1 DC x'00008 PROGRAM OPTION CONTROL WORD 1 QO00DE OQOE6 179 DC A(RTOI ROUTINE ADDRESS 
a: Busses 18 Wi Ra : 2 
* 
65 bs ceaioll delay Ceeene: 2Ene net ENGR Ce HESS hoc e seis ee keweeeeweeee rrr er ae ke aK ak 
000003 66 TM EQU 3 TERMINATE PROGRAM aid =e Pee eee ee 
00000D 67 QUES FOU 13 QUESTION HAS BEEN ASKED 185 CHANNEL INTERFACE TEST * 
j00008 i ee Ce SEER DERG A 187 * TO VERIFY THE CHANNEL INTERFACE CAN INTERRUPT ON ALL LEVELS ‘ 
‘ip nee tan ae 183 2 FUR BROS YER PEEEAB Eg! “Gui nQE EGE RSGUBE BEERS, Nae VEyEETES 
000010 0000 71 OPTN2 DC X'0000° PROGRAM OPTION CONTROL WORD 2 : 
001 t ' 190 * COMPARED TO THE EXPECTED LEVEL. THIS IS DONE ON ALL LEVELS * 
ees De a aeeeee eas aie eae eg pene ee Lea Le eo Be eee 
74 * +O MYSTE NTERRUPT MI 
cea: 4 eeeoe TatenEUeT oe GP CECOR CAmeRENDE. GRCUTe Un Ee 0000E6 6E03 O4FA 193 RTO1 BAL $CONR,R6 CLEAR AND CONNECT I/O BLK 
49 5 9 BRRRCTED TurEEevES OH 19 FROBABLE  BRROR EXEECTED EE Q000ER 4020 0036 FFF 195 HVT XtBEFA "9 SINTL SET UP INTERRUPT LEVEL FOR PREP 
5a & Pepe mne ay O000F4 4029 0056 0010 196 ITST4 AWI X'10', SENTL ADV INTR LEVEL, STARTING AT O 
79 * & EXPECTED ERR/ATTENT XE 12 N.U. QOOOFA 6E03 0504 197 BAL SCONC, R6 GO PREPARE ON NEW LEVEL 
80 * 5 WRONG INTR LEVEL LE 13 WN.U. OOOOFE 4724 OE6 198 MVA IOBLK, R7 SET UP POINTER TO CONTROL BLOCK 
81 * 6 LOAS INTERRUPT LI 14 WLU. 000102 6008 199 SVC RESET CALL SUPVR TO ISSUE RESET 
82 * 7 CS STATUS IN PROGR cs 15 N.U. 000104 4724 O4F6 200 MVA ITOBLK, R7 SET UP POINTER TO CONTROL BLOCK 
83 * BIT HEX ; 000108 6009 201 SVC RID CALL SUPVR TO ISSUE READ ID 
000020 84 MI EOU 32 0 8 MYSTERY INTERRUPT HAPPENED Q0010A 882B O4FO 0058 202 CW IORSP, $DVID IS ID RECEIVED THE SAME 
000021 85 ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT O00T10 1008 20 3 JE ITSTS * YES, CONTINUE 
000022 86 XI EOU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000112 8828 f4FO OO1E 204 MVW IORSP, DEV3 LOAD RECEIVED ID INTO DEV3 
000023 87 IN FOU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000118 8828 0058 0020 205 MVW SOUT LA PEVaee LOAD EXPECTED ID INTO DEV4Y 
990024 88 XE FOU 36 7 8 EXPECTED ERROR RESPONSE QO0O011E 6802 0534 206 B PRNT BRANCH TO PRINT ERROR 
0025 89 LE FOU 37 5 4 INTERRUPT ON WRONG LEVEL ERROR 000122 6£E03 O3A2 207 ITSTS BAL XIODR, R6 EXEC NO-OP TO GET AN INTR 
0000 26 90 LI EOU 38 6 2 LOST INTERRUPT 000126 4029 000c 0001 208 AWI 1, $CKB BUMP CHECKPOINT 
000027 91°¢S EOU 39 7 1 CYCLE STATUS IN PROGRESS 00012C 402F 0056 0021 209 CW X'21', S$INTL HAS INTR LEVEL COME DOWN TO 2 
000028 92 CE EQOU 40 8 8 CYCLE STEAL STATUS INERRRUPT ERROR 000132 18E0 210 JNE ITstT4 * NO, BCH AND CONTINUE TEST 
000029 93 GI EOU uf 9 mr GOOD INTERRUPT RECEIVED (EXPECTED ER) 000134 6A0D 0056 211 MVW R2,SINTL RESTORE SELECTED INTR LEVEL 
OO0O02A 94 PE EOU u2 10 2 PROBABLE ERROR EXPECTED 000138 6£03 0504 212 BAL $CONC R6 SET UP FOR START IO ON CORRECT LEV. 
00002B 95 NI EQU 43 11 1 INTR. EXPECTED UNPREPED DEV. 00013C 402B 0054 0080 213 TWI x'0086', $pVAD+8 IS DTR JUMPERED ON 
000014 0000 97 $IOIN D A (*-* I/O AND INTR CONDITION CODES 000142 1202 214 JON ITSTA BRANCH IF YES 
000016 0000 98 $ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 000144 6E03 O3BA 215 BAL XIODS, R6 BRANCH TO ISSUE IO 
000018 0000 99 LSTIO DC A (*— * ADRS OF LAST T/O + 4 BY 000148 6E03 0386 216 ITSTA BAL XIODG, R6 SET UP FOR START IO 
00001A 00000000 100 $DATA DC 2A (= ) DEVICE DEPENDENT DATA QO0014C 4224 0574 217 ITSTC MVA DRBUF, R2 SET UP TO CHECK CHECKSUM 
00001E 0000 101 DEV3 pC A (¥-* DEPENDENT DATA DEV3 000150 6903 0574 218 MVW DRBUF, R1 SET UP TO CHECK CHECKSUM VALUE 
000020 0000 102 DEVY Dc A (*-* DEPENDENT DATA DEV4G 000154 690B 0576 219 XW DRBUF+2, R81 * AGAINST SHOULD BE 
000022 0000 103 DCBUF DC A (*-* LAST DCB TABLE, CONTROL WORD 000158 7921 0001 220 AWL 1,R1 CHECK FOR A VALID CHECKSUM 
000024 0000 104 DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 00015C 1005 221 JZ tfstT9 BCH IF OKAY 
9900 26 0000 105 DCB3 DC Al*—* LAST DCB TABLE, DEV DEP WORD Q00015E 9028 O574 OOTE 222 MVD DRBUF, DEV3 MOVE ERRORED CHECKSUM VALUE 
0028 0000 106 DCB4Y pC A (*-* LAST DCB TABLE, DEV DEP WORD 000164 6802 0534 223 B SPRNT BRANCH TO PRINT ERROR 
O0N002A 0000 107 pDcBS oc A (*-* LAST DCB TABLE, DEV DEP WORD 000168 6908 0578 224 ITST9 MVW DRBUF#4, R1 SET UP TO CHECK CHECKSUM VALUE 
00002c 0000 108 DCB6 DC A (*-% LAST DCB TABLE, CHAIN ADRS 00016C 690B O5S7A 225 XW DRBUF+6,R1 * AGAINST SHOULD BE 
Q00002E 0000 109 DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000170 7921 0001 226 AWL 1,R1 CHECK FOR A VALID CHECKSUM 
000030 0000 110 DCB8_ DC A(*-* LAST DCB TABLE, BUFFER ADDRESS 000174 1005 227 JZ rhst7 BCH IF OKAY 
0000 32 111 CSBUF £QU * CYCLE STEAL DATA BUFFER 000176 9028 0578 OOTE 228 MVD DRBUF+4, DEV3 MOVE ERRORED CHECKSUM VALUE 
000032 0000 112 CSTL1 D A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 00017C 6802 0534 229 B $PRNT BRANCH TO PRINT ERROR 
900033 0000 113 Site pc A ( *-* CYCLE STEAL WD 2, HEVICE DEPEND 000180 6802 0078 230 ITST7 B $PUPD BRANCH TO CONTINUE 
000036 0000 114 CSTLS DC hex CYCLE STEAL WD 3% DEVICE DEPEND 232 ORO ORI IOC IGIOIOIIOI OIRO ORIG GIO RIO GI IR IOI ii gE tet 
000038 0000 115 CSTL4Y DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND 233 * CYCLE STEAL STATUS * 
00003A 0000 116 CSTLS DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND 234 * THIS TEST WILL VERIFY THAT THE ATTACHMENT WILL SEND BACK THE * 
080035 9900 bh CSTLG pc A — CYCLE STEAL WD 6, DEVICE DEPEND one . ADDRESS OF THE LAST CYCLE STEAL ADDRESS. : 
000040 0000 119 Gears BG : beeee GicLe rene an a! perce DEBeuG 237 ORIG IORI ORIG IOI IO IOIOIOR FORO IOR I IO i 
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LOCTR OBJECT TEXT STMT SOURCE STATEHENT COPYRIGHT IBM CORP 1976 | LOCTR OBJECT TEXT STMT SOURCE STATEHENT COPYRIGHT IBM CORP 1976 
000184 6803 0504 238 RTO2 BAL $CONC PREPARE DEVICE ON CORRECT LEVEL 000326 0716 355 DRFHS DC X*0796! 
000188 4124 0597 239 MVA DRBUF+35, R1 LAST CYCLE ADRS USED 000328 3D40 356 DRSKP DC X*3D40° 
00018C 4029 000C 0001 240 AWI 1,$CKP BUMP CHECKPOINT Q0032A 761F 357 DC X'*761F* 
000192 6803 03ccC 241 BAL xfocs, R6 GO GET STATUS FROM LAST 1/0 00032C 1c7Cc 358 DC x'1cC7ct 
000196 c924 0032 242 CW CSBUF, R1 COMPARE LAST STG LOCATION USED ; 000328 0000 359 DRCHN DC A (%-* CHAIN ADRS 
O0O0O19A 1004 243 JE csst4 BRANCH IF GOOD ADDRESS 000330 0000 360 DRBGT DC A (*-% BYTE COUNT 
00019C 690D 0020 244 MV R1, DEV3+2 LOAD EXPECTED ADDRESS INTO DEV4 000332 0574 361 DRADR DC A (DRBUF) BUFFER ADRS 
090140 6802 0534 245 B RANT BRANCH TO PRINT ERROR 362 * 
0001A4 6802 0078 246 CSST4 B PUPD BRANCH TO CONTINUE 363 * CYCLE STEAL DATA CONTROL BLOCK 
DUG HA Ae a ae Me ee Mee he He eK a OK a HR fe Mee ae ae Ea ake a he he he ae he 2h Bh ae he he he af a af ea ae oe ae 2 a ic oe 2 aco i a a ae 364 * 
249 * DIAGNOSTIC MODE * 000334 365 CSDCB BQU * USE FOR DCB REFERENCE ONLY 
250 * CHECK ALL POSSIBLE FUNCTION OF DIAGNOSTIC MODE * 000334 2000 366 CSCTL D x*2000! CONTROL WORD 
251 * * | 000336 0000 367 CSFMS DC X*Q000! NOT USED 
252 * ISSUE A DIAG MODE TWO COMMAND THEN INSPECT THE RECEIVED DATA * | 000338 0000 368 CSSKP DC X*0000! NOT USED 
253 * WORD & THRU 17 AGAINST SHOULD BE V * Bobaae 0000 369 DC x*Q000° 
254 Je RIO OIG tok gg io iat lok kaigoiaiodogaok ie ik | 00033C 0000 370 DC x*0000°* 
001A8 6803 0504 255 RTO3 BAL $CONC, R6 PREPARE DEVICE ON CORRECT LEVEL 00033E 0000 371 CSCHN DC A (0000) CHAIN ADRS, NOT USED 
001AC 4029 O00C 0001 256 AWI 1,$CKPT BUMP CHECKPOINT 000340 0006 372 CSBCT DC x*0006 BYTE COUNT 
001B2 6803 0386 257 BAL x fonG, R6 BRANCH TO ISSUE DIAG. COM. 000342 0032 373 CSADR DC A (CSBUF) BUFFER ADRS 
001B6 902B 057C 0344 258 CD DRBUF+8 , DGDCB COMPARE FIRST TWO DCB WORDS 374 
99 1BC 1008 259 JE RTO31 BRANCH EQUAL | 375 * DIAGNOSTIC DATA CONTROL BLOCK 
0O1BE 9028 057C OO1A 260 MVD DRBUF+8,$DATA MOVE RECEIVED VALUES | 378 * 
001C4 9028 0344 OO1E 261 MVD DGDCB, DEV3 MOVE EXPECTED VALUES | 000344 377 DGDCB BQU * USED FOR DCB REFERENCE ONLY 
OO1CA 6802 0534 262 B $PRNT BRANCH TO PRINT ERROR 000344 200D 378 DGCTL X*200D* CONTROL WORD 
OO1CE 902B 0580 0348 263 RTO31 CD DRBUF+12, DGDCB+t4 COMPARE SECOND TWO WORDS | 000346 T7FFE 379 DGDC2 DC X*7FFE! Ue 
001D4 1008 264 JE RTO032 BRANCH IF EQUAL | 000348 DCBA 389 DGDC3 Dc X'*DCBA® 
001D6 9028 0580 OOTA 265 MVD DRBUF+12,$DATA MOVE RECEIVED VALUES QOOO34A 9876 38 GDC4& DC X'*9876° 
O0OO1DC 9028 0348 OOTE 266 MVD DGDCB+4, DEV3 MOVE EXPECTED VALU 00034C 5432 -38 GDC5 DC X*54328 
001E2 6802 0534 267 B $PRNT BRANCH TO PRINT ERROR 00034E 0000 38 GCHN DC A (0000) CHAIN ADDRESS 
001E6 902B 0584 034C 268 RTO032 CD DRBUF+16,DGDCB+t8 COMPARE THIRD TWO WORDS 000350 9024 384 DGBCT DC xX"0024 BYTE COUNT 
001EC 1008 269 JE RTO 33 BRANCH IF EQUAL 000352 0574 385 DGADR DC A (DRBUF) BUFFER ADDRESS 
OO1EE 9028 0584 OO1A 270 MVD DRBUF+16,$DATA MOVE RECEIVED VALUES 387 * 
OO1F4 9028 034C OOTE 271 MVD DGDCB+8, DEV3 MOVE EXPECTED VALUES 388 * DISABLE DTR CONTROL BLOCK 
OO1FA 6802 0534 272 B SPRNT BRANCH TO PRINT ERROR 3 * 
OO1FE 4029 0588 0014 273 RTO33 AWI 20, DRBUF#20 ADD TWENTY TO BYTE COUNT 000354 390 DSDCB EQu * USED FOR DCB REFERENCE ONLY 
00204 882B 0588 0350 274 CW DRBUF+20, DGDCB+12 COMPARE BYTE COUNTS 000354 000C 39% DS D X*QQOC! CONTROL WORD 
0020A 100B 275 JE RTO34 BRANCH IF EQUAL 000356 0000 392 DS DC x'0000°8 U. 
0020C 402EF 0588 0014 276 SWI 20, DRBUF+20 REPLACE WITH ORIGINAL VALUE 000358 0000 393 DS DC X*00008 
00212 8828 0588 OO1A 277 MVW DRBUF+20,$DATA LOAD RECEIVED BYTE COUNT 00035A 0000 394 DS DC x'0000' 
00218 8828 0350 OO1E 278 MVW DGDCB+12, DEV3 LOAD EXPECTED VALUE 00035C 0000 395 DS DC X*0000! 
0021E 6802 0534 279 B S$PRNT BRANCH TO PRINT ERROR 00035E 0000 396 DS DC x*0000° CHAIN ADDRESS 
00222 4O2E O58A 0016 280 RTO34 SWI 22,DRBUF+22 ADD 22 TO DATA ADDRESS 000360 0000 397 DS DC x*Q000° BYTE COUNT 
00228 882B 058A 0352 281 CW DRBUF+22, DGDCB+14 COMPARE ADDRESS 000362 0574 398 DS DC A (DRBUF) BUFFER ADDRESS 
0022E 100B 282 JE RT035 BRANCH IF EQUAL 399 * 
00230 4029 OS58A 0016 283 AWI 22, DRBUF+22 REPLACE WITH ORIGINAL VALUE 4OO * ERROR ONE DATA CONTROL BLOCK 
00236 8828 O58A OO1A 284 MVW DRBUF+22,$DATA LOAD RECEIVED BYTE COUNT. 404 * 
0023C 8828 0352 OO1E 285 MVW DGDCB+14, DEV3 LOAD EXPECTED VALUE | 000364 4O2 R1IDCB EQU * USED FOR DCB REFERENCE ONLY 
00242 6802 0534 286 B $PRNT BRANCH TO PRINT ERROR 000364 8008 403 E1ICTL D Xx*8008! CONTROL WORD 
00246 402B 0054 8000 287 RTO35 TWI X*8000*, $DVAD+8 IS CARRIER DETECT JUMPER INSTALLED 000366 0000 404 E1DC2 DC X*'0000! 2Us 
0024c 1005 288 JOFF RT036 BRANCH NO 000368 0003 4OS B1IDC3 DC X¥'00038 
0OO24E 402B 058C 1000 289 THI X'1000',DRBUF+24 DOES HARDWARE VERIFY 00036A 0333 406 E1DC4 DC X* 0333! 
00254 1035 290 JOFF RTO3E BRANCH IF NO Q00036C 0000 407 E1DC5S DC X¥'0000° 
00256 5004 291 J RTO39 BRANCH 00036E 0375 408 EICHN DC A (E2DCB) CHAIN ADDRESS 
00258 4023 058C 1000 292 RTO36 TWI X*1000',DRBUF+24 DOES HARDWARE VERIFY 000370 0000 409 E1BCT DC x*0000° BYTE COUNT 
0025E 1230 293 JON RTO3E BRANCH IF NO 000372 0574 410 E1ADR DC A (DRBUF) BUFFER ADDRESS 
00260 402B 0054 0080 294 RTO39 TWI X'0080! ,SDVAD+t8 IS DTR JUMPER INSTALLED 411 * 
00266 1009 295 _ JOFF RT037 BRANCH NO 412 * ERROR FOUR DATA CONTROL BLOCK 
00268 402B 058C 0040 296 TWL X*0040',DRBUF+24 DOES HARDWARE VERIFY 413 * 
0026E 1228 297 JON RTO3E BRANCH NO 000374 00 4414 DC x'00" 
00270 402B 0590 8000 298 TWI xX*8000',DRBUF+28 DOES HARDWARE SEE DTR 000375 445 E2DCB EQU- * USED FOR DCB REFERENCE ONLY 
00276 1024 299 JOFF RTO3E BRANCH NO 000375 0000 416 E2CTL DC X*0000! CONTROL WORD 
00278 5004 300 J RTO3A BRANCH 000377 0000 447 E2DC2 DC X*00008 N.U. 
0027A 402B 058C 0040 301 RT037 TWI X'0040', DRBUF+24 DOES HARDWARE VERIFY 000379 Q000 418 E2DC3 DC X'*00008 
00280 101F 302 JOFF RTO3E BRANCH NO 00037B 0000 419 E2DC4 DC X¥*0000! 
00282 402B 0054 0040 303 RTOZA TWI X¥*0040", $DVAD+8 REQ TO SEND JUMPERED ON 00037D 0000 420 E2DC5 DC X'*0000' 
00288 1009 304 JOFF RTO038 BRANCH NO 00037F 0000 421 E2CHN Cc X*O000! CHAIN ADDRESS 
0028A 402B 058C 0020 305 TWI xX*0020', DRBUF+24 DOES HARDWARE VERIFY 000381 0000 422 E2BCT DC X'0000! BYTE COUNT 
00290 1217 306 JON RTO3E BRANCH NO 000383 0000 423 E2ADR DC X*0000! BUFFER ADDRESS 
00292 402B 0590 2000 307 TWI X¥' 2000 ,DRBUF#28 DOES HARDWARE VERIFY 000385 00 Y2uy ALIGN WORD 
00298 1013 308 JOFF RTO3E BRANCH NO &u26 A he Ae he he a ake af afc ah afc aft afc af 2c afc af afc afc 3h afc af ac Ah he ah ah ah le hk A hc ic af ake afc af hc ic ale afc afc afc aie afc ake age ae afc afc ac ae ae afc ae hae. ae 2 af afc ate ae ae afc 28 ae ae afc ofc 
0029A 5004 309 J RTO 3B BRANCH 427 * ISSUE ALL I/O COMMANDS FROM A COMMON SUBROUTINE * 
0029C 4028 058c 0020 310 RT038 TWI X'0020', DRBUF+24 DOES HARDWARE VERIFY 428 * TO DISPLAY INSTRUCTIONS AND OPERATING PROCEDURES TO THE OPERATOR* 
002A2 1008 311 JOFF RTO3E BRANCH NO 429 * AND SET UP ANY REQUIREMENTS FOR OTHER I/O COMMANDS * 
00O2A4 402B 0590 0800 312 RTO3B TWI X'0800',DRBUFt28 RING FROM MODEM ON 430 * * 
OO2ZAA 120A 313 JON RTO3E ERROR IF YES - BRANCH 431 * --=> BAL XIODG, R6 XEQ DIAG. MOD = D COMMAND * 
OO2AC 402F 0594 OOFF 314 CWI X*OOFF*,DRBUF +32 IS WORD 17 = X'OOFF® ' 432 * --> BAL XIODR, R6 XEQ DTR COMMAND * 
002B2. 1806 315 JNE RTO3E BRANCH NO 433 * --> BAL XIOE1,R6 XEQ ERROR ONE COMMAND * 
002B4 402F 0596 0030 316 CWI X*0030', DRBUFt34 IS WORD 18 = X'0030° 434 * --> BAL XIOE2,R6 XEQ ERROR TWO COMMAND * 
OO2BA 1802 347 JNE RTO3E BRANCH NO 435 * * 
OO2BC 6802 0078 318 B S$PUPD BRANCH TO CONTINUE | Uh 3G HAE EE He he he ee 3 ae eae He 2 a fee he he 2 fe oh af 2 a ake af oc i ae ic ae 2c 2c ae aie ae oc ac age ae ae fe oe ake afeaie afe aie oe afc fe ae af fe 2c 2c ae af ae 
002cO 4029 000c 0001 319 RTO3E AWIL 1,$CKPT BUMP CHECKPOINT 000386 4020 O4FA 0344 437 XIODG MVA DGDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
002C6 8828 058C OO1A 320 MVW DRBUF+24,$DATA MOVE 13/TH WORD 00038C 4020 O4EC O00D 438 MVWI xX'OD*, IOMOD MOVE MODIFIER INTO CONTROL BLOCK 
002CC 8828 0590 001Cc 321 MVW DRBUF+28, $DATA+2 MOVE 15/TH WORD 000392 402B 0054 0004 439 TWI X'0004" $pvap+es HIGH SPEED JUMPER INSTALLED 
002D2 9028 0594 001E 322 MVD DRBUF+32,DEV3 MOVE 17 AND 18/TH WORDS | 000398 1223 440 JON  XIO BRANCH YES 
002D8 6802 0534 323 B RNT BRANCH TO PRINT ERROR 00039A 402D 0346 FOOD Gu RBTWI X*FOQO0O! ,DGDCB+2 INDICATE LOW SPEED WITHIN DCB 
325 Oo oo oi oo oR ok nc kook geiokiok gots | Q0003A0 501F “ud? J XIO1 BRANCH 
336 * DIAGNOSTIC MODE * | 0003A2 4020 O4WEA 0324 443 XIODR MVA DRDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
327 * CHECK ERROR RETURNS x | Q003A8 500C Gay J XIO BRANCH 
328 * eo OOO3AA 4020 O4FRA 0364 445 XIOE1 MVA E1DCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
329 * ISSUE THE DCBtS NECESSARY TO OBTAIN A COMMAND REJCET THEN x 0003B0 5008 446 J XIO BRANCH 
330 * A DCB SPEC. CHECK. x 0003B2 4020 O4EA 0375 G47 XIOE2 MVA E2DCB,10DCB SET UP CONTROL BLOCK FOR SVC CALL 
B31 RA HH a a HH RC I a a a a a a a a a 2 a 2 a 2 fe kc ae i a af 2 ake 2 aK of a a ake ak aka ie ke a ake ak ae akc ae ae akc ae a 0003B8 5004 Y4s J XIO BRANCH 
0002DC 6803 0504 332 RTOW BAL $CONC, R6 PREPARE DEVICE ON CORRECT LEVEL - QO003BA 4020 O4FA 0354 G49 XIODS MVA DSDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
0002E0 4c64 333 TBTS R4, XE SET EXPECTED ERROR BIT 0003C0 5000 450 XIO BRANCH 
O002E2 4029 O000C 0001 334 AWI $CKP BUMP CHECKPOINT EES D Ae He He he ake he a a af ae fe 2h fe ae 2h a oc cc oe ae ak ae ic a fc 2 2 a ak a fe 2c cafe 2k ae ie ai 2 ae ale af ate ae ae ae ae akc a afc ae ake ae ae af aie af ake a ak ak ake ok ake ae fe ae aie ak fe 
0002E8 6803 O3AA 335 BAL Xf£OE1, R6 BRANCH TO TEST ERROR 453 * * 
0002EC 402B 0016 1000 336 TWI X¥*1006' ,$ISB IS ISB EQU TO 10XX 454 * SOUBROUTINE * 
0002F2 1208 337 JON RTO41 BRANCH YES 455 * * 
0002F4 4020 0020 1000 338 MVWI X*1000',DEV4 DEVGY EQUALS EXPECTED DATA 456 * EXECUTE INPUT AND OUTPUT COMMANDS * 
OOO2FA 8028 O004C 0021 339 RTOU3 MVB $DVAD, DEV441 LOAD DEV ADDRESS 457 * * 
000300 6802 0534 340 B $PRNT BRANCH TO PRINT ERROR 458 * PURPOSE * 
000304 4c64 341 RTOUT TBTS fea XE) SET EXPECTED ERROR BIT 459 * * 
000306 4029 000c 0001 342 AWI $CKP BUMP CHECKPOINT 460 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. * 
00030C 6E03 03B2 343 BAL XLOE2, R6 BRANCH TO TEST ERROR 461 * THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: * 
000310 402B 0016 4000 344 TWI x'4006' $rsB IS ISB EQUAL TO 4OxXX 462 * * 
000316 1204 345 JON RTO42 BRANCH YES 463 * 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 
000318 4020 0020 4000 346 MVWI xX'4000!,DEV4 DEV3 EQUALS EXPECTED DATA 464 * THE I/O COMMAND. * 
00031E 5OED 347 J RTO43 BRANCH 465 * 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS * 
000320 6802 0078 348 RTOU2 B $PUPD BRANCH TO CONTINUE 466 * ISSUED BY THIS SUBROUTINE. * 
350 * 467 * 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE * 
351 * DTR CONTROL BLOCK 468 * START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. * 
352 * 469 * 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 
000324 353 DRDCB EQU * USE FOR DCB REFERENCE ONLY 470 * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 
000324 000D 354 DRCTL D X*OOOD*® CONTROL WORD 471 * MYSTERY INTERRUPT (MI) CONTROL BIT IS SET, * 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
472 * 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE * OOO44A T706E 589 INTER CPLSR R3 SAVE INDICATORS 
473 * EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE ‘SVC  START'*., * Q0OO044C 336A 590 SRL 3,R POSITION INDICATORS IN R3 
474 * 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING * OOO4Y4E 4424 OOOE 591 MVA OPfN1, RY SET UP BASE ADRS 
475 * STARTS TO DETERMINE A LOST INTERRUPT. * 000452 4C2T7 592 TBT RY c§) IS CS IN PROGRESS 
476 * 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF * 000454 1006 593 JOFF NTET * NO 
Y77 * WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * 000456 4C68 594 TBTS RY,CE ~ TURN ON CYCLE STEAL INTER ERROR 
478 * 8. CHECK IF THERE WAS RONG INTERRUPT LEVEL. * 000458 6F0D 0040 595 MVW 7,€8 8 SAVE CS ERR ISB VALUE, BITS 0-7 
479 * « CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * 00045C C328 0041 596 MVB R3,CSTL8¢1 * AND THE COND CODE 
480 * 10. CHECK IF THERE WAS ERROR CONDITION, IF NOT RETURN. * 000460 5009 597 J INTR1 BRANCH 
481 * 11. CHECK IS A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS * 000462 4C61 598 INTET TBTS ie ER) SET ERROR ON I/O COMMAND CNTL BIT 
482 * ISSUED BY THIS SUBROUTINE. * 000464 5007 599 J NTR BRANCH 
483 * 12. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A * 601 OIA OI I III Fai RIOR RR IO I $08 ie 082k a te ak 
484 * CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON,* 602 * * 
£82 pa COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. : 603 : SOUBROUTINE * 
* 
nee : CALLING SEQUENCE ee : OKAY INTERRUPT RUNS ON INTERRUPT LEVEL ‘SINTL! . 
nich : THIS ROUTINE HAS THE FOLLOWING ENTRIES: ; eek : PURPOSE * 
* 
494 * -+> B XIO XEQ ANY CYCLE STEAL COMMAND, MOD=0_ * 609 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST * 
492 * --> BAL XIOCS, R6 XEQ START CYCLE STEAL STATUS, MOD=F * 610 * * 
493 * . 611 * CALLING SEQUENCE * 
494 * RETURN CONTROL bd 612 * * 
495 * * 613 * SUPERVISOR WILL ENTER HERE IF INTR CC {IS AS REQUESTED * 
496 * BXS (R6 RETURN TO USER NO ERROR * 614 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * 
097 ERROR a oO Joa OI i nO I ak ak kak i tak de $k ke tok ok 615 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 
0003C2 CB25 O4EC 499 XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 616 * COMMON SECTION IS HANDLED HERE. % 
0003C6 500C 500 J XI01 CS I/0'S ARE NOT RETRIED 617 * * 
Q0003C8 4CAB8 501 TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 618 * RETURN CONTROL * 
QOO03CA 4C67 502 TBTS 4,CS SET 'CYCLE STEAL STATUS' IN PROGRESS 619 * * 
0003CC 4020 O4EA 0334 503 XIOCS MVA SDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 620 * SVC EXIT RETURN TO USER VIA SUPVR * 
0003D2 4020 O4EC OOOF 504 MVWI X'O00Ft, TOMOD SET CYCLE STEAL MODIFIER 621 * * 
0003D8 4C27 505 TBT R4,CS) IS CS IN PROGRESS, ERROR CONDITION 622 RR IIR IORI IO II I I IR ORI i iO kak 
QO0OO03DA 1216 506 JON 102 * YES, BYPASS SAVING I/O ADRS 000466 T706E 623 INTOK CPLSR R3 SAVE INDICATORS 
Q0003DC 4C23 507 TBT $f IN) TEST FOR INTERRUPT 000468 336A 624 SRL 13, R3 POSITION INDICATORS IN R3 
Q003DE 125F 508 JON tock BRANCH IF YES OOOX6A 4424 OOOE 625 MVA optn1,R4 SET UP BASE ADRS 
QO003EO 6E0D 0018 509 xIO1 MVW R6, LSTIO SAVE IAR FOR RETRY IF REQUESTED OOO46E 4C24 626 TBT RY Xx&) TEST EXPECTED ERROR BIT 
QOOO3Z3E4 402F 0018 0004 510 SWI 4, LSTIO DECREMENT FOR LAS INSTRUCTION 000470 1001 627 JOFF nT hi BRANCH IF OFF 
QOOOZ3EA 4324 0000 511 MVA $PID R LOAD ADDRESS OF PROGRAM START 000472 4C69 628 TBTS R4,GI SET GOOD INTERRUPT BIT 
QOQO3EE CB2F 0018 512 SW R3, LSTIO SUB TO OBTAIN LISTING ADDRESS 000474 4C63 629 INTR1 TBTS R4,IN SET INTERRUPT RECEIVED 
Q003F2 4324 0022 513 MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 000476 4C27 630 TB R4,CS IS 'CS IN PROGRESS‘! ON 
Q0O03F6 6D08 O4EA 514 MVW IODCB, R5 * AND THE FROM ADRS, ALONG WITH 000478 1204 631 JON NTR * YES, BCH AROUND UPDATE 
OOO3FA OF10 515 MVBI 16,R7 * THE NUMBER OF MOVES OOO47A C328 0015 632 MVB R3, SIOIN+¢1 SAVE INTERRUPTING CC CODE 
Q003FC 2D64 216 MVPN §R)) R3) MOVE 1 STATUS WORD AND ADJUST OOO47E 6FOD 0016 633 MVW R7,$ISB SAVE INTR STATUS AND DEV ADRS 
QOOO3FE OBFF 517 MVBI 55 CLEAR CYCLE STATUS BUFFER 000482 78B9 634 INTR2 CPCL R5 PY INTERRUPT LEVEL TO CHECK 
0004800 4524 0032 518 MVA CSBOF, R5 * TO ALL ONES * 000484 3521 635 SLL 4,R5 POSITION INTR LEVEL AND PUT 
000404 OF10 519 MVBI 16,R * 000486 0501 636 ABI 1,R5 * IN "I* BI 
000406 2BAC 520 FFN R3, (R5 * 000488 CD24 0056 637 CW SENTL,RS IS THIS THE CORRECT INTR LEVEL 
000408 4CA3 521 XI02 TBTR (za IN CLEAR INTERRUPT RECEIVED CNTL BIT Q00048C 1004 638 JE INTR3 * YES, GO EXIT THIS LEVE 
OOO4OA 1249 522 JON Tock BRANCH IF ON O0048E 3521 639 SLL 4,R5 POSITION RECEIVED LEVEL 
O0040C 4724 Q4UEG 523 MVA LOBLK, R7 SET UP CONTROL BLOCK FOR SUPVR ‘ 000490 6DOD 0020 640 MVW R5 DEV3+2 STORE INTO DE 
000410 802B 0232 0060 524 CB CPpuTY bE, TYPE23 CHECK FOR PROCESSOR 23 000494 4C65 641 TBTS RG, E SET INTR LEVEL ERROR CONTROL BIT 
000416 1803 525 JNE XI05 BRANCH NOT EQUAL 000496 4CA2 642 INTR3 TBTR RY XI WAS INTERRUPT EXPECTED 
000418 4524 0000 526 MVWI X*0000*,R5 LOAD LOOP COUNT 000498 1201 643 JON NTR * YES, EXIT OFF THIS INTR LEVEL 
00041C 5001 527 J XT06 BRANCH QO0049A 4C60 644 TBTS Ae MI) * NO, SET MYSTERY INTR CONTROL BIT 
QO0OO4U1E 75AA 528 XI0O5 SW R5,R5 LOAD LOOP COUNT 00049C 6006 645 INTRX SVC XI EXIT THIS LEVEL VIA SUPVR TO PGM 
000420 4C62 529 xI06 TBTIS (Rl XI) SET EXPECTED INTR CONTROL BIT 647 2 RR RIOR RII RI FOR ROR OO RR RIG ICR fof kk tok 
000494 6002 B33 xron SVE PERE RELOW OTHER PROG TINE e493 + HIS IS THE 
T CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
#38438 8489 oo8c soy dkaag eanca'teiog nO got MESHED HEB'SGMeud! aEEESO" ER med" Pou hat BERGE” Conberoo 
ANY ERROR CONDITIONS. 
OO0042C 4CA3 534 TBIR seh IN) HAS INTERRUPT BEEN RECEIVED 652 * N 
238438 3541 0001 tn ar spviuee crise SuneSuus SMTSTACPOPY og ou95 cag eed LtOck ast aeeaty ee ae aa ate a gaaybacr es TaeanoeE 
MI WAS THERE AN UNEXPECTED INTERRUPT 
000434 18F7 537 JNZ xfo8 BCH IF TIME OUT NOT REACHED OOO4AO0 1214 655 JON {Poen BRANCH IF YES 
000436 4C61 538 TBTS R4,ER SET ON ERROR CONTROL BIT OOO4YA2 4C25 656 TBT {83 LE) WAS AN INTR LEVEL ERROR FOUND 
000438 4C66 539 TBTS (R4,LI SET LOST INTERRUPT CONTROL BIT OOO4A4 1002 657 JOFF XIOCM * NO, CONTINUE CHECKING 
QOOO4Y3A 6802 0534 540 B PRit * BCH TO FINISH ERROR SEQUENCE OOO4A6 4C61 658 TBTS R4 , ER) SET ERROR CONTROL BIT ON 
502 Gg ORO aici ok ci iG ao cai aici eka aie ak akc ak ak ak ako a ok OOO4A8 5010 659 J Tocy BRANCH 
543 * * OOO4YAA 4CAA 660 XIOCM TBTR R4,PE WAS A PROBABLE ERROR EXPECTED 
544 * SUBROUTINE * OOO04AC 6ACO 0000 661 BON R6 BRANCH YES 
545 * * OO0O4BO 4C24 662 TBT R4,XE) WAS AN ERROR EXPECTED 
546 * I/O EXECUTE ERROR HANDLING ROUTINE * O0004B2 1211 663 JN IOGI * YES, BRANCH 
Su7 * * QOOO04B4 4C27 664 TBT Gy CS) WAS AUTO CS IN PROGRESS 
548 * PURPOSE * 0004B6 1005 665 JOFF xX10cy * NO, CONTINUE CHECKING 
5u9 * * Q0OO04BS8 4C28 666 TBT AE CE) IS CS IN AN ERR CONDITION 
550 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * QOOO4BA 6800 O4DE 667 BOFF SREN * NO, BCH 
551 * PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE * OOOUBE 6802 0534 668 B SPRNT GO L6G CS ERROR 
552 * SUPERVISOR AND IT WAS NOT ACCEPTED. ~ 0004C2 4C21 669 XIOCV TBT Lb ER) WAS ERROR INTR CONTROL BIT ON 
553 * * OO04CcKe 1004 670 JOFF xrocx * NO, EXIT THIS ROUTINE 
554 * CALLING SEQUENCE * 0004C6 6802 03C8 671 XIOCQ B XIOCS-4 * AVAILABLE, GO AND GET IT 
555 * * QOO4CA 6802 0534 672 XIOCU B $PRNT PRINT ERROR 
556 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND * QOO4CE CB25 0012 673 XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
557 * * Q004D2 68C2 0000 674 B R6) RETURN TO USER VIA REG 6 
558 * RETURN CONTROL * Q0004D6 4C29 675 XIOGI TBT R4,GTI) WAS A GOOD INTERRUPT RECEIVED 
559 * * QO004D8 12F8 676 JON 1ocu YES BRANCH 
260 : B SPRNT DUMP STATUS BEFORE TERMINATION : oan be pee 0000 eae B R6) RETURN 
562 FOR IORI OI ICI IC IORI ICI OR 2 III IK a a a OO04FO 6A00 0534 679 Eenty Boi Rage) BERHGE Te ence 
OOO043E 706E 563 XIOER CPLSR R3 SAVE CONDITION CODE ON I/O ERROR OOO4E4 5600 680 BXS (R6) RETURN 
o33ues 2238 oot 38 RB nat Horn eOBgE en Goc°or keene 2 eas 
Cc 1/0 PARAMETER LIST 
000446 6802 0534 566 B R BRANCH TO PRINT ERROR 683 * a 
568 JOR do toi mg gio aOR i aC gO Ig i fei ak ak kak ak ack eke ak ak ak ak a OOOUES6 OO04C 684 IOBLK DC A(S$DVAD ADRS OF DEVICE ADRS 
569 * * OOO4ES8 O43E 685 IOERR DC A({XIOER ERROR ROUTINE ADRS 
570 * SOUBROUTINE * OOO04EA 0000 686 IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 
S71 * * OOO04EC 0000 687 IOMOD DC A (*-* MODIFIER 
572 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! * QOOOYEE 0000 688 DC A (¥-% ADRS OF LAST SVC CALL 
573 * * O004FO 0000 689 IORSP DC A (*-* SECOND WORD OF LAST IDCB 
244 * eae * 234 * INTERRUPT CO 
P NTROL BLOCK FOR I/O COMMAND 
576 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 692 * f aN? 
577 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * OO004F2 O04C 693 INTBL DC A ($DVAD ADRS OF DEVICE ADRS 
578 * EXPECTED CODE. * OOOYUF4 O466 694 INTO1 DC A (INTOK INTERRUPT OK RETURN ADRS 
579 * * QOOO4F6 O44A 695 INTO2 DC A(INTER INTERRUPT ERROR ADRS 
580 * CALLING SEQUENCE - OOO04F8 0003 696 INTCC DC X¥*0003'5 INTERRUPT CODE EXPECTED 
581 * * 698 33 OOO RIOR IO RO IO I IOI IOI I dak a ik ki Ok i kok ak 
582 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT * 699 * - 
583 * : 700 * SUBROUTINE x 
eae : RETURN CONTROL [ +35 : * 
CONNECT INTERRUPT CONTROL BLOCK * 
586 * svc EXIT RETURN TO USER VIA SUPVYR * 703 * Sr BREERREDENICE *x 
587 * me 704 * PURPOSE * 
588 JOO Oa Gog oi aor ogo Oo Gi ii cio iia gia ia koko tek kak ak ack a 705 * i 


EES8EO --- SYSTEM TEST EXERCISOR FOR THE ACCA SL PN=4414107 EC=754882 PAGE O04 EE8E0O --~- SYSTEM TEST EXERCISOR FOR THE ACCA SL PN=4414107 EC=754882 PAGE O4A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
206 . a0 couaser a INTERRUPT CONTROL BLOCK TO THIS DEVICE AND . DECLARED NAME ATTRIBUTES AND REFERENCES 
708 * TO INTERRUPT. POR e er are anor sO Rene SEE DENIS * 0 -R1. ABSOLUTE. HEX pet aoe. 
709 * * 218 219 220 224 225 226 239 242 244 
710 : CALLING SEQUENCE * 0 -R2. ABSOLUTE, HEX VALUE (00000002) 
* 
* é * 0 -R3. ABSOLUTE. HEX VALUE (00000003 
JAZ : THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: . nue TE ee! ae 290 ) oe see ie aoe 
714 * --> BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 965 389 590 596 623 624 632 673 728 
gi2 3 223 BAL SCOuN, 86 BREPARE Deyeee ONL : 0 Ru ABSOLUTE, HEX VALUE (0000004) 
HS ie wT BEEBE as a8 07 585 8733 
ETURN CON * 
719 * a eoessoe * 625 6 26 628 629 630 641 642 644 654 
720 : BXS (R6) RETURN TO USER VIA REG 6 x $36 628 $60 662 664 666 669 675 # £4678 
* 
722 Er EER TET SEE SSS ECSE LES SRERESE ESS SASEREESESEREL SER SESE PRE EES EES EES TEE 0 -R5. ABSOLUTE. HEX eaLUE SoCo Ogu) 
OOO4FA 723 $CONR EQU 168 169 170 171 172 514 516 518 520 
OOOUFA 4724 O4F2 724 MVA INTBL, R7 SET R7 TO CONTROL BLOCK AND 326 928 528 536 634 635 636 637 £639 
OOO4FE 6014 725 SVC CICB * CONNECT IT TO THIS DEVICE 640 755 (758 763 #765 769 
000500 68cC2 0000 726 B (Re) RETURN 0 -R6. ABSOLUTE. HEX VALUE (00000006) 
O8088t cas 0032 fs. are | et merece ee ae CT 
CLEAR OLD CONTROLS FOR NEW ROUTINE 
000508 8828 0056 O4EA 729 SCONP MVW SINTL? PODCB PUT IN LEVEL & INTR PARAMETER 661 674 #677 680 726 733 738 $$j§754 #£.+1759 
00050E 4724 O46 730 MVA  IOBLK,R SET R7 TO CONTROL BLOCK TO PREPARE 0 -R7. ABSOLUTE. HEX Seay he fe 
000512 4020 0014 O7FF 731 MVWI X'O7FF°, $I0IN INITIALIZE CONDITION CODE STORAGE 148 152 355 156 198 200 515 519 523 
000518 CB25 0016 732 MVWZ S$ISB,R3 * AND CLEAR OLD ISB VALUE 595 633 724 ~=_730 758 
00051C 6E0D 0018 733 MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST I/0 60 $CKPT ADDRESS. HEX Agana) aaa aaa IN CSECT(EE8EO +) LENGTH (2) 
000520 402F 0018 0004 734 SWI 4, LSTIO DECREMENT TO POINT AT INSTRUCTION 168 208 240 256 319 34 3 
Bones. a3e8 peoe 733 ava SPTD,F3 | LOAD ADDRESS OF START OF PRO 127 $CONC ADEN os a ake ace oa IN CSECT (EE8E0O } LENGTH (1) 
00052E 600C 737 SVC PREP Sean cere an eueva ADDRESS 723 $SCONR ADDRESS. HEX LOCATION(OOOOO4FA) IN CSECT(EE8E0 ) LENGTH (1) 
000530 68c2 0000 738 B (R6) RETURN 193 
749 He fe a ae ae a ah a i 2 2 ee of 2 a 2 a a 2 a fe fe 2 a 2 oe fc ae ae ae ate ale akc ae ate a ake ake ak ae a ke ofc ke ak ak a of kc ic ae ae fe a fe a ake afk afe ak ak fe ae ae 100 $DATA ae ary 4 nace Pd aaa ha gan CS ECT (EE8 EO gh gre eet a) 
* * 
pe * PUDEON renee Peas AMT ERPRCE ROULINE . 123 $DVAD ADDRESS. HEX LOCATION(0000004C) IN CSECT(EE8EO Ae LENGTH (2) 
Hid $777? © ROARED EETHAREN SOMBELARORESSSOEog’® DATA BEFORE THE gnc ig ein aie 
T4U5 * ----> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 126 $DVID ADDRESS. HEX LOCATION (00000058) IN CSECT(EES8E0 ) LENGTH (2) 
746 * BRANCH IS TAKEN TO PRINT THE ERROR * 202 205 
7147 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 125 SINTL ADDRESS. HEX pont tgs eo ogee IN CSECT (EE8E0O } LENGTH (2) 
748 * BRANCH IS TAKEN TO PRINT THE ERROR * 139 151 194 9 196 09 7 
403 . ----> PRNTRIN THIS LABELED ADDRESS IN SYST ID = D3410/SYST *x 97 $IOIN BDORESP eS LOCATION (00000014) IN CSECT(EE8E0 ) LENGTH (2) 
x 
134 EGLEPPGrEE HeSDMNOHO"HEOE QRSETEAPRLEGEMRE TERY EQUECES gg srsn ABBnas§'Zusx7Ecanzou (oooo00t6) zw csecr(zze0 ) LENGTH(2 
* ; 
Seneae.. WEBe-OOss 33 pe eae aa aaa ath Sl ch dl ah 127 $MXSL tee HEX LOCATION(QOOO00SA) IN CSECT(EE8EO ) LENGTH (2) 
4 $PRNT MVA OPTN3, R6 LOAD ADDRESS OF OPTION WORD THREE ; 
goose u8e Jod5 we a Brgag®® LOAD ADDRESS Sr SORES" oF Bhog OTS? ee ee ee ee 
vT i 
900540 4328 0042 33) AVA PCTR, R3 LOAD ADDRESS OF PASS COUNTER 55 $PID ORE seus ree oy eeeo000) IN CSECT (EE8EO ) LENGTH (4) 
000548 CE25 0012 759 MUWZ OBES, Re ZERO ee ALL ar Ge Re nouaree 754 $PRNT ADDRESS. HEX LOCATION (00000534) IN CSECT(EES8E0O } LENGTH (4) 
BB8885 8525 8995 ooo 185 ERE SEEN EESovonns —‘ESMRADAPE RUBEFSS BOB. guRECHTORS £25 cdl vos ebb ast cooktbscat ity elinurne 
900356 1303 a 7162 JNE $PRN2 BRANCH a NO Be 766 $PRN1 ae ae LOCATION (00000562) IN CSECT(EE8E0 ) LENGTH (2) 
e e 7 
99055¢ 5002 Tei a: EE See ee peruca ee 765  $PRN2 ADDRESS. HEX LOCATION(000005SE) IN CSECT(EE8EO ) LENGTH (4) 
t t 
900362 6002 : Fee Spene Sven tee aie BELLY sea eaaks 141 $PUPD ADDRESS, HEX LOCATION (00000078) IN CSECT (EE8E0O } LENGTH (4) 
HATE b Ps papi 0080 Le aon aneene SUCH eae BERAENATE 161 $PUP8 ADDRESS. HEX LOCATION (000000B0) IN CSECT(EE8EO ) LENGTH(6) 
QOO50A 7DAt 0001 769 ARI dgke, Sec Noe Cee 150 $RETI ADDRESS. HEX LOCATION(0000008C) IN CSECT(EE8EO ) LENGTH (6) 
000570 6802 006 7 
SunO ne ae abun sea Cca te co ha NRROREECEEREREA EL OS eee nent etcce nee ea ends pageise 178 SRTAD ADDRESS. HEX LOCATION (QOOQOOODC) IN CSECT(EE8E0 ) LENGTH (2) 
FT 3 HM MK HR HH MR HEM HM 2 EK A HC 2 KC 2K Ke i a ae acc ic eC 174 
900574 4OKO4O404K04040404 448 DRBUF DC CL4O8 ‘ MAXIMUM READ BUFFER 99 $RINE Moe aed te ee IN CSECT(EE8EO ) LENGTH (2) 
776 peeeeke FAktCROKEREREERE RS EREREERE RE REREREOREREE EERE REESE SEERERETER EEE 147 $STERM BRDRESS- HEX LOCATION(00000080) IN CSECT (EE8E0 ) LENGTH (6) 
C800 G2 ot END = SPENT 155 $TER1 ADDRESS. HEX LOCATION (OQOO00A4) IN CSECT(EE8E0 ) LENGTH (4) 
| 92 CE ABSOLUTE, HEX VALUE (00000028) 
; 38 CICB ABSOLUTE. HEX VALUE(00000014)} 
51 CPUTYPE ABSOLUTE. HEX VALUE (00000232) 
91 cs ABSOLUTE, HEX X ALUE (90000027) 
111 CSBUF RDORESS. "HEX, LOCATION (00000032) IN CSECT(EE8EO ) LENGTH(1) 
365 CSDCB ADDRESS. HEX LOCATION (00000334) IN CSECT(EES8EO )} LENGTH (1) 
678 CSRIN ADDRESS. HEX LOCATION (OOOOO4DE) IN CSECT(EE8EQO ) LENGTH (2) 
246 CSST4 ADDRESS. HEX LOCATION(000001A4) IN CSECT (EE8EO ) LENGTH (4) 
119 CSTL8 ADDRESS. HEX LOCATION (00000040) IN CSECT(EES8E0 ) LENGTH (2) 
: 103 DCBUF ADDRESS. HEX LOCATION (00000022) IN CSECT (EES8E0O }) LENGTH (2) 
101 DEV3 ADDRESS. HEX LOCATION (000QQ01E IN CSECT (EE8E0 ) ge ENGTH (2) 
171 172 204 20 222 28 244 261 266 
271 278 285 203 640 
102 DEV4 ADDRESS, ,HEX LOCATION (00000020) IN CSECT(EE8EO ) LENGTH (2) 
377 DGDCB ADDRESS. HEX LOCATION (00000344) IN IN CSECT (EE8E0 Sha LENGTH (1) 
258 264 263 266 268 71 274 278 
774 DRBUF ADDRESS. HEX LOCATION (00090574) IN CSECT(EES8E0 L LENGTH (40) 
217 218 219 222 224 25 228 239 258 
260 263 265 # 268 270 273 274 276 277 
280 281 283 284 289 292 236 298 301 
05 307 310 342 344 316 20 321 322 
361 385 398 4410 
353 DRDCB ADDRESS. HEX LOCATION(00000324) IN CSECT(EES8EO ) LENGTH (1) 
390 DSDCB ADDRESS. HEX LOCATION (00000354) IN CSECT(EE8E0 ) LENGTH (1) 
36 EE8E0 CSECT. START (00000000) LENGTH (1436) ESDID(0) 


EBE8EO --- SYSTEM TEST EXERCISOR FOR THE ACCA SL 
CROSS~REFERENCE LISTING 


DECLARED NAME 
85 ER 
44 EXIT 
402 E1DCB 
415 E2DCB 
93 GI 
128 HO0000 
129 HO001 
42 IDLE 
87 IN 
693 INTBL 
589 INTER 
598 INTET 
623 INTOK 
645 INTRX 
629 INTR1 
634 INTR2 
642 INTR3 
684 IOBLK 
686 IODCB 
685 IOERR 
687 IOMOD 
689 IORSP 
216 ITSTA 
196 ITST4 
207 ITsT5 
230 ITstT7 
224 ITST9 
89 LE 
90 LI 
99 LSTIO 
84 MI 
62 OPTN1 
72 OPTN3 
120 PCTR 
94 PE 
43 PREP 
50 PRNTRTW 
47 RESET 
4 RICB 
48 RID 
193 RTO1 
238 RTO2 
255 RTO3 
303 RTQO3A 
312 RTO 3B 
319 RTO3E 
263 RTO31 
268 RTO 32 
273 RTO 33 
280 RTO34 
287 RTO35 
292 RTO 36 
301 RT037 
310 RTO 38 
294 RTO039 


ATTRIBUTES AND REFERENCES 


ABSOLUTE. HEX VALUE(00000021) 
53 598 678 
ABSOLUTE. HEX VALUE (00000006) 


RESS. 
RESS. 
G47 
LUTE. 
67 


HEX LOCATION (00000364) 
HEX LOCATION (00000375) 
HEX VALUE (00000029) 
RESS. HEX LOCATION(0000005C) 
RESS. HEX LOCATION (0000005E) 

OLUTE. HEX VALUE (00000002) 

OLUTE. HEX VALUE (00000023) 

RESS. HEX LOCATION (000004F2) 
RESS. HEX LOCATION (0000044a) 
RESS. HEX LOCATION (00000462) 
RESS. HEX LOCATION( 00000466) 
RESS. HEX LOCATION (0000049C) 
HEX LOCATION (00000474) 
HEX LOCATION (00000482) 
HEX LOCATION (00000496) 


(o) 


2) 
te 
Wn 


59 
RESS. 
RESS. 


HEX LOCATION (00000458) 
HEX, LOCATION (000004EC) 
LOCATION (000004F0) 
HEX LOCATION (00000148) 
HEX LOCATION (000000F4) 
HEX LOCATION (00000122) 
HEX LOCATION (00000180) 
HEX LOCATION (00000168) 
HEX VALUE (00000025) 
HEX VALUE (00000026) 


wm wm 


wm fy 
ie] 
”N 
nn 
e 


OLUTE. 
656 
OLUTE. 


HEX VALUE (00000020) 
HEX LOCATION (0000000E) 
HEX LOCATION (00000012) 
; HEX POCATLON (00000042) 
HEX VALUE (00000024) 
HEX VALUE (0000000C) 
HEX VALUE (00001818) 

, HEX VALUE (00000008) 
OLUTE. HEX VALUE (00000013) 
OLUTE. HEX VALUE (00000009) 
RESS. HEX LOCATION (000000£6) 
ESS. HEX LOCATION (00000184) 
ESS. HEX LOCATION (000001A8) 
RESS. HEX LOCATION (00000282) 
HEX LOCATION (000002A4) 
HEX 
2 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 IO OO i OR OI IOI I ROI IO II OR I I IO IO CIO IO Bok RI doa dk ak ak 000042 00000000 120 PCTR DC 2A (*-* PASS COUNTER 
yx x 000046 00000000 121 ECTR DC 24 te) ERROR COUNTER 
5 * tok PREREQUISITES kK * OOOO4A 0005 122 ERNUM DC X¥'0005 NUM OF ERRORS PROG CAN HAVE 
6 * x O0004C OOEIY 123 $DVAD DC X*OOES* DEVICE ADDRESS BEING TESTED 
7 * NONE * OOOO4E 0000000000000000 124 DC XL8'00! 
8 * x 000056 00000000000000000 125 DC XL10'008 ee ee te te 
CTT S CCS CSS OSS SCCS CS SISCSSCSCSCOCS SOC SC CSL SS SCS SSS SC SST TS TST SST PTS PT PS Pe TP es es 000060 d0000000000000000 126 pc X¥L10°008 et et wt of 
10 * * COO006A 00000000000000000 127 DC XL10'OO* er te wt we 
11 * KX MODIFICATIONS * & * 000074 006000000000000000 128 DC XL10'00! cee ts ee te 
12 * * CO007E 00000000000000000 129 DC XL10'00°8 ee ee te te 
13 * CHANGES MADE TO ROUTINE TO TEST DIAG DATA * 600088 00000000000000000 130 DC XL10*00!8 te wt et ee 
14 * * 000092 00000000000000000 131 DC XL10'00°% ee tt vet er 
95 OO ok ORI IOI III I IIR da IO RO i OK ak ak ak kc ak 00009C 0011 132 $INTL DC x'oo118 INTERRUPT LEVEL REQUESTED 
16 * * QOQO009E 2005 133 $DVID DC X*200E! DEVICE IDENTIFICATION 
17 * 4k REA'S INCORPORATED kr * OOOOA0 0005 134 $MXSL DC A (>) MAXIMUM SELECTABLE ROUTINES 
18 * * OOOO0A2 0000 135 HOOOO DC x*o0008 CONSTANT 
19 * 27-11576 a OOOOA4 0001 136 HOOO1 DC X*0001' HEX WORD CONSTANT 
20 * * 0000A6 2300 137 TYPE23 DC X'23005 CONSTANT TO CHECK PROCESSOR AGAINST 
21 OK Io ORO i a I IOI II ROR IOI IRR IORI ORK kk OOOOA8 90000000000000000 138 $DVUT DC X¥L10'008 DEVICE ADDRESS UNDER TEST 
22 * * 100 FOO ROR OR RIOR RIO IORI II OR III to mR IR Ik ak i a kok aR ke kek ak akc ok afc ite ake ake 
23 * ak SPECIAL INSTRUCTIONS slailad * 141 * * 
24 * x 142 * PROGRAM CONTROL FUNCTIONS * 
25 * NONE * 143 * : x 
26 * *x TO ORO RII IG IOI oR ROR ik koi ii ag i kik ako aki kolo akok ak teat ato ak 
97 OOO IOI IO IOI IO ROR IOI i I OR io oro IR OR I kk fk af ak af afc OOOOB2 4020 OUFR6 O043C 145 SPENT MVA XIOER,IOERR RESTORE ERROR ADDRESS 
28 * * OO000B8 AB8B2A OOA2 0042 146 AD HOOO ADVANCE PASS COUNTER BY 1 
29 * ak EF. C. HISTORY eo 2K * OOOOBE 4020 O009C 0011 147 MVWI X'ool! S$INTL INIT INTERRUPT LEVE 
30 * * QO0O00CK 4020 OS5CE 0056 148 MVA $DVAD+10, WORK1 SAVE NEXT DEVICE ADDRESS TO TEST 
31 * DATE O6MAY77 DATE 15SEP77 DATE DATE * QOOOOCA 4724 OOOA 149 MVWI 10,R7 INIT RV WITH COUNT 
32 * E.C. 578756 E.C. 754882 EC. Bs Ge * OOOOCE 4524 OOKC 150 MVA $DVAD, RS LOAD R5 WITH FROM ADDRESS 
33 * * 0O000D2 4324 OOA8 151 MVA $DVUT, R3 LOAD R3 WITH TO ADDRESS 
3.4 2A ROR OO I II III IORI aki ak tak ak aii ak ok ak ak Q000D6 2D64 152 MVFN fB2)}, (R3) MOVE ENTRY 
000000 36 EEQEO START x*0000° 0000D8 CE25 OOOA 153 $PEN1 MVWZ S$RTNE,RO CLEAR OLD ROUTINE NUMBER 
37 * SUPERVISOR EQUATES OOOODC 4424 OO0O0E 154 $PUPD MVA OPTN1, RY RG MUST BE SET TO 'OPTN1! 
000014 38 CICB EQU 20 CONNECT INTERRUPT CONTROL BLOCK OOO0EDO 4C03 155 PUP2 TBT Ri Thy IS TERMINATE PGM REQUESTED 
000001 39 OUTIN EOQU 1 OUT MESSAGE WITH EXPECTED RESPONCE OO000E2 1026 156 JZ pubs * NO, CONTINUE CHECKING 
OOOOTA 40 HTOE EQU 26 CHANGE HEX DATA TO EBCDIC DATA 157 * 
000006 41 EXIT EQU 6 EXIT INTERRUPT LEVEL 158 * TERMINATE CONTROL BIT FOUND ON 
000002 42 IDLE EQU 2 SHARE PROGRAM TIME WITH OTHER PGMS 159 * 
00000C 4&3 PREP EQU 12 PREPARE DEVICE OOOO EY 4C8BD 160 S$TERM TBTR Sa geet TURN OFF QUES INDICATOR 
000013 44 RICB EQU 19 RELEASE INTERRUPT CONTROL BLOCK OOO0E6 4C4F 161 TBTS R) TURN ON RETURN VIA 6 INDICATOR 
OOOO0A &5 START EQU 10 START CYCLE STEAL COMMAND OOOOES8 4020 O5D0 162 MVA et Ste RK2 LOAD RETURN ADDRESS 
000007 46 TERM EQU 7 TERMINATE THIS PROGRAM OOOOEE 4624 QO12E 163 MVA S$TER2, R6 LOAD ENDING ADDRESS 
000008 47 RESET EQU 8 DEVICE RESET OO00F2 6802 O57C 164 B SUPD BRANCH TO START THINGS OFF 
000009 U8 RID EOU 9 DEVICE READ ID OOOOF6 4020 O4EG 165 $TER3 MVA $RETI, INIT ERROR ADDRESS 
000000 49 REG FOUR 0 WORK REGISTER OOOOFC 4724 O4EY 166 MVA IOBLK, LOAD ADDRESS OF CONTROL BLOCK 
OO0181E 50 PRNTRTIN EQU X'181E® COMMON PRINT ROUTINE ADDRESS LOCATION 000100 6008 167 SVC RESE ISSUE SVC 
000232 51 CPUTYPE EQU xX*'0232° ADDRESS OF PROCESSOR TYPE 000102 4020 O4F6 OT1TA 168 $RETI MVA $TER1,I1OERR INIT ERROR ADDRESS 
52 * 000108 8828 009C O4ESB 169 MVW SINTL, IODCB LOAD CURRENT INTERRUPT LEVEL 
53 * PROGRAM HEADING AND CONTROL WORDS OOO010E 4724 OEY 170 MVA IOBLK, RT LOAD ADDRESS OF CONTROL BLOCK 
5u * 000112 402D OWES 0001 171 RBTWIL x'0004", TODCB TURN OF PREPARE "I BIT 
000000 CS5SF9IFOFO 55 $PID DC C'E9008 PROGRAM IDENTIFICATION 000118 600C 172 SVC PREP ISSUE SVC 
000004 0000 56 pc XL2*0000! CURRENT LEVEL OF PROGRAM 00011A C720 OO4C 173 $TER1 MVB $DVAD,R7 LOAD CURRENT DEV ADDRESS 
000006 OO0B2 57 pc A SPENT -> TO START EXEC ADDRESS OOO011E T7FEX FFOO 174 RBTWI X'FFOO', RI ZERO HIGH ORDER BYTE 
000008 0O004C 58 DC A(SDVAD -> TO DEVICE TABLE 000122 6013 175 SVC RICB ISSUE SVC 
OOOOO0A 0000 59 $RTNE DC A (*-* ROUTINE NUMBER BEING RUN 000124 4020 O5DO OOFE 176 MVA STER3,WORK2 LOAD RETURN ADDRESS 
00000c 0000 60 $CKPT DC A (*-* LAST CHECK POINT PASSED Q0012A 6802 0572 177 B SUPDA BRANCH TO SFT UP D.A. 
OOOO00E 0000 62 OPTN1 DC x*Q0008 PROGRAM OPTION CONTROL WORD 1 O0012E 6007 aac $TER2 SVC TERM ISSUE SVC 
64 * BIT FUNCTION 000130 A828 OOAY OOOA 181 $PUP8 AW H0001, $RTNE ADVANCE ROUTINE NUMBER 
65 * 000136 882B OOAO OOOA 182 W MXSL, S$RTNE CHECK FOR LAST AUTOMATIC ROUTINE 
000003 66 TM Bou 3 TERMINATE PROGRAM 00013C =10BA 183 JE PENT * BCH AND START WITH RTN 1 
00000D 67 QUES EQU 13 QUESTION HAS BEEN ASKED 184 * 
OOOO0OE 68 IND EQU 1% INDICATOR 185 * GET RIN NUMBER AND BCH TO THAT RTN 
OQOOOOF 69 DIR EQU 15 SEEK DIRECTION INDICATOR 186 * 
70 * O00013E 6E08 OOOA 187 $PSEL MVW RTNE, R6 MOVE RIN NOMBER IN REG 
000010 0000 71 OPTN2 DC x*0Q000* PROGRAM OPTION CONTROL WORD 2 000142 CD25 OQ00C 188 MVWZ CKPT, RS ZERO CHECKPOINT 
000012 0000 72 OPTN3 DC X¥*0000' PROGRAM OPTION CONTROL WORD 3 000146 CD25 OO1A 189 MVWZ DATA,R5 ZERO ALL FOUR WORDS OF DEV 
13 * OOO014A CD25 OO0O1C 190 MVWZ $DATA+4+2,R5 * DEPENDENT DATA 
74 * O MYSTERY INTERRUPT MI 8 CS STATUS INTERRUPT ERR CE QQOOQO1T4E CD25 OO1E 191 MVWZ DEV3, : sstesteteaiettestetenneteteteteen 
75 * 1 ERROR INTERRUPT ER 9 GOOD INTERRUPT RECEIVED GI 000152 CD25 0020 192 MVW2 DEV3#*2,R5 j ® 22-2--------- 
76 * 2 EXPECTED INTERRUPT XI 10 PROBABLE ERROR EXPECTED PE 000156 3609 193 SLL 1-R ROUELE FOR BRANCH TABLE 
ae bi 3 INTERRUPT RECEIVED IN 11 NO INTERRUPT EXPECTED NI 000158 68D2 015C 19¢ ‘ B (R6, $RTAD) * BCH VIA RTN TABLE 
79 * +;\44Y EXPECTED ERR/ATTENT XE 12 N.U. 196 * TABLE OF ROUTINE ADDRESSES 
80 * 5 WRONG INTR LEVEL LE 13 N.U. 197 * 
81 * 6 LOAS INTERRUPT LI 14 WN.U. 00015C 0O0B2 198 $RTAD DC A ($PENT) NO RTN SELECTED 
82 * 7 CS STATUS IN PROGR cs 15 N.U. O0015E 90166 199 DC A (RTO1 ROUTINE ADDRESS 
B3 * BIT HEX 000160 0228 200 DC A (RTO2 ee ee 
000020 84 MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000162 0256 201 DC A(RTO03 ef te 
000021 85 ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 000164 O2D4 202 DC A(RTO4 es ts 
000022 86 XI EOU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 2OW RK ok kk kik kok ak ik kok kok kkk ok kk kk kek kok lok kokok kok kako iokoko lok kok kok kak aio kako ako koak akc fe ake ae 
oonose 87 IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 205 CHANNEL INTERFACE TEST * 
000024 88 XE EQU 36 4 8 EXPECTED ERROR RESPONSE 206 * * 
000025 89 LE EQU 37 5 4 INTERRUPT ON WRONG LEVEL ERROR 207 * TO VERIFY THE CHANNEL INTERFACE CAN INTERRUPT ON ALL LEVELS * 
000026 90 LI EQU 38 6 2 LOST INTERRUPT 208 * THE PROG WILL PREPARE THE I/0 DEVICE TO INTERRUPT ON LEVEL ZERO * 
000027 91 CS EQU 39 7 1 CYCLE STATUS IN PROGRESS 209 * AND CAUSE AN INTERRUPT. WHEN THE INTERRUPT OCCURS, THE LEVEL IS * 
000028 92 CE EQU 40 8 8 CYCLE STEAL STATUS INERRRUPT ERROR 210 * COMPARED TO THE EXPECTED LEVEL. THIS IS DONE ON aEL LEVELS * 
000029 93 GI EQU 41 9 4 GOOD INTERRUPT RECEIVED (EXPECTED ER) 211 * EXCEPT LEVEL THREE. THE CHECKSUM IS THEN READ AND CHECKED. * 
00002A 94 PE EOU 42 10 2 PROBABLE ERROR EXPECTED 212 [ORO OR iO GI GO OR IO IO IGOR RII Ow ROI IR IOI R IO kk gaR RR gag kakokokakokagoaik ak 
00002B 95 NI FOU 43 11 1 NO INTR. EXPECTED UNPREPED DEV. 000166 6E03 O4F8B 213 RTO1 BAL CONR, a CLEAR AND CONNECT nae BLK 
000014 0000 97 $IOIN D A (*-* . O AND INTR CONDITION CODES 00016A 6A08 OO09C 214 MVW INTL SAVE SELECTED INTERRUPT 
000016 0000 98 $ISB DC A (*-* toe. STATUS BYTE & DEV ADRS OOO016E 4020 O09C FFF1 215 VWI XtFEFAS ape SET UP INTERRUPT LEVEL FOR PREP 
000018 0000 99 LSTIO DC A (*-* Boks 5 LAST I/O + 4& BYTES 000174 4029 009C 0010 216 ITST4Y AWLI x10 SER ADV INTR LEVEL STARTING AT 0 
00001A 00000000 100 S$DATA DC 2A (*~*) DEVICE. DEPENDENT DATA QOO17A 6E0O3 0502 217 BAL $CONC, ee GO PREPARE ON ff EW LEVEL 
OO0O001E 0000 101 DEV3 DC A (*-* DEPENDENT DATA DEV3 OOO17E 4724 OEY 218 MVA IOBLK, SET UP POINTER TO CONTROL BLOCK 
000020 0000 102 DEVS DC A (*-* DEPENDENT DATA DEVY4Y 000182 6008 219 SVC RESET. CALL SUPVR TO ISSUE RESET 
000022 0000 103 DCBUF DC A (*-* LAST DCB TABLE, CONTROL WORD 000184 4724 OWFRY 220 MVA ITOBLK, R7 SET UP POINTER TO heey aa 
000024 0000 104 DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000188 6009 221 SVC RID CALL SUPVR TO ISSUE READ 
000026 0000 105 DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 00018A 6908 OUEE 222 VW ITORSP,R1 LOAD RECEIVED DEVICE ID 
000028 0000 106 DCBY DC A (*-* LAST DCB TABLE, DEV DEP WORD 00018E 7924 0300 223 RBTWI xX'0300',R1 RESET UNKNOWN BITS 
00002A 0000 107 DCBS pc A (*-%* LAST DCB TABLE, DEV DEP WORD 000192 C924 OO09E 224 W $DVID, R4 IS ID RECEIVED THE SAME 
00002C 0000 108 DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000196 1008 225 JE ITST5 * YES, CONTINUE 
QOQO002E 0000 109 DCB7 DC A (*- * LAST DCB TABLE, BYTE COUNT 000198 8828 OYEE OOTE 226 MVW IORSP,DEV3 LOAD RECEIVED ID INTO DEV3 
000030 0000 110 DCB8 DC A (*¥-* LAST DCB TABLE, BUFFER ADDRESS Q00019E 8828 OO9E 0020 227 MVW $DVID, DEV 3+2 LOAD EXPECTED ID INTO DEV4Y 
000032 111 CSBUF EQU * CYCLE STEAL DATA BUFFER QOOO1TA4 6802 0532 228 B $PRNT BRANCH TO PRINT ERRO 
000032 0000 112 CSTL1 D A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 0001A8 6F03 O3A0 229 ITST5 BAL XIODR, R6 EXEC NO-OP TO GET AN INTR 
000034 0000 113 CSTL2 DC A (4—* CYCLE STEAL WD 2, DEVICE DEPEND 0001AC 4029 000c 0001 230 AWI 1, $cKbr BUMP CHECKPOINT 
000036 0000 114 CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 0001B2 402F O009C 0021 231 CWI X*'21",$INTL HAS INTR LEVEL COME DOWN TO 2 
000038 Q000 115 CSTL4& DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND 0001B8 18DD 232 JNE ITSTY * NO, BCH AND CONTINUE TEST 
Q00003A 0000 116 CSTL5 DC. A (¥-* CYCLE STEAL WD 5, DEVICE DEPEND OO01BA 6A0D 009C 233 MVW R2,SINTL RESTORE SELECTED INTR LEVEL 
00003C 0000 117 CSTL6 DC A (#-* CYCLE STEAL WD 6, DEVICE DEPEND OOO1TBE 6E03 0502 234 BAL $CONC R6 SET UP FOR START IO ON CORRECT LEV. 
OOOO as 0000 118 CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 0001C2 402B OOBO 0080 235 TWI x*0086' ,$pvuT+8 IS DTR JUMPERED ON 
0040 0000 119 CSTL8B DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 0001C8 1202 236 JON ITSTA BRANCH YES 
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LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBH CORP 1976 
QO01CA 6E03 03B8 237 BAL XIODS, R6 BRANCH TO ISSUE DISABLE 000330 O5DE 355 DRADR DC A (DRBUF BUFFER ADRS 
OOO1ICE 6£E03 0384 238 ITSTA BAL XIODG, R6 SET UP FOR START IO 356 * ( 
0001D2 U224 OSDE 239 ITSTC MVA DRBUF, R2 SET UP TO CHECK CHECKSUM 357 * CYCLE STEAL DATA CONTROL BLOCK 
0001D6 6908 OSDE 240 MVW DRBUF, R1 SET UP TO CHECK CHECKSUM VALUE 328 * 
OOO1IDA 6398 05E0 241 XW DRBUFE2,R1 * AGAINST SHOULD BE 000332 59 CSDCB EQU * USE FOR DCB REFERENCE ONLY 
QO01DE 921 0001 242 AWI 1,81 CHECK FOR A VALID CHECKSUM 000332 2000 360 CSCTL D X¥*20008 CONTROL WORD 
0001E2 1005 243 JZ. xrksr9 BCH IF OKAY | 000334 0000 36% CSPMS DC X*'0000* HOT USED 
QOO1E4 9028 OSDE O01FR 244 MVD DRBUF, DEV3 MOVE ERRORED CHECKSUM VALUE 000336 0000 362 CSSKP DC xX¥*°0000° NOT USED 
OOO1EA 6802 0532 245 B $PRNT BRANCH TO PRINT ERROR 000338 0000 363 DC x*0000° 
OOO1EE 6908 OSE2 246 ITST9 NVW DRBUF+4, R1 SET UP TO CHECK CHECKSUM VALUE 00033A 0000 364 DC x‘00008 
QO01F2 690B OSE4 247 XW DRBUF+6,R1 * AGAINST SHOULD BE 00033C 0000 365 CSCHN DC ea CHAIN ADRS, NOT USED 
OOO1F6 7921 0001 248 AWL 1,R1 CHECK FOR A VALID CHECKSUM 00033E 0006 366 CSBCT DC x*0006 BYTE COUNT 
OO01FA 1005 249 JZ T#stTs BCH IF OKAY 000340 0032 367 CSADR DC A (CSBUF) BUFFER ADRS 
OOO1FC 9028 OSE2 OO1E 250 MYD DRBUF+4 , DEV3 MOVE ERRORED CHECKSUM VALUE 368 * 
000202 6802 0532 251 B $PRNT BRANCH TO PRINT ERROR 369 * DIAGNOSTIC DATA CONTROL BLOCK 
000206 6908 O5E6 252 ITSTS MVW DRBUF¢8 SET UP TO CHECK CHECKSUM VALUE 370 * 
0O0020A 690B O5E8 253 XW DRBUFS 10) * AGAINST SHOULD BE Ene: Ne. DGDCB Eau * USED FOR DCB REFERENCE ONLY 
00020E 7921 0001 254 AWL 1 CHECK FOR A VALID CHECKSUM 00034 oun 372 DGCTL D x5 3900! CONTROL WORD 
000212 1005 255 JZ inkl, BCH IF OKAY 000344 T7FFE 373 DGDC2 DC X'JFFEt N. Ue 
000214 9028 OSE6 O01E 256 MVD DRBUF+8,DEV3 MOVE ERRORED CHECKSUM VALUE 000346 DCBA 374 pDGDC3 DC X"*DCBA? 
00021A 6802 0532 257 B PRNT BRANCH TO PRINT ERROR 000348 9876 375 DGDC4 DC X*°9876°? 
00021E 4020 OS5SDO 0132 258 ITST7 MVA PSEL, WORK2 STORE RETURN ADDRESS O0034A 5432 376 DGDC5 DC X*5432¢ 
000224 6802 0572 259 SUPDA- BRANCH TO CONTINUE 00034C 0000 377 DGCHN DC A (0000) CHAIN ADDRESS 
261 OR ORO koi lok gokokok tok ioiok oki gi Rok io ok i kokokgotaiok tok tek tok ak ak ae ok OO0034E 0010 378 DGBCT DC X¥°0010 BYTE COUNT 
262 * CYCLE STEAL STATUS #e , 000350 O5DE 379 DGADR DC A (DRBUF) BUFFER ADDRESS 
263 * THIS TEST WILL VERIFY THAT THE ATTACHMENT WILL SEND BACK THE * 381 * 
208 : ADDRESS OF THE LAST CYCLE STEAL ADDRESS. . 382 : DISABLE DTR CONTROL BLOCK 
266 HR HK He He he eH KK ee ee Re che he ee ae ae oe hc oh He ee 2h cafe 2 ae a ak ae ade ate a ak ake 2k ae ake kc fe a a aie 2 ic af ake afc af fe ae a 2k 2k 2 000352 384 DSDCB EQ0 * USED FOR DCB REFERENCE ONLY 
000228 6803 0502 267 RTO2 BAL $CONC, R6 PREPARE DEVICE ON CORRECT LEVEL 000352 o000c 385 DSCTL D x'*O00O0C?# CONTROL WORD 
00022C 4124 0331 268 MVA DRDCES IS, R1 LAST CYCLE ADRS USED 000354 0000 386 DSDC2 DC X¥*Q000° ~U. 
000230 4029 000C 0001 269 AWI CKPT BUMP CHECKPOINT 000356 0000 387 DSDC3 DC X*00008# 
000236 62803 O3A0 270 BAL itopae R6 BRANCH TO ISSUE DTR 000358 0000 388 DSDC4 DC x¥*00008 
00023A 6E03 O3CA 271 BAL XIOCS, R6 GO GET STATUS FROM LAST 1/0 00035A 0000 389 pSDC5S Dc X¥*00008 
00023E C924 0032 272 CW CSBUF, R1 COMPARE LAST STG LOCATION USED , 00035C Q000 390 DSCHN DC Xx*Q0008 TES pUPEES? 
000242 1004 273 JE sstT4 ANCH IF GOOD ADDRESS 00035E 0000 391 DSBCT Dc x*0000! BYTE COUN 
000244 690D 0020 274 MVW Rt DEV3+2 reap EXPECTED ADDRESS INTO DEV4 000360 O5DE 392 DSADR DC A (DRBUF) BUFFER ADDRESS 
000248 6802 0532 275 B $SPRNT BRANCH TO PRINT ERROR 393 * 
00024C 4020 O05D0 0138 276 CSSTY MVA $PSEL,WORK2 STORE RETURN ADDRESS 394 * ERROR ONE DATA CONTROL BLOCK 
000252 6802 0572 277 BRANCH TO CONTINUE 395 * 
279 OK IO ROR rR Rk dak iota kkk koko kak ok kkk tk ak 2k kk ak 2k kk 2K iC a te a afc a otc ofc ak a ae a a ake ae ae oe ac ake oe 000362 396 E1DCB ae * USED FOR DCB REFERENCE ONLY 
280 * DIAGNOSTIC MODE F 000362 8008 397 EICTL D x'8s008°8 CONTROL WORD 
281 * CHECK ALL POSSIBLE FUNCTION OF DIAGNOSTIC MODE * 000364 0000 398 E1DC2 DC x*0000! .U. 
282 * * 000366 0003 399 E1DC3 DC X¥*0003! 
283 * ISSUE A DIAG MODE WO COMMAND THEN INSPECT THE RECEIVED DATA * 000368 0333 400 EIDC& DC X' 0333 
284 * WORD 4& THRU 17 AGAIN SHOULD BE VALUES. * 00036A 0000 401 £1DCS DC X'*00008 
285 FIO IO RE EERE RSE EEE AE OO ORI II a IO ok soko ack teak 00036C 0373 4Q2 E1CHN DC A (E2 DCB) CHAIN ADDRESS 
000256 6£8£03 0502 286 RTO3 BAL $cONC R6 PREPARE DEVICE ON CORRECT LEVEL 00036E 0000 403 E1BCT DC x*0000°8 BYTE COUNT 
00025A 4029 000C 0001 287 AWI $CKbT BUMP CHECKPOINT 000370 O5DE 404 E1ADR DC A (DRBUF) BUFFER ADDRESS 
000260 6803 0384 288 BAL rtope R6 BRANCH TO ISSUE DIAG. COM. ‘ 405 * 
op 2e. 4028 00BO 8000 289 RTO35 Tar x¥8905', $pvur+s TS CARRIER DETECT JUMPER INSTALLED | hoe . ERROR FOUR DATA CONTROL BLOCK 
00026C 402B O5EA 1000 291 TWI X*1000', DRBUF+12 DOES HARDWARE VERIFY 000372 00 408 DC X*00!' 
000272 1228 292 JON RTO3E BRANCH IF NO 000373 409 E2DCB EQU USED FOR DCB REFERENCE ONLY 
000274 5004 293 J RT031 BRANCH 000373 0000 410 E2CTL DC x*Q0000° CONTROL WORD 
000276 402B OSEA 1000 294 RT036 THI X¥*1000', DRBUF+12 DOES HARDWARE VERIFY 000375 0000 411 E2DC2 DC X*Q0008 N.U. 
00027C 1023 295 JOFF RTO3E BRANCH IF NO 000377 0000 412 E2DC3 DC X*Q0008 
00027E 402B 00B0 0080 296 RTO3T THI X'0080", $DVUT+8 IS DTR JUMPER INSTALLED 000379 0000 413 E2DC4 DC X*Q000° 
000284 1005 297 JOFF RT037 BRANCH NO 00037B 0000 414 E2DC5 DC X*00008 
000286 402B OSEA 4000 298 TWI X'*4000', DRBUF+12 DOES HARDWARE VERIFY 00037D 0000 415 E2CHN DC X'00008 CHAIN ADDRESS 
00028C 1218 299 JON RTO3E BRANCH NO 00037F 0000 416 E2BCT DC X*O0000!8 BYTE COUNT 
00028E 5004 300 J RT032 BRANCH 000381 0000 417 E2ADR DC x*00008 BUFFER ADDRESS 
000290 402B OS5EA 4000 301 RT037 TWI X'4000', DRBUF+12 DOES HARDWARE VERIFY 000383 00 418 ALIGN WORD 
000296 1016 302 JOFF RTO3E BRANCH IF NO 420 =a aikak iok k  ok ok ak  OK kok kk dak tok kkk kok ae ok foi ak ak ak fake 2 3 2k 
000298 402B O0BO 0040 303 RT032 TWI xX*'0040', $DVUTHS REQ TO SEND JUMPERED ON 421 * ISSUE ALL I/O COMMANDS FROM A COMMON SUBROUTINE * 
Q0029ER 1005 304 JOFF RT038 BRANCH NO G22 * TO DISPLAY INSTRUCTIONS AND OPERATING PROCEDURES TO THE OPERATOR* 
0002A0 402B OSEA 2000 305 TWI X*2000', DRBUF+12 DOES HARDWARE VERIFY 423 * AND SET UP ANY REQUIREMENTS FOR OTHER I/O COMMANDS * 
0002A6 120E 306 JON RTO3E BRANCH NO G24 * * 
OO02A8 5004 307 J RT033 BRANCH 425 * --> BAL XIODG, R6 XEQ DIAG. MOD = D COMMAND * 
QOO02AA 402B O5SEA 2000 308 RTO038 TWI X*2000', DRBUF+12 DOES HARDWARE VERIFY 426 * --> BAL XIODR, R6 XEQ DTR COMMAND * 
0002B0 1009 309 JOFF RTO3E BRANCH IF NO G27 * -~> BAL XIOE1,R6 XEQ ERROR ONE COMMAND * 
0002B2 402B OS5EA 0008 310 RT033 TWI X*0008', DRBUF+12 RING FROM MODEM ON 428 * --> BAL XIOE2,R6 XEQ ERROR TWO COMMAND * 
0002B8 1205 311 JON RTO3E ERROR IF YES - BRANCH 429 * * 
OOO2BA 4020 O5D0 OW3F 312 MVA SPSEL, WORK2 STORE RETURN ADDRESS LEQ A Re He He he he 2 2 a 2 he 2 ae he He ae ate OK ae he 2h 2 2 afc 2 hc 2c ae af ic fc ae 3 ae ate 2 fe 2 fc 2h fe fe kc ae ae 2c ae ae ae ae akc ae ae ic ae ae ake afc atk ate ae ae ate ale ae ae afc af 
0002C0 6802 0572 313 B SUPDA. BRANCH TO CONTINUE 000384 4020 O4E8 0342 431 XIODG MVA DGDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 
0002C4 8828 O5EA OO1A 314 RTO3E MVW DRBUF+12 SDATA MOVE 7/TH WORD 00038A 4020 O4EA O00D 432 MVWI xX*OD* MOVE MODIFIER INTO CONTROL BLOCK 
OOO02CA-. 8828 OOBO 0020 315 MVW SDVOTeS » DEV MOVE CONFIG WORD 000390. 402B OOBO 0004 433 TWI X*00 ot SDVvUTSS HIGH SPEED JUMPER INSTALLED 
0002D0 6802 0532 316 B $PR BRANCH TO PRINT ERROR 000396 1223 434 JON XIO1 BRANCH YES 
318 ER Oe eee oe ee Oe RPO le el Pe ee tee ae ge toh 4 000398 402D 0344 FOOD 435 RBTWI X*FO0O0! ,DGDCBte2 INDICATE LOW SPEED WITHIN DCB 
319 * DIAGNOSTIC MODE * OO0039E SOF 436 J XIO1 BRANC 
320 : CHECK ERROR RETURNS : 0903a0 4020 O4E8 0322 A372 XIODR BVA DRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
322 * ISSUE THE DCB*S NECESSARY TO OBTAIN A COMMAND REJECT THEN * 0003A8 4020 O4EB 0362 G39 XIOE1 MVA E1DCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 
323 * A DCB SPEC. CHECK. *x OOO3AE 5008 44d XIO BRANCH 
3) oa a dO OG GI OOO oc aor a ig Giar doi a IO GOI ISG EOI ia ok ak sek ake ak 0003B0 4020 O4ESB 0373 4G“4Ut XIOE2 MVA E2DCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0002D4 6803 0502 325 RTO4 BAL $CONC, R6 PREPARE DEVICE ON CORRECT LEVEL 0003B6 5004 442 J XIO BRANCH 
0002D8 4cé64 326 TBTS (Ra XE) SET EXPECTED ERROR BIT 0003B8 4020 O4EB 0352 443 XIODS MVA DSDCB, IODCB SET UP CONTROL BLOCK POR SVC CALL 
0002DA 4029 O000C 0001 327 AWL $CKP BUMP CHECKPOINT OO003BE 5000 Uy Oy XIO BRANCH 
0002E0 6E03 O3A8 328 BAL X¥ {OE1 R6 BRANCH TO TEST ERROR LEG He 2H He ae he he fe he he 2h he 2 he he oe ake he he 2 2 2h he oe fe a 2 ee ie fe fe ke fe ai 2 2 ec 2 ate ae ae ah aie ak ae ae 2 ae ok ae a af ae ke atic ate ae ade af ake ake af ae fe af ake ae ae ik 
0002E4 402B 006 1000 329 TWI X™1006' $IsB IS ISB EQU TO 10XX au] * * 
QOOO2EA 1208 330 JON RTO4U1 BRANCH 448 * SOUBROUTINE * 
0002EC 4020 0020 1000 331 MVWI X'1000!,DEV4 DEV4 HOURTS EXPECTED DATA 449 * * 
0002F2 8028 OOA8 0021 332 RTO43 MVB govor.D DEV4+1 LOAD DEV ADDRESS 450 * EXECUTE INPUT AND OUTPUT COMMANDS * 
0002F8 6802 0532 333 B PRNT BRANCH TO PRINT ERROR 451 * * 
OOO0O2FC 4Ccé64 334 RTOU1 TBTS (Ru coh SET EXPECTED ERROR BIT 452 * PURPOSE * 
OOO2FE 4029 000cC 00U1 335 AWI $CKP BUMP CHECKPOINT 453 * * 
000304 6£03 O3B0 336 BAL XLOE2,R BRANCH TO TEST ERROR 454 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. * 
000308 4&02B 0016 4000 337 TWI Xt4O06" Po sTSB IS ISB EQUAL TO 4OXX 455 * THIS: SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: * 
OOO30E 1204 338 JON RTO4U2 BRANCH YES 456 * * 
000310 46020 0020 4000 339 MVWI X*'U000! ,DEV4 DEV4 EQUALS EXPECTED DATA G57 * 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 
000316 50ED 340 J RTO43 BRANC 458 * E_ I/O COM D. * 
000318 4020 O5D0 013E 341 RTO42 MVA $PSEL, WORK2 SRORES RETURN ADDRESS 459 * 2. SAVES THE aon BLOCK USED UNLESS IT IS A START CYCLE STATUS x 
00031E 6802 0572 342 B SUPDA BRANCH TO CONTINUE 460 * ISSUED BY THIS SUBROUTINE. * 
3404 x 461 * 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS glue % 
345 * DTR CONTROL BLOCK 462 * START CYCLE STATUS WAS ISSUED BY THIS SUBROUTIN * 
346 * 463 * 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 
000322 347 DRDCB EQU * USE FOR DCB REFERENCE ONLY 464 * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 
000322 000D 348 DRCTL DC x*ooopD? CONTROL WORD 465 * MYSTERY INTERRUPT (MI Gone cok BIT IS SET. * 
000324 0716 349 DRFMS DC x°07168 G66 * 5. MOVES THE ADDRESS OF I/O CONTROL BLOCK IN R7, SET THE * 
000326 3D40 350 DRSKP DC X'3D40! 467 * EXPECTED INTERRUPT coNTHOE BIT AND ISSUE THE 'SVC  START®. * 
000328 761F 351 DC X*761F¢ 468 * 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE 1/0 COMMAND, TIMING * 
00032A 1C7C 352 DC X'ic7ct 469 * STARTS TO DETERMINE A LOST INTERRUPT. * 
00032C 0000 353 DRCHN DC A (*-* CHAIN ADRS 470 * 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF * 
00032E 0000 354 DRBCT DC A (#~* BYTE COUNT 471 * WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * 
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472 * 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL * 000456 6FOD 0040 589 HVU R7,CSTL8 SAVE CS ERR ISB VALUE, BITS 0-7 
473 * 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * OOO045A C328 0041 590 VB Ba, CSTL8+1 * AND THE COND CODE 
G74 * 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN % OO0045E 5009 591 J NTR1 BRANCH 
442 : 11. See nb ey Gare cineniniee WAS £N PROGRESS THAT WAS . ao ole Moe 234 INTET ete ind ER) Seen ON I/O COMMAND CNTL BIT 
“77 * 12. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON ISSUE A a GOS He HR aie He He Meh he ake Re he oe ae Oe ae ae 2 he 2h ae ae a ate ie af af a ke aie aie 28 he ae Ae ake afer ke ae af ake fe he ak ae ah ae ae ie ae ofeach ac ake ote ae ake ate ae eae 
4Y78 * CYCLE STEAL STATUS COMMAND. CHECK FOF ANY OTHER BIT BEING ON, * 596 * x 
res - COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. e ae : SOUBROUTINE : 
He : CALLING SEQUENCE : 2R6 - OKAY INTERRUPT RUNS ON INTERRUPT LEVEL ‘$INTL' * 
rd 
ea _ THIS ROUTINE HAS THE FOLLOWING ENTRIES: . 631 . PURPOSE : 
485 * --> B XIO XEO ANY CYCLE STEAL COMMAND, MOD=0 * 603 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST * 
486 * --> BAL XIOCS, R6 XEQ START CYCLE STEAL STATUS, MOD=F * 604 * * 
488 ‘ RETURN CONTROL : be : Ce eee " 
R * 
489 * * 607 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 
490 * BXS R6) RETURN TO USER NO ERROR * 608 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE a 
Ue ae ae a ae a he a oe fe abe af a ae ae fe ae ae ae ke fe a ae ae ke ke a a a ae ak fe a ade ak fe of akc a a ae a ae a ake ak a ak ke aka aie ake ea ak fe af akc ak akc a ke aie ak 609 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 
0003C0O CB25 O4EA 493 XIO HVWZ IOMOD, R3 SET MOF OF O FOR CYCLE STEAL OP 610 * COHMON SECTION IS HANDLED HERE. * 
0003C4 500C 494 J xIo1 CS I/0'S ARE NOT RETRIED 611 * * 
0003C6 4CAB 495 TBTR Bite CE RESET CS STATUS INTER ERROR INDICAT. 612 * RETURN CONTROL * 
Q0003C8 4C67 496 TBTS cs SET "CYCLE STEAL STATUS* IN PROGRESS 613 * * 
tae 4020 O4ESB eee G97 XIOCS MVA Bitas CB SET UP CONTROL BLOCK FOR SVC CALL 614 * SVC EXIT RETURN TO USER VIA SUPVR * 
003D0 4020 OWEA OOOF 498 MVWI LP O0BT TOHOD SET CYCLE STEAL MODIFIER 615 * * 
0003D6 4C27 ug99 TBT R4,CS) Is cs INS PROGRESS, ERROR CONDITION 616 ee ORO OO IG tok domo oom OR OOO Oi i i II ICI RO iGi gic defekt fei ak 
0003D8 1216 500 JON t05 * YES PASS saving I/O ADRS 000464 706E 617 INTOK CPLSR R3 SAVE INDICATORS 
QOO3DA 4C23 501 TBT e IN) TEST for. INTER 000466 336A 618 SRL 13, R3 POSITION INDICATORS IN R3 
QO003DC 125F 502 JON otk BRANCH IF YES 000468 4424 OOOE. 619 MVA OPTN1, R4 SET UP BASE ADRS 
QOOO3DE 6E0D 0018 503 xIO1 MVW re LSTIO SAVE IAR FOR RETRY IF REQUESTED 00046C 4C24 620 TBT (R4 xf) TEST EXPECTED ERROR BIT 
QOO03E2 402E 001718 0004 504 SWI LSTIO DECREMENT FOR LAS INSTRUCTION QO0046E 1001 621 JOFF INTR1 BRANCH IF OFF 
OOO03E8 4324 0000 505 MVA $brD R3 LOAD ADDRESS OF PROGRAM START 000470 4C69 624 TBTS R4,GI SET GOOD INTERRUPT BIT 
QOO03EC CB2F 0018 506 SW R3,LS5TIO SUB TO OBTAIN LISTING ADDRESS 000472 4C63 623 INTR1 TBTS R4,IN SET INTERRUPT RECEIVED 
Q0003FO 4324 0022 507 MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 000474 4C27 624 TBT R4,CS IS *'CS IN PROGRESS* ON 
QOO3F4 6D08 O4ESB 508 MVW IODCB, R5 * AND THE FROM ADRS, ALONG WITH 000476 1204 625 JON NT RD * YES, BCH AROUND UPDATE 
O0003F8 OF10 509 MVBI 6,R7 * THE NUMBER OF MOVES 000478 C328 0015 626 MVB R3,$1O0IN+1 SAVE ENTERRUPTING CC CODE 
OOO3FA 2D64 510 MVFN §Ro) $83) MOVE 1 STATUS WORD AND ADJUST 00047C 6F0D 0016 627 MVW R7,$ISB SAVE INTR STATUS AND DEV ADRS 
QOO03FC OBFF 511 MVBI 55k CLEAR CYCLE STATUS BUFFER 000480 78B9 628 INTR2 CPCL R5 COPY INTERRUPT LEVEL TO CHECK 
OOO3FE 4524 0032 512 NVA CSBOF,R5 * TO ALL ONES 000482 3521 629 SLL 4,R5 POSITION INTR LEVEL AND PUT 
000402 OF10 513 MVBI 16,R7 * 000484 0501 630 ABI 1,R5 * IN *I* BIT 
000404 2BAC 514 FFN R3, (R5 a 000486 CD24 009C 631 CW SENTL,RS IS THIS THE CORRECT INTR LEVEL 
Booker 4CA3 515 XIO2 TBTIR Ags. IN CLEAR TR TERRES RECEIVED CNTL BIT 0O0OO048A 1004 632 JE INTR3 * YES, GO EXIT THIS LEVEL 
00408 1249 516 JON Tock BRANCH IF ON Q00048C 3521 633 SLL 4&,R5 POSITEON RECEIVED LEVEL 
QOOOUOA 4724 O4EY 517 MVA IOBLK, R7 SET UP CONTROL BLOCK FOR SUPVR O0048E 6D0D 0020 634 HVW R5, DEV3+2 STORE INTO DEV4 
QOOOYOE 802B 0232 O00A6 518 CB CpUTYDE, TYPE23 CHECK FOR PROCESSOR 23 000492 4C65 635 TBTS R4,LE SET INTR LEVEL ERROR CONTROL BIT 
000414 1803 519 JNE XIO5 BRANCH NOT EQUAL 000494 4CA2 636 INTR3 TBTR RG ,XI WAS INTERRUPT EXPECTED 
000416 4524 0000 520 MVWI X*0000',R5 LOAD LOOP COUNT 000496 1201 637 JON NTRX * YES, EXIT OFF THIS INTR LEVEL 
Boone 7 SRA 23) x105 3m Re ORS LOAD LOOP COUNT OOO4gR eb0G 39 InTRE svG) Ere EXIT THIS LEVEL VIA SUPUR TO BGR. 
uh GM 
OOO41E 4C62 523 XI0O6 TBTS ged XI) SET EXPECTED INTR CONTROL BIT 641 ROR OO IR IO IR OR Oi Ri mai i i I oti Oi Acie ake ake sk 2k fe 8 fe ee 
000420 600A 524 SVC TART CALL SUPVR FOR nee COMMAND 642 * 
000422 6002 525 xI08 SVC IDLE ALLOW OTHER PROG TIME 643 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
000424 4C03 526 TBT be TM) IS TERMINATE BTT ON 644 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
aoe Hee OOE4 23 i pone TERA Fae cent ong en sway ECREURD 6h? : RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
00042C 1237 529 JON oer * YES, CHECK IF ALL WAS SATISFACTORY 6.47 OO OIG OC OC ICO da CO CG Ri ok a i ig i kak i ick 
QQ0042E 7DA1 0001 530 AWI 1,R5 ADVANCE TIME OUT COUNT 00049C 4C20 648 XIOCK TBT S22 MI) WAS THERE AN UNEXPECTED INTERRUPT 
000432 18F7 531 JNZ xfo8 BCH IF TIME OUT NOT REACHED OOO049E 1214 649 JON rocy BRANCH IF YES 
000434 4C61 532 TBTS R4,ER SET ON ERROR CONTROL BIT OOO4AO0 4C25 650 TBT JE LE) WAS AN INTR LEVEL enon FOUND 
000436 4C66 533 TBTS R4,LI SET LOST INTERRUPT CONTROL BIT OO0O04A2 1002 651 JOFF é * NO, CONTINUE CHECKIN 
000438 6802 0532 534 B PRAT * BCH TO FINISH ERROR SEQUENCE OOO4A4 4C61 652 TBTS NaGeER) SET ERROR CONTROL BIT ON 
B36 ae ake oe ae fe a 2 ofc ake ak 2k ke a ok ake ake a a ke a 2 ake ak ke a i aie ak ake ak ake ak ak a kc a ake ke 2 akc a ate ke af fea akc ae ac ak ake ak ake a ake ae ae fe ak ak akc ak ake ak ok fe ak 9c OOO4A6 5010 653 J IOCU BRANCH 
537 * * OOO4YA8 4CAA 654 XIOCM TBTR R4, PE) WAS A PROBABLE ERROR EXPECTED 
538 * SUBROUTINE * OOO4YAA 6ACO 0000 655 BON R6 BRANCH YES 
539 * * OOO4AE 4C24 656 TBT R4,XE) WAS AN ERROR EXPECTED 
Bei. geo oe mA DE ENCED : 800HBS 4234 nr a mast RGae Cs by 
Cc PROGRESS 
542 * PURPOSE * OOO04B4 1005 659 JOFF TOCV * NO, CONTINUE CHECKING 
543 * * O0O004B6 4C28 660 TBT i CE) ts c§ a oo ERR CONDITION 
544 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 0O004B8 6800 O4DC 661 BOFF SRTN * NO 
545 * PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE * QOOO4BC 6802 0532 662 B SPRNT GO Loc” cS ERROR 
246 : SUPFRVISOR AND IT WAS NOT ACCEPTED. : ponucS aco. ees XIOCV ae suceee) WAS ERROR INTR CONTROL BIT ON 
NO, EXIT THIS ROUTINE 
ee ee : -BagHS gage S255 eee Hoch 8 deaGe SetATEARSE: GO AND Get rn 
RINT ERROR’ 
224 . SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND opoa oe ehZ Bana ee XIOCX are cRey 73 eueee OUT OPTION 3 CNTL BITS 
ETURN TO USER VIA REG 6 
552 * RETURN CONTROL % O0004D4 4C29 669 XIOGI TB (rd GI) WAS A GOOD INTERRUPT RECEIVED 
553 * * O004D6 12F8 670 JON TOcu YES BRANCH 
554 * B SPRNT DUMP STATUS BEFORE TERMINATION * OO0OO04D8 68C2 0000 671 B R6) RETURN 
555 * * O004DC 4C21 672 CSRIN TBT R4, ER) TEST FOR ERROR 
B56 [I aR Gi io I ki kok ki ii i ao ik kak kaki aot ak loi ak ac ak ko gak i fic a ate ak ake fe ake ake ake fe fe a QOO4DE 6A00 0532 673 BON PRAT BRANCH IF YES 
00043C 706E 557 XIOER CPLSR R3 SAVE CONDITION CODE ON I/0 ERROR OOO4E2 5600 674 BXS (R6) RETURN 
QOO043E 336A 558 SRL 13,83 POSITION CC CODE TO BITS 13-15 675 * 
000440 C328 0014 559 MVB R3,S10IN PUT IN LOG OUT AREA 676 * I/O PARAMETER LIST 
000444 6802 0532 560 B PRNT BRANCH TO PRINT ERROR 677 * 
562 ok OO OR IO IO IG I mG i i i go ak ke tak 9k ate ako ake a ake ak OOO4YEX OOA8 678 IOBLK DC A(S$DVUT ADRS OF DEVICE ADRS 
563 * * OO0OO04E6 043C 679 IOERR DC A(XIOER ERROR ROUTINE ADRS 
564 * SOUBROUTINE * OOO4E8 0000 680 IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 
565 * % QOOO4EA 0000 681 IOMOD DC A (*-* MODIFIER 
566 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL ‘SINTL' * QOOO4EC 0000 682 DC A (*-* ADRS OF LAST SVC CALL 
2eg . BuRDOeE 4 OOO4YEE 0000 eer ITORSP Dc A (*-* SECOND WORD OF LAST IDCB 
569 * * 685 * INTERRUPT CONTROL BLOCK FOR I/O COMMAND 
570 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 686 * / re 
571 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THF * QQO4FO OO0A8 687 INTBL DC A($DVUT ADRS OF DEVICE ADRS 
pee : EXPECTED CODE. : ADOuea nba ae ee DC A zNTOR| INTERRUPT OK RETURN ADRS 
374 * CALLING SEQUENCE _ 0004F6 0003 690 INTCC DC _x*O003" INTERRUPT CODE EXPECTED 
575 * * 692 FAIR OO III IK OR OI I I i ai aK fake ake ake aioe ake ak ake ake ak 
576 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT * 693 * SUBROUTINE * 
Pat : pena CONanOE : ey : epeanene te INTERRUPT CONTROL BLOCK & PREPARE DEVICE * 
* 
579 * * 696 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND * 
ae . SVC EXIT RETURN TO USER VIA SUPVR ¥ ean : PEER RE On eee DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * 
582 32 RO IO a I dak a i kk ai ak foi a fe ake ak ak aia ake ak ak ake a ake ake akc fe ae ak ake ae a ke a ake ak ake a ak 699 * CALLING SEQUENCE. : 
000448 T70O6E 583 INTER CPLSR R SAVE INDICATORS 700 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: * 
OOO4Y4A 336A 584 SRL 13 POSITION INDICATORS IN R3 701 * --> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
g80us5 ez O00? oe ORE Gea reco ri NBRotRESs 193 $ x25 GAL SconB te podenee DaVEcE 
acer CONP,R PREPARE DEVICE ONLY * 
000452 1006 587 JOFF ce * NO 704 * RETURN CONTROL x 
000454 4C68 588 TBTS (Ra, Et, TURN ON CYCLE STEAL INTER ERROR 705 * BXS (R6) RETURN TO USER VIA REG 6 * 


EEQEO --- SYSTEM TFST EXERCISOR FOR THE ACCA ML PN=4414108 EC=754882 PAGE O04 EE9EO --- SYSTEM TEST EXERCISOR FOR THE ACCA ML PN=4414108 EC=754882 PAGE OWA 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
VANME LESS SSIS STL SS CCS OSS CSS SS SSCS SSL SCS SSS SS SSS SS SES CSC TSS SCS SS SS SSS See Ps ee 2 27 DECLARED NAME ATTRIBUTES AND REFERENCES 
OO0O04FS8 707 $CONR EQU- * 
OOO4UFB8 4724 O4FOD 708 MYA INTBL, R7 SET R7 TO CONTROL BLOCK AND 0 -R1. ABSOLUTE, HEX VALUE (00000001) 
OOO4FC 6014 709 SVC CICB * CONNECT IT TO THIS DEVICE 222 223 224 240 241 242 246 247 =. 248 
OOO4FE 68C2 0000 710 B (R6) RETURN 252). 253 254 0 268) 272, Th 
000502 711 $CONC EOU * 0 -R2. ABSOLUTE. HEX VALUE (00000002) 
000502 CB25 0012 712 MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 214° = 233239 
000506 8828 009C O4EB 713 $CONP MVW $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 0 -R3. ABSOLUTE, HEX AEE (oO OCs? 
00050C 4724 O4EG 714 MVA_ IOBLK, R7 SET R7 TO CONTROL BLOCK TO PREPARE 1510 93200 49300 5305 «(506 507) 6510 «6511 514 
000510 4020 0014 O7FF 715 MVWI X*O7FF',$IOIN INITIALIZE CONDITION CODE STORAGE 557 £58 559 583 584 590 617 618 626 
000516 CB25 0016 716 MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 667 712 #716 #719 #720 8 741 767 #769 771 
00051A 6E0D 0018 717 MVW R6, LSTIO SET UP ADDRESS THAT STARTED LAST I/0 772 784 785 
00051E 4O2E 0018 0004 718 SWI 4, LSTIO DECREMENT TO POINT AT INSTRUCTION 0 ~R4. ABSOLUTE. HEX bee aoe 
000524 4324 0000 719 MVA $PID,R3 LOAD ADDRESS OF START OF PROG 154 155 160 161 326 334 495 496 499 
000528 CB2F 0018 720 SW R3,LSTIO SUB TO OBTAIN LISTING ADDRESS 201 315 523 526 528 532 533 585 586 
00052C 600C 721 SVC PREP * AND CALL ON SUPUR 288 592 619 620 622 623 624 635 636 
00052E 68C2 0000 722 B (R6) RN 638 648 650 652 654 656 658 660 663 
724 [OO RIOR dO ICI IOI OR OR III IOI I a i a ak ak ak ak ak ak ak afc ak ok ak a 3 as re HEX VALUE (60000005) 764 774 778 781 
* * oe e e 
129 : COMMON PRINT ERROR INTERFACE ROUTINE 159 159 igs 83 130 194 192 598 510 
727 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 
7128 * BRANCH IS TAKEN TO PRINT THE ERROR XK 631 633 634 $$(739 742 747 4%T49 #753 766 
729 * =---> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 769 776 = =—6777_ ~~ 783 785 
7130 * BRANCH IS TAKEN TO PRINT THE ERROR * 0 -R6. ABSOLUTE. HEX ee maar tee 
731 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE 153 163 187 86193 §194 213 217 229 8 234 
732 * BRANCH IS TAKEN TO PRINT THE ERROR x 237 238 267 #270 271 286 288 325 328 
733 * ----> PRNTRTN THIS LABELED ADDRESS IN SYST ( PROG ID = D3410/SYST ) * 336 203 655 668 671 674 710 717 722 
734 * POINTES TO A COMMON ERROR OUTPUT AND FORMATTER ROUTINE* 738 743 787 
735 * WHICH WILL RETURN TO THIS PROG VIA REGISTER SEVEN * 0 ~R7. ABSOLUTE, HEX aaa ek a 
736 * * 149 166 170 173 174 218 220 509 513 
737 RRO III IOI II RO IORI I I kk kak ae ak kak ake fea ake ae ae ae ake ake ae aka ae ake ae ae ake aie age ae af ae a 517 589 627 708 714 742 768 782 
000236 Enos Tote 939 eee Te OPN he Rs LOAD ADDRESS OF COMMON PRRT ROUTONE ee 165° 330. 369" 9a7° 92) age ee 
000332 4424 0006 440 NVA OSBLD RG” TOAD ADDRESS OF START OF PROM 711 $CoNC ADDRESS. HEX LOCATION (00900502) IN CSECT(EESEO ) LENGTH(1) 
00053E 4324 0042 741 MVA PCTR, R3 LOAD ADDRESS OF PASS COUNTER 
O00 a4 2 oFA3 9009 742 BAL Gf2 , t. BRANCH TO COMMON PRINT ROUTINE 707 S$CONR lea HEX LOCATION (OOOOO4F8) IN CSECT(EE9EO ) LENGTH (1) 
T G 
O0054a 4424 O005 aiae aue MVA OPIN pE4 aor LOAD BASE ADDRESS FOR INDICATORS 100 SDATA ADDRESS. HEX LOCATION (00000018) IN CSECT(EE9EO ) LENGTH (2) 
000554 1803 x 746 GRE Pee dint Penna IF Hes aa 123 $DVAD ADDRESS, HEX LOCATION (0000004C) IN CSECT(EE9EO ) LENGTH (2) 
e q 
Do0eas 4063 aes ne ae Seca aRe BRAHGa Roe 133 $DVID ADDRESS. HEX LOCATION (QOOO009E) IN CSECT(EE9EO ) LENGTH (2) 
0 t e 
nageed Pe eee 408 penne eve. ae RS a ei Penner es 138 $DVUT ADDRESS. HEX LOCATION (OOQO00A8) IN CSECT(EE9EO 1 LENGTH (10) 
000562 4c03 751 TBT {4 TM) SHOULD PROG TERMINATE 151 23500 2890 296 303 15 332 «6-433 678 
000564 6A00 OOE4 752 BON TERM BRANCH YES 687 762 767 771 784 
000568 7DA1 0001 753 AWI 1,R5 INCREMENT LOOP COUNTER 132 SINTL ADDRESS. HEX Mo ae ote IN CSECT (EE9EO ) _LENGTH (2) 
00056C 18F9 754 JNZ  $PRN1 BRANCH NOT ZERO 147, 169-214 = 215 216 31 233. 631 713 
00056E 6802 O0B2 755 B $PENT BRANCH TO RESTART FROM BEGINING 97 SIOIN ADDRESS. HEX LOCATION (00000014) IN CSECT(EE9 EO ) LENGTH (2) 
757 OR RO OGIO aOR oi OC OR tok kak ick 559 626 715 
758 x 98 $ISB ADDRESS. HEX LOCATION (00000016) IN CSECT (EE9EO ) LENGTH (2) 
* 
423 ; ROUTINE TO CHANGE DEVICE ADDRESS ON MULTILINE CARDS xe 134 $MXSL ADDRESS. HEX LOCATION(000000A0) IN CSECT (EE9EO ) LENGTH (2) 
TY ee 2 ae ae ae He 2 a he 3h ae Oe he he ee he 2 ah fe a fe he he te ie 2 fe ae Re ae ofc fe a af ale a 2 fe ake ae ae ic ae oie af ah oe ate ae ate 2 ake ae of a afc kc ac akc kc of ae ae i fe 182 
000572 402B OOAA 4000 762 SUPDA TWI X*4000', $DVUT+H2 IS THE CHAIN BIT ON 145 $PENT ADDRESS. HEX LOCATION (000000B2) IN CSECT(EE9EO ) LENGTH (6) 
000578 1204 763 JON SUP1 BRANCH NO S783) 198 755 
OO0R7e 4020 OSCE 004 es SUPD AVA” 4pvAb GORK4 RESTORE TO FIRST ENTRY | eee SoS is ee ee ee 
000582 6D08 Wet: © 7166 te alts aa TRS . LOAD ADDRESS INTO R5 738 SPRNT ADDRESS. HEX LOCATION (00000532) IN CSECT (EEQEO } LENGTH (4) 
ghosgk 1984 300k fg Ray BENS une opps 2870 83 [es ae a Cac A 
00058E 2D64 769 aved (x5) R3) MOVE ENTRY 750 $PRN1 ADDRESS. HEX LOCATION (00000560) IN CSECT (EE9 EO ) LENGTH (2) 
000590 4029 OSCE OOOA 7170 AWI 0 K1 INCREMENT R1 TO NEXT ENTRY 
000596 C320 OOAB 771 HVB $pvur+3, R3 LOAD VALID ENTRY BYTE 749 S$PRN2 BE DRESS HEX LOCATION (0000055C) IN CSECT(EE9EO ) LENGTH (4) 
q Q 
Meets 1598 eae 543 Et x IPDAY ee BeAHCH NG Denne 187 $PSFEL ADDRESS. HEX LOCATION (00000138) IN CSECT (EE9EO ) LENGTH (4) 
eee 1564 148 uBrR spoke BRANCH Yee. psceeg 154 $PUPD ADDRESS. HEX LOCATION (000000DC) IN CSECT (EE9 EO ) LENGTH (4) 
0005A4 CD25 O5D0 776 MVWZ WORK2,R5 LOAD RETURN ADDRESS 
090548 68A1 000C a BNZ R5) ' BRANCH IF VALID RETURN ADDRESS 181 SPUP8 feeeeeee HEX LOCATION (00000130) IN CSECT (EE9EO ) LENGTH (6) 
SCOR RE 4588 ae SUERE One (torr) Sate veo a la 168 SRETI ADDRESS. HEX LOCATION(00000102) IN CSECT (EE9EO ) LENGTH (6) 
eee tts de 489 SUPTV TBTR {BU QUES) RESET BEE? 198 $RTAD ADDRESS. HEX LOCATION (0000015C) IN CSECT(EE9EO ) LENGTH (2) 
BORDA boon OOD 783 HVA. WOoRK3, RS INIT PROH ADDRESS 59 $RTNE ADDRESS. HEX LOCATION (O000000A) IN CSECT(BE9EO ) LENGTH (2) 
Meta TaN Opee Ot yeN (23) 7 C3) HOVE DEV TRELES 160 STERM ADDRESS. HEX LOCATION (OO0000E4) IN CSECT(EE9 EO ) LENGTH (2) 
oor aes aes OSCE aoe ly (6) WORK’ Se eee 173 $TER1 ADDRESS. HEX LOCATION (0000011A) IN CSECT (EE9EO ) LENGTH (4) 
TBI A He 2 a He i ae He a OK ae af Bi ae ake ae ke ak ae a ae ae a a a ae 2 a ake ate ate ake ae ak fe ae af oe afc ake ale ake ake 282K af a ofc a fe ake ak af ak afe ak ake af afc ae ae afc ake of of fc ok ake 168 
790 #3 oo mo lok OOK OIG IG IG IO ki tok ak kf ik ak a afc ak ak ake ate aie ake ake ae akc ake fc ate ae ake 178 S$TER2 AL onneS: HEX LOCATION (0000012E) IN CSECT(EE9SEO ) LENGTH (2) 
*— D E 
00856 0000 192 WORK? DC a fe} RETURN POINTER FOR ROUTINE SUPDA 165 $TER3 ADDRESS, HEX LOCATION(000000F6) IN CSECT(BE9EO ) LENGTH(6) 
0005D2 00000000000000000 793 WORK3 DC XL10'00! TEMP SAVE AREA FOR DEV TAB 162 176 
$3038 B8u8uosououououou 73¢ Besue Be igo" Badiuba anita obeeeeo ae BRSOTUEES MER yA LOE (ov00020 
D00RRE 7197 TSTENR EQU - arn ver BG 38 CICB ABSOLUTE. HEX VALUE (00000014) 
T QB HH A eM ae He ae he he 2h he he a ie hee ae he ah ae 2 oe a af fe a ah aff of fe af ae ake a fe a ake ae ak kc ae ae ae ae afc 2 ae ak fe afc aie aie ae ae ake aie ake afc af ate afc 709 
0000B2 799 END $PENT 51 CPUTYPE BES ObUr ee HEX VALUE (00000232) 
91 cs ABSOLUTE. HEX VALUE (00000027) 
496 499 586 624 6 
111 CSBUF ADDRESS. HEX LOCATION (00000032) IN CSECT (EE9EO ) LENGTH(1) 
359 CSDCB ADDRESS. HEX LOCATION (00000332) IN CSECT(EE9EO ) LENGTH (1) 
672 CSRTN ADDRESS. HEX LOCATION (000004DC) IN CSECT(EE9EO ) LENGTH (2) 
276 CSST4Y ADDRESS. HEX LOCATION(0000024C) IN CSECT (EE9EO ) LENGTH (6) 
119 CSTL8 ADDRESS. HEX LOCATION (00000040) IN CSECT(EE9EO ) LENGTH (2) 
103 DCBUF ADDRESS. HEX LOCATION (00000022) IN CSECT(EE9EO ) LENGTH (2) 
101 DEV3 ADDRESS. X LOCATION (0000001E) IN CSECT (EE9EO L LENGTH ( 2) 
91 192 0 256 274 634 
102 DEV4 ADDRESS. HEX LOCATION (00000020) IN CSECT(EE9EO ) LENGTH (2) 
371 DGDCB ADDRESS, HEX LOCATION (00000342) IN CSECT(EE9EO ) LENGTH (1) 
69 DIR ABSOLUTE, HEX VALUE (0000000F) 
161 778 


EEQEO --- SYSTEM TEST EXERCISOR FOR THE ACCA ML PN=4414108 EC=754882 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES 
796 DRBUF ADDRESS. HEX LOCATION (OOQOQSDE) | IN CSECT (EEQEO ah g LENGTH (40) 
256 291 294 298 301 305 308 #310 314 

347 DRDCB ADDRESS. HEX LOCATION (00000322) IN CSECT(EE9EO ) LENGTH(1) 
384 DSDCB ADDRESS. HEX LOCATION (00000352) IN CSECT(EE9EOQ ) LENGTH(1) 

36 EE9EO CSECT. START(00000000) LENGTH(1542) ESDID(0) 

85 ER ABSOLUTE, HEX VALUE (00000021) 

41 EXIT ABSOLUTE. HEX VALUE (00000006) 
396 E1DCB ADDRESS. HEX LOCATION (00000362) IN CSECT(EE9EO ) LENGTH(1) 
409 E2DCB ADDRESS, HEX LOCATION (00000373) IN CSECT(EE9EO ) LENGTH(1) 
93 GI ABSOLUTE, HEX VALUE (00000029) 

135 HO000 ADDRESS. HEX LOCATION(000000A2) IN CSECT(EE9EO ) LENGTH(2) 
136 H0001 ADDRESS. HEX LOCATION (O00000A4) IN CSECT(EE9EO ) LENGTH (2) 
42 IDLE ABSOLUTE. HEX VALUE (00000002) 

87 IN ABSOLUTE. HEX VALUE (00000023) 
687 INTBL ADDRESS. HEX LOCATION(O00004FO) IN CSECT(EE9EO ) LENGTH (2) 
583 INTER ADDRESS. HEX LOCATION(00000448) IN CSECT(EE9EO ) LENGTH(2) 
592 INTET ADDRESS. HEX LOCATION(00000460) IN CSECT(EE9EO ) LENGTH(2) 
617 INTOK ADDRESS. HEX LOCATION (00000464) IN CSECT(EEQ9EO ) LENGTH(2) 
639 INTRX ADDRESS. HEX LOCATION (OO00049A) IN CSECT(EE9EQ ) LENGTH(2) 
623 INTR1 ADDRESS; HEX LOCATION (00000472) IN CSECT(EE9EO ) LENGTH(2) 
628 INTR2 ADDRESS. HEX LOCATION (00000480) IN CSECT(EE9EO ) LENGTH(2) 
6 36 INTR3 ADDRESS. HEX LOCATION (00000494) IN CSECT(EE9EO ) LENGTH(2) 
678 IOBLK ADDRESS, HEX LOCATION (OOQQQUE4) IN CSECT(EE9EO ) LENGTH(2) 
680 IODCB ADDRESS. HEX LOCATION (00QQQ4E6) | IN CSECT (EEQEO chp i ENGTH(2) 
679 IOERR ADDRESS, HEX LOCATION (0000046) IN CSECT(EE9EO ) LENGTH(2) 
681 IOMOD ADDRESS. HEX LOCATION (000004EA) IN CSECT(EE9EO ) LENGTH(2) 
683 IORSP ADDRESS. HEX LOCATION (OOOOO4EE) IN CSECT(EE9EO ) LENGTH(2) 
238 ITSTA ADDRESS. HEX LOCATION(000001CE) IN CSECT(EEQ9EO ) LENGTH(4) 
216 ITST4 ADDRESS. HEX LOCATION (00000174) IN CSECT(EE9EO ) LENGTH(6) 
229 ITSTS ADDRESS. HEX LOCATION(000001A8) IN CSECT(EES9EO ) LENGTH (4) 
258 ITSt7 AODRESS. HEX LOCATION(0000021E) IN CSECT(EE9EO ) LENGTH(6) 
252 ITSTS ADBRESS. HEX LOCATION (00000206) IN CSECT(EE9EO ) LENGTH(4) 
246 ITST9 ADDRESS. HEX LOCATION(QOOO01EE) IN CSECT(EE9EO ) LENGTH(4) 

89 LE ABSOLUTE. HEX VALUE (00000025) 

90 LI ABSOLUTE. HEX VALUE (00000026) 

99 LSTIO ADDRESS. HEX LOCATION (00000018) IN CSECT(EE9EO ) LENGTH(2) 

84 MI ABSOLUTE. HEX VALUE (00000020) 

62 OPTN1 ADDRESS. HEX LOCATION (0000000E) IN CSECT(EE9EO ) LENGTH (2) 

72 OPTN3 ADDRESS, | HEX LOCATION (00000012) IN CSECT(EE9EO ) LENGTH(2) 
120 PCTR ADDRESS. HEX LOCATION (00000042) IN CSECT(EE9EO ) LENGTH(2) 

94 PE ABSOLUTE. HEX VALUE (0000002A) 

4 3 PREP ABSOLUTE, HEX VALUE (0000000C) 

50 PRNTRIN ABSOLUTE. HEX VALUE (0000181E) 

67 QUES ABSOLUTE. HEX VALUE (9000000D) 

47 RESET ABSOLUTE. HEX VALUE (00000008) 

44 RICB ABSOLUTE. HEX VALUE (00000013) 

48 RID ABSOLUTE. HEX VALUE (00000009) 

213 RTO1 ADDRESS. HEX LOCATION(00000166) IN CSECT(EE9EO ) LENGTH(4) 
267 RTO2 ADDRESS. HEX LOCATION (00000228) IN CSECT(EE9EO ) LENGTH(4) 
286 RTO3 ADDRESS. HEX LOCATION(00000256) IN CSECT(EE9EO ) LENGTH(4) 
314 RTO3E ADDRESS. HEX LOCATION (000002C4) IN CSECT(EE9EO ) LENGTH(6) 
296 RTO31 ADDRESS. HEX LOCATION(0000027E) IN CSECT(EE9EO ) LENGTH(6) 
303 RTO 32 ADDRESS. HEX LOCATION (00000298) IN CSECT(EE9EO ) LENGTH(6) 
310 RT033 ADDRESS. HEX LOCATION (000002B2) IN CSECT(EE9EO ) LENGTH(6) 
294 RTO 36 ADDRESS. HEX LOCATION(00000276) IN CSECT(EE9EO ) LENGTH(6) 
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DECLARED 
301 
308 
325 
334 
341 
332 

45 
765 
7162 
778 
781 
766 

46 

66 
137 
791 
792 
7193 
794 

88 

86 
493 
648 
654 
497 
666 
663 
667 
431 
437 
443 
557 
439 
44 
669 
503 
515 
522 
523 
525 


NAME 
RTO037 
RTO038 
RTOY 
RTO41 
RTO 42 
RTO43 
START 
SUPD 
SUPDA 
SUPRT 
SUPTV 
SUP 1 
TERM 
TM 
TYPE23 
WORK1 
WORK2 
WORK3 
WORKY 
XE 

XT 
XIO 
XTOCK 
XIOCM 
XIOCS 
XITOCU 
XIOCV 
XITOCX 
XIODG 
XIODR 
XIODS 
XIOER 
XTOE1 
XIOE2 
XIOGI 
XIO1 
XIO2 
XI05 
XI06 
XIO08 


ATTRIBUTES 
ADDRESS. 
97 


oo 
oO 
o 
rg 
td 
wn 
&e) 
e 


RESS. 
RESS. 
RESS. 
RESS. 
OLUTE. 
RESS. 
RESS. 
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RESS. 
RESS. 
OLUTE. 
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26 
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6 


wm w 
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RESS 
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OLUTE. 
33 
OLUTE. 
636 


RESS. 
440 


& 8 
ON = 


wm 
ies) 
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RESS. 
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88 
HEX 


PN=4414108 


CROSS~REFERENCE LISTING 


AND REFERENCES 

HEX LOCATION (00000290) IN 
HEX LOCATION (000002AA) IN 
HEX LOCATION(000002D4) IN 
HEX LOCATION (000002FC) IN 
HEX LOCATION (00000318) IN 
HEX LOCATION (000002F2) IN 
HEX VALUE (0000000A) 

HEX LOCATION(0000057C) IN 


HEX gia a ere ietaes 5 IN 
9 277 313 342 73 


HEX LOCATION(000005AC) IN 
HEX LOCATION (000005B4) IN 
HEX LOCATION (00000582) IN 
HEX VALUE (00000007) 

HEX VALUE(00000003) 
HEX LOCATION(000000A6) IN 
HEX_LOCATION (00Q005CE) IN 
HEX LOCATION (000005D0 IN 
HEX LOCATION (000005D2) IN 
HEX LOCATION (000005DC) IN 
HEX VALUE (00000024) 

HEX VALUE (00000022) 
HEX, LOCATION (000003C0) IN 
HEX LOCATION (0000049C) IN 
HEX LOCATION (000004A8) IN 
HEX LOCATION (000003CA) IN 
HEX LOCATION (000004C8) IN 
HEX LOCATION (000004C0) IN 
HEX LOCATION(000004CC) IN 
HEX LOCATION (00000384) IN 
LOCATION (000003A0) IN 
HEX LOCATION(000003B8) IN 
HEX LOCATION (0000043C) IN 
HEX LOCATION (000003A8) IN 
HEX LOCATION (00000350) IN 
HEX LOCATION (000004D4) IN 
HEX LOCATION (000003DE) IN 
HEX LOCATION(00000406) IN 
HEX LOCATION (0000041C) IN 
HEX LOCATION(O000041E) IN 
HEX LOCATION (00000422) IN 
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CSECT (EE9EO 
CSECT (EE9E0 
CS ECT (EE9EO 
CSECT (EE9EO 
CSECT (EE9 E0 
CSECT (EE9 E0 


CSECT (EE9 £0 
CSECT (EE9 £0 
CSECT (EE9E0 
CSECT (EE9 EO 
CSECT (EE9EO 


CSECT (EE9EO 
CSECT (EE9EO 
CSECT (EE9EO 
C SBT (EES EO 
CSECT (EE9EO 


CSECT (EE9 EO 
CSECT (EE9E0 
CSECT (EESEO 
CSECT (EE9 E0 
CSECT (EE9 EO 
CSECT (EEQEO 
CSECT (EE9 E0 
CSECT(EE9E0 
CSECT (EE9EO 
CSECT (EE9EO 
CSECT (EE9 E0 
CSECT (EE9EO 
CSECT (EE9 E0 
CSECT (EE9 EO 
CSECT (EE9EO 
CSECT (EE9 EO 
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EC=754882 


we eee ee 


Ce a 


COPYRIGHT IBM CORP 1976 


LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 


LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (10) 
LENGTH (2) 


LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENG TH (6) 
LENGTH (2) 
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LENGTH (2) 
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LENGTH (2) 
LENGTH (2) 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000042 00000000 120 PCTR DC 2A (*-% 
BO IO OR OR GIR I I II I RC ROR ag fe ike ake ak ak ak fe sk ae ke ie aie akc ake of aie ae ak ke sk da ak ae ate 2k ake aie a fe fe ake ae 2k eke ic ic ak 2k ac ok akc ak PASS COUNT 
ee : 000046 00000000 121 ECTR DC 2A + ERROR COUNTER 
- tee PREREQUISITES + : B3BSHA 9808 133 ERNE BE $.9808) SU LOE EBRGEE SERRE MSURES 
ee ates : 00004E 0000000000000000 134 DC —- XL "00" Pete eed eens 
ane i 000056 0011 125 $INTL DC X*0011° INTERRUPT LEVEL REQUESTED 
9 SAGER HCIC GEICO GIGI GIGI aia iolo ai i iol iioloi ici gi aa ar Ia ICI xk 000058 1006 126 $DVID DC X*1006! DEVICE IDENTIFICATION 
10 * A Q0005A 0005 127 $MXSL DC a (5) MAXIMUM SELECTABLE ROUTINES 
11 ote ote o& oe MODIFICATIONS se ek 59 00005C 0000 128 HOO0O0O0 DC X'O 00? CONSTANT 
12: : 838885 $983 133 $99835°5o 419980: aie 
; ‘ CONSTANT TO CHECK PRO 
- : IMPROVEMENTS MADE TO RESPONSE TIME : 132 Ee Ee EERE ee Ee OER ETT Te DOE Rpt nny etre ne ae torn hpi ween gor eT 
15 ROK ROI Kg Fok ak ea ake akc ak ake ake akc ate ok ake ak ake afc ae af ake a ake ae ake Xe af ae ake ak a fc 2 af ae ate ake af ke a ake af 2 fe ae ai age he fe 2 ae ae ie ade a a aK kc a hc 2c ae ake ok 133 * %* 
16 * * 134 : PROGRAM CONTROL FUNCTIONS * 
* a ak ac ' ac oe * x 
17 : REA'S INCORPORATED 2 136 OO I ORI OIC OR ICI aii kaa kkak ak akak tcikok ak alka kak ake ak ak ake ak ak ak 
19 * 27-11576 Mi 000062 4020 O3DA 0330 137 $PENT MVA XIOER,IOERR RESTORE ERROR ADDRESS 
a . 000068 A82A 005C 0042 138 AD HO000,PCTR ADVANCE PASS COUNTER BY 1 
D7 eR IO OA SIG IE IG RIGGS GIO IOI Ia DIGI aoa Iai ia Ia I RII I IORI GIR 00006E 4020 0056 0011 139 MVWI X'00174" $INTL INIT INTERRUPT LEVEL 
1 5 : 000074 CE25 OOOA 140 $PEN1 MVWZ SRTNE, ROG CLEAR OLD ROUTINE NUMBER 
$3 or SPECIAL INSTRUCTIONS er . 000078 4424 OO00E 141 $PUPD MVA OPTN1,R4 RG MUST BE SET TO 'OPTN1' 
ci ie . 00007C 4c03 142 $PUP2 TBT gai Th) IS TERMINATE PGM REQUESTED 
25 + NONE . OO007E 1018 Dn JZ pubs * NO, CONTINUE CHECKING 
* * 
07 ARO OOOO ICG GI I IO OIG GIO IO ai IC OIOI OR IG IO IG AOR ik ieee ae ak sie > TERMINATE CONTROL BIT FOUND ON 
28 * * 
50 x ree E. C. HISTORY ine ‘ 000080 4020 O3DA 008C 147 $TERM MVA $RETI,IOERR INIT ERROR ADDRESS 
3 ae it :  $Rgg8e uRgy 038 i gang gt bysese op commsousaroes 
* DATE O6MAY ATE 15SEP x 
32 * DAT oben Che aenees Rces ie . 00008C 4020 03DA OOA4 150 $RETI MVA $TER1,IOERR INIT ERROR ADDRESS 
ee . 000092 8828 0056 03DC 151 MVW S$INTL,IODCB LOAD CURRENT INTERRUPT LEVEL 
FORO O ISERIES IUGR IOI IGOI GI IOGIOIGI GSI Ra IC IK fk 000098 4724 03D8 152 MVA __ TOBLK,R LOAD ADDRESS OF CONTROL BLOCK 
000000 36 EFOEO START X'0000t 00009C 402D 03DC 0001 153 RBTWI X'0004*, IODCB TURN OF PREPARE 'I' BIT 
37 * SUPERVISOR EQUATES OURO tE scope 124 SVC PREP ISSUE SVC 
000001 39 OUTIN EQU 1 OUT MESSAGE WITH EXPECTED RESPONCE Soodnce “enna see RBIWI X'FFOO',R7 ZERO HIGH ORDER BYTE 
00001A WO HTOE EQU 26 CHANGE HEX DATA TO EBCDIC DATA OOOORE 007 Lees SVC -RICB ISSUE SVC 
298005 il ibue E8u 3 SNARE BROCEAA THRE GUTH OTHER =F ieee aad ne 
T GMS 
00000C 43 PREP EQU 12 PREPARE DEVICE qT Beogne eee BceL OOOA 161 $PUP8 AW HO001,$RTNE ADVANCE ROUTINE NUMBER 
000013 uy RICB EQU 19 REL ASE INTERRUPT CONTROL BLOCK 0000BC Aone SA OOOA 162 CW SMXSL,$SRTNE CHECK FOR LAST AUTOMATIC ROUTINE 
Q0000A 45 START EQU 10 START CYCLE STEAL COMMAND ok JE SPENT * BCH AND START WITH RTN 1 
000007 46 TERM EQU 7 TERMINATE THIS PROGRAM 164 
990008 47 RESET a y 8 DEVICE RESET 12 : GET RTN NOMBER AND BCH TO THAT RIN 
DEVICE READ ID 
000000 U9 REG E0U 0 WORK REGISTER Bob eD eee Goer 167 $PSEL MVW SRITNE, R6 MOVE RTN NUMBER IN REG 
00181E 50 PRNTRTN EQU X'181E* COMMON PRINT ROUTINE ADDRESS LOCATION ROOD EE. Te Boe ab da 168 HVWZ SCKPT, RS ZERO CHECKPOINT 
000232 2h CPUTYPE EQU X'0232" ADDRESS OF PROCESSOR TYPE OOOOCA CD25 O01C 196 MV SDATALS, RS e DEPENDENT DATA. See Hey 
’ 
53 * PROGRAM HEADING AND CONTROL WORDS OO00CE CD25 OOTE 171 MVWZ DEV3,R5 #0 aaa ---------- 
si G090D2 CD25 0020 172 HVWZ DEV3E2,R5 ene 
000000 C6FOFOFO 55 $PID DC C'FOOO! PROGRAM IDENTIFICATION S R DOUBLE FOR BRANCH TABLE 
g3333e $609 RE Aigpggaes UME NESKEa Exe ADEESS on, son oe a. = oe bee Vian Ha HELE 
- START EXEC ADDRESS 
900K $309 Pee agurene MONEER RELyc gov 177 § aaa 
- BER BEING RU 
00000C 0000 60 $CKPT DC A 3} LAST CHECK POINT PASSED SOOO RE ORES 178 SRTAD DC A (SPENT) NO RTN SELECTED 
00000E 0000 62 OPTN1 DC X°0000! PROGRAM OPTION CONTROL WORD 1 0000E0 0184 140 ae A eaGS ROUTINE ADDRESS 
QOOOO0E2 01A8 181 DC A (RTO3 te rr 
Cag pene eres O000E4 01DC 182 cane Snnand SetOd 7 7 
00000D 67 QUES EQU 13 QUESTION HAS BEEN ASKED 1oe CHANNEL INTERFACE TEST * 
OOO00E 68 IND EQU 14 NDICATOR 187 * * 
00000F 69 DIR EOU. 15 SEEK DIRECTION INDICATOR s TO VERIFY THE CHANNEL INTERFACE CAN INTERRUPT ON ALL LEVELS * 
70 & 188 * THE PROG WILL PREPARE THE I/0 DEVICE TO INTERRUPT ON LEVEL ZERO * 
000010 0000 71 OPTN2 DC x*00008 PROGRAM OPTION CONTROL WORD 2 133 A AND CAUSE AN INTERRUPT. WHEN THE INTERRUPT OCCURS, THE LEVEL IS * 
000012 0000 72 OPTN3 DC K'00008 PROGRAM OPTION CONTROL WORD 3 ; COMPARED TO THE EXPECTED LEVEL. THIS IS DONE ON ALL LEVELS * 
72 0 191 EXCEPT LEVEL THREE. THEN A DIAG. READ IS PREFORMED AND THE x 
74 * 0 Y INTERRUPT MI 8 CS STATUS INTERRUPT ERR CE 132 * RECEIVED CHECKSUM VALUES ARE CHECKED, a 
75 * 1 ERROR INTERRUPT ER 9 GOOD INTERRUPT RECEIVED GI 0000E6 6 E03 3 1D 3 Be ae i 2 2h 2 a 2h 2 2 te ah ae ah fe fc fe a ae age ake ake afc fe ae a ae ade ee fe a fe ic ak ae a a ae ge aie cake ae ae of aka ake ake ake ac ae ak ake ae fe ake ake ake age ak ake ae age ak 
76 * 2 EXPECTED INTERRUPT XI 10 PROBABLE ERROR EXPECTED PE SBOOER. (CLOR Oke oe heOw BAT. seCONE nS CLEAR AND CONNECT I/O BLK 
77 * 3 INTERRUPT RECEIVED IN 11 NO INTERRUPT EXPECTED NI OO00EE 4020 MVW_ = «SINT SAVE SELECTED INTERRUPT 
78 * OO00EB 402 0056 FFF1 196 MVWI X'FFFA' $INTL SET UP INTERRUPT LEVEL FOR PREP 
79 * 4 EXPECTED ERR/ATTENT XE 12 NLU. OO00F4 4029 0056 0010 197 ITST4 AWI X'10', SINTL ADV_INTR LEVEL, STARTING AT 0 
80 * 5 WRONG INTR LEVEL LE 13 N.U. OODOFR &Tou O3DB 120 BAL = $CONC, R6 GO PREPARE ON NEW LEVEL 
81 * 6 LOAS INTERRUPT LI 14 NU. 000103 €008 499 MVA = IOBLK,R7 SET UP POINTER TO CONTROL BLOCK 
82 * 7 CS STATUS IN PROGR cS 15 N.U. 000104 &724 03D8 200 SVC RESET CALL SUPVR TO ISSUE RESET 
83 * BIT HEX DOCTOR eoee 20) MVA = IOBLK, R7 SET UP POINTER TO CONTROL BLOCK 
000020 84 MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 00010A 882B 03F2 0058 £0 svc «RTD CALL SUPVR TO ISSUE READ ID 
000021 85 ER EQU = 33 1 4 ERROR RECEIVED ON INTERRUPT 000110 1008 At rel TORSP, $DVID IS ID RECEIVED THE SAME 
000022 86 XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL ‘BIT 000112 8828 03F2 OO1E 505 “rd rrst> w LES, CONTINUE 
000023 87 IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000118 8828 0088 0020 0 Byw = GORSP DEV LOAD RECEIVED ID INTO DEV3 
000024 88 XE EOU 36 4 8 EXPECTED ERROR RESPONSE OOO1IE EBOD O43e ane MVW SDVID, DEV3+2 LOAD EXPECTED ID INTO DEV4 
000025 89 LE EQU 37 5 4 INTERRUPT ON WRONG LEVEL ERROR 000122 6E03 0294 508 B PRNT BRANCH TO PRINT ERROR 
000027 91CS EQU 39 7 1 CYCLE STATUS IN PROGRESS BO01SG bOor DOSE. 0Oo4 299 AWT = Ue $CKPT BUMP CHECKPOINT 
000028 92 CE EGU = 40 8 8 CYCLE STEAL STATUS INERRRUPT ERROR 000133 18£0 ce Cw X20) SINTL HAS INTR LEVEL COME DOWN TO 2 
000029 93 GI EQU = 41 9 4 GOOD INTERRUPT RECEIVED (EXPECTED ER) 000134 GAOD 0056 Lp JNE  <rstT4 * NO, BCH AND CONTINUE TEST 
00002A 94 PE EQU 42 10 2 PROBABLE ERROR EXPECTED 000138 6803 03F6 212 MVW =60R2,SINTL RESTORE SELECTED INTR LEVEL 
000028 95 NI BQU 43 11 1 NO INTR. EXPECTED UNPREPED DEV. 00013C 4028 0052 8000 213 Ee Pe eanenre SET UP FOR START IO ON CORRECT LEV. 
000014 0000 97 $IOIN D A (*-* I/O AND INTR CONDITION CODES 000143 12023 214 TWI X*8000",SDVAD+6 IS DTR JUMPERED ON 
000016 0000 98 $ISB_ DC A (#-% R7, INTR STATUS BYTE & DEV ADRS 000144 6809 02 215 JON ITSTA BRANCH YES 
000018 0000 99 LSTIO DC A (#-* ADRS OF LAST I/O + 4 BYT 000158 BOs OSRE 216 BAL XIODS,R6 BRANCH TO DISABLE DTR 
00001A 00000000 100 $DATA DC 2A (*~ *) DEVICE DEPENDENT DATA 00014 423245 0468 217 ITSTA BAL XIODG, R6 SET UP FOR START IO 
O0001E 0000 101 DEV3 DC A (¥-* DEPENDENT DATA DEV3 000150 €908 O4Ee 218 ITSTC AVA DRBUF, R2 SET UP TO CHECK CHECKSUM 
000020 0000 102 DEV4 Dc A (*- * DEPENDENT DATA DEV4 000154 £908 O4E8 219 VW DRBUF,R1 SET UP TO CHECK CHECKSUM VALUE 
000022 0000 103 DCBUF DC bade LAST DCB TABLE, CONTROL WORD 000188 7921 0001 220 a DRBUF+2,R1 * AGAINST SHOULD BE 
000024 0000 104 DCB2 Dc A (#-* LAST DCB TABLE, DEV DEP WORD 0001zc 1005 221 aut. Aken CHECK FOR A VALID CHECKSUM 
000026 0000 105 DCB3 DC A mk LAST DCB TABLE, DEV DEP WORD OOO15E 9028 O4u66 001 222 JZ I ST9 BCH IF OKAY 
000028 0000 106 DCB4Y DC Ai *-* LAST DCB TABLE, DEV DEP WORD 0001¢4 6802 0406 = coi AVD DRBUF, DEV 3 MOVE ERRORED CHECKSUM VALUE 
00002A 0000 107 DCB5 DC A (t-* LAST DCB TABLE, DEV_DEP WORD 0001¢8 6908 O4GR aoe B SPRNT BRANCH TO PRINT ERROR 
00002c 0000 108 DCB6 DC A (t—* LAST DCB TABLE, CHAIN ADRS 0001e6C €90B Obe 225 ITST9 MVH DRBUFt+4, R1 SET UP TO CHECK CHECKSUM VALUE 
90002F 0000 109 DCB7 DC I Sos LAST DCB TABLE, BYTE COUNT 000170 792; 0004 226 me DRBUF+6, R1 * AGAINST SHOULD BE 
0030 0000 110 DCB8 DC A(*-* LAST DCB TABLE, BUFFER ADDRESS Boba: ACOe 27 Aue AGE) CHECK FOR A VALID CHECKSUM 
000032 111 CSBUF EQU) * CYCLE STEAL DATA BUFFER 000176 9028 046A 001 zoe JZ =Irst7 BCH IF OKAY 
000032 0000 112 CSTL1 D A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 000170 6802 0426 = on AVD = DRBUF +4, DEV3 MOVE ERRORED CHECKSUM VALUE 
000034 0000 113 CSTL2 DC A (#-* CYCLE STEAL WD 2, DEVICE DEPEND 000180 6802 0078 230 SPRNT BRANCH TO PRINT ERRO 
000036 0000 114 CSTL3 DC A (#-% CYCLE STEAL WD 3, DEVICE DEPEND 231 ITST7 B $PUPD BRANCH TO CONTINUE 
0000 38 0000 115 CSTL4Y DC A (to CYCLE STEAL WD Te DEVICE DEPEND 233 eee Cee Gee oe nT Pee eee een ee Nee eee eee eee nee 
00003A 0000 116 CSTL5 DC A (¥-* CYCLE STEAL WD 5, DEVICE DEPEND eg CYCLE STEAL STATUS * 
00003¢ 0000 117 CSTL6 DC A (*-*% CYCLE STEAL WD 6, DEVICE DEPEND 232 : THIS TEST WILL VERIFY THAT THE ATTACHMENT WILL SEND BACK THE * 
00003E 0000 118 CSTL7 DC A (*#-* CYCLE STEAL WD 7, DEVICE DEPEND $35 * ADDRESS OF THE LAST CYCLE STEAL ADDRESS. * 
000040 0000 119 CSTL8 DC A (#-* CYCLE STEAL WD 8, DEVICE DEPEND * 
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LOCTR OBJECT TEXT STNT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STNT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
DBB Ae ke whe oe ae ake he ake ake fe ae ake he He aye ah ae ae fe age ae abe af fe ake ake ie kc ae ake ae af ae 2c 2c ae ae a ake ofc af af ae 28 ae ae a afc ae ake af 2c fe ac af af 3 ofc hc 3c kc ie fe ae ae ae fe of ac 2c 356 cd 
000184 6£E03 O3F6 239 RTO2 BAL SCONC, R6 PREPARE DEVICE ON CORRECT LEVEL 357 * ERROR FOUR DATA CONTROL BLOCK 
ate nts 4124 O4U6D 240 MVA DRBUFE7, R1 LAST CYCLE ADRS USED 358 * 
00018C 4029 000C 0001 241 AWT BUMP CHECKPOINT 000274 00 359 DC K'00* 
000192 6E03 O2BE 242 BAL shoes: R6 GO GET STATUS FROM LAST I/0 000275 360 E2DCB EQU : USED FOR DCB REFERENCE ONLY 
000196 C924 0032 243 CW CSBUF, R1 COMPARE LAST STG LOCATION USED 000275 0000 361 E2CTL X*0000° CONTROL WORD 
O0019A 1004 244 JE CSST4 BRANCH IF GOOD ADDRESS 000277 0000 362 E2DC2 DC x*00008 -U. 
00019C 690D 0020 245 MV W R1, DEV3+2 LOAD EXPECTED ADDRESS INTO DEV4 000279 0000 363 E2DC3 DC X*00008 
O001A0 6802 0426 246 B SPRNT BRANCH TO PRINT ERROR 00027B 0000 364 E2DC4 DC X'0000* 
0001A4 6802 0078 247 CSSTU B $PUPD BRANCH TO CONTINUE 00027D 0000 365 E2DC5 DC X*'00008 
2u9 SORE Tee cece tee rer eet eer ee Teer ert ne are eee eee eee See ee eee nee 00027F 0000 366 E2CHN DC X'00005 ae BOURES? 
250 * DIAGNOSTIC MODE 000281 0000 367 E2BCT DC X*0000° BYTE 
251 * CHECK ALL STATUS WORDS : 000283 0000 368 E2ADR DC X*00008 BUFFER TS DRESS 
252 * * 000285 00 369 ALIGN WORD 
253 * A CYCLE STEEL STATUS IS PREFORMED AND WORDS 2 AND 3 ARE : BTV Re He he he He he he he ie ae Re he a oe Be a a hc 2 he 2h ec 2 Ne tc a 2 ae a i ea ic a at a a ae a a a i fe ake ie 2 ake ate a ae a ae ae a ae a ae oe a ac a ac 
254 * CHECKED FOR VALIDITY. l 372 * ISSUE ALL I/O COMMANDS FROM A COMMON SUBROUTINE * 
255 OR Ete hte aes Lenk re gree Ee a or ae ene OP ee eer 373 * TO DISPLAY INSTRUCTIONS AND OPERATING PROCEDURES TO THE OPERATOR* 
OOO1A8 6E03 03F6 256 RTO3 BAL SCONC R6 PREPARE DEVICE ON CORRECT LEVEL | 374 * AND SET UP ANY REQUIREMENTS FOR OTHER I/O COMMANDS - 
OOO1AC 4029 000c 0001 257 AWL $CKPT BUMP CHECKPOINT | 375 * * 
0001B2 6E03 O2BE 258 BAL thoes. be BRANCH TO ISSUE DIAG. COM. 376 * --> BAL XIODG,R6 XEQ DIAG. MOD = D COMMAND * 
0001B6 D120 0034 259 MVD CSTL2,R1 LOAD STATUS INFORMATION 377 * --> BAL XIOAS, ’ R6 XEQ DTR COMMAND * 
OOO1IBA 7924 F800 260 RBTWI X'F806' R1 RESET ALL UNKWOWN BITS 378 * --> BAL XIOE1, 7R6 XEQ ERROR ONE COMMAND * 
OOOTBE TVA4U4 SFFF 261 RBTWI X*SFFF!,R2 RESET ALL UNKNOWN BITS 379 * -=-> BAL XIOE2, ’ R6 XEQ ERROR TWO COMMAND * 
000171C2 C924 0050 262 W SDVADt4, R1 TEST FIRST WORD 380 * * 
0007C6 1005 263 JE RTO 32 BRANCH IF EQUAL 38 1 FOO OR III IO I IG RII IOI IO OOOO OR OR i fo i i iOI tok kok kk 
0Q001C8 9028 0050 O01E 264 RTO31 MVD epee bee, DENS LOAD BOTH WORDS INTO OUTPUT AREA 000286 4020 O3DC 0244 382 XIODG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OOOICE 6802 0426 265 B PRNT BRANCH TO PRINT 00028C 4020 O3DE 000D 383 MVWI X'OD*, LOMOD MOVE MODIFIER INTO CONTROL BLOCK 
0001D2 CA24 0052 266 RTO32 CW $DVAD+6,R2 COMPARE SECOND WORD 000292 501F 384 J XIO BRANCH 
0001D6 18F8 267 INE RTO 31 BRANCH IF NOT EOUAL 000294 4020 O3DC 0224 385 XIOAS MVA ASDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0001D8 6802 0078 268 B $PUPD BRANCH TO CONTINUE 00029A 500C 386 J XIO BRANCH 
270 ARRIGO RO OK RIOR IR RR ROK OK ake fake fe ak fea fe ake afc ie ake ae aie ae tf a fete afc a ic afc atc a aka ic akc akc afc ok 00029C 4020 O3DC 0264 387 XIOE1 MVA E1DCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
271 * DIAGNOSTIC MODE * QOO0OO02A2 5008 388 J XIO BRANCH 
Z12 : CHECK ERROR CONDITIONS. s aN aH O3DC 0275 SoG XIOE2 pe Bepeey FORCE ea CONTROL BLOCK FOR SVC CALL 
274 * ERRORED DCB'S ARE ISSUED TO INSURE A COMMAND REJECT AND * OOO2ZAC 4020 O3DC 0254 391 XIODS MVA DSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
275 * A DCB SPEC. CHECK ERROR TO BE RETURNED FROM THE ATTACHMENT CARD.* 0002B2 5000 392 XIO BRANCH 
276 Je IOER ORO GG IO IGOR AG OG i mom ia a RO IO IG Xf ak iar 390 FOO IOI RIO IO OR IOI RO IOI OR OI ORI IG IO ka ii i itt kok aka 
Q001DC 6E03 O3F6 277 RTO BAL $CONC, R6 PREPARE DEVICE ON CORRECT LEVEL 395 * * 
0001E0 4c64 278 TBTS (RG xf) SET EXPECTED ERROR BIT | 396 * SOUBROUTINE * 
OOO1E2 4029 000C 0001 279 AWL SEKP BUMP CHECKPOTL 397 * * 
QOOO1TE8 6£E£03 029C 280 BAL X{oEr R6 BRANCH TO eear ERROR | 398 * EXECUTE INPUT AND OUTPUT COMMANDS * 
OO0O0O1EC 402B 0016 1000 281 TWI rtT606 8. $ISB IS ISB EQU TO 10XX 399 * * 
OO0OO1TF2 1208 282 JON RTO41 BRANCH YES 400 * PURPOSE * 
O0O0O01F4 4020 0020 1000 283 MVWI yr ooo DEV4 DEV4 EQUALS EXPECTED DATA 401 * * 
OOO1FA 8028 004C 0021 284 RTO43 MVB $DVAD DEV4+1 LOAD DEV ADDRESS 402 * TO EXECUTE ALL I/0 COMMANDS FROM A COMMON PLACE. ba 
000200 6802 0426 285 B PRNT’ BRANCH TO PRINT ERROR 403 * THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: * 
000204 4c64 286 RTO41 TBTS (RY XE SET EXPECTED ERROR BIT 4O4 * * 
000206 4029 000C 0001 287 AWL $CKP BUMP CHECKPOINT 4OS * 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 
00020C 6E03 O2A4 288 BAL XLOE2, R6 BRANCH TO TEST ERROR 406 * THE I/O COMMAND. * 
000210 4&02B 0016 4000 289 TWI X'4006", $1sSB IS ISB EQUAL TO 4UOXY : 4O7 * 2. SAVES THE DCB BLOCK GSED UNLESS IT IS A START CYCLE STATUS * 
000216 1204 290 JON RTOY2 BRANCH YES | 408 * ISSUED BY THIS SUBROUTINE * 
000218 4020 0020 4000 291 MVWI X*4000',DEV4 DEV4 EQUALS EXPECTED DATA 409 * 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE * 
00021E SOED 292 RTO43 BRANCH | 410 * START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. * 
000220 6802 0078 293 RTO42 B $PUPD BRANCH TO CONTINUE “11 * G4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 
295 * “12 * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 
296 * ASCIE CONTROL BLOCK 413 * MYSTERY INTERRUPT (MI ae voce BIT IS SET. * 
297 * | 414 * 5. MOVES THE ADDRESS OF I/O CONTROL BLOCK IN R77, SET THE %* 
000224 298 ASDCB EQU * USE FOR DCB REFERENCE ONLY 415 * EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE ‘SVC  START®. * 
000224 0040 299 ASCTL DC X*O00408 CONTROL WORD 416 * 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING * 
000226 0000 300 ASFMS DC x*0000* “17 * STARTS TO DETERMINE A LOST INTERRUPT. * 
000228 0000 301 ASSKP DC xX¥* 00008 418 * 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF * 
Q0022A 0000 302 DC xX¥'*O0008 419 * WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * 
00022c 0000 303 DC X¥'00008 420 * 8. CHECK IF Ager WAS A WRONG INTERRUPT LEVEL. * 
00022E 0000 304 ASCHN DC A (*-* CHAIN ADRS : 421 * 9. CHECK IF AN ROR WAS EXPECTED AND IF THERE WAS RETURN. * 
000230 0000 305 ASBCT DC A (*-* BYTE COUNT . 422 * 10. CHECK IF WHERE WAS AN ERROR CONDITION, IF NOT RETURN. * 
000232 0466 306 ASADR DC A (DRBUF) BUFFER ADRS 423 * 11. CHECK IS A CYCLE STEAL OPERATION WAS £N PROGRESS THAT WAS * 
307 * 424u * ISSUED BY THIS SUBROUTINE. * 
308 * CYCLE STEAL DATA CONTROL BLOCK 425 * 12. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A * 
309 * Y26 * CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING art 
000234 310 CSDCB EQU x USE FOR DCB REFERENCE ONLY 427 * COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED * 
000234 2000 311 CSCTL DC x*2000° CONTROL WORD 428 * * 
000236 0000 312 CSFMS DC x*00008 NOT USED 429 * CALLING SEQUENCE * 
000238 0000 313 CSSKP DC x*00008 NOT USED 430 * * 
O0023A 0000 314 DC x*oooo! 431 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: * 
00023c 0000 315 pc X'Q0008 432 * * 
00023E 0000 316 CSCHN DC A (0000) CHAIN ADRS, NOT USED 433 * --> B X10 XEQ ANY CYCLE STEAL COMMAND, MOD=0_ * 
000240. 0006 317 CSBCT DC x¥'0006! BYTE COUNT 434 * --> BAL XIOCS, R6 XEQ START CYCLE STEAL STATUS, MOD=F * 
000242 0032 318 CSADR DC A (CS BUF) BUFFER ADRS 435 * * 
319 436 * RETURN CONTROL x 
320 * DIAGNOSTIC DATA CONTROL BLOCK 437 * x 
3341 * 438 * BXS __ (R6) RETURN TO USER NO ERROR * 
000244 322 DGDCB EQU * USED FOR DCB REFERENCE ONLY 139 ROR OR OO RCI IO OR IOI I I IOI III IO ik GIO kok kak ik ak a aac aka ok ak ak ake ae kek 
000244 2000 323 DGCTL x*2000' CONTROL WORD 0O002B4 CB25 O3DE 441 XIO MVWZ LOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
000246 0000 324 DGDC2 DC Xx' 00008 .U. 0002B8 500C 42 J XIO1 CS I/O'S ARE NOT RETRIED 
000248 0000 325 DGDC3 D X'0000!8 OOO2BA 4CA8 YY TBTR Ri. ee RESET CS STATUS INTER ERROR INDICAT. 
OOO24A 0000 326 DGDC4Y DC Xx* 0000! OO0O02BC 4C67 GYUd TBTS SET "CYCLE STEAL STATUS* IN PROGRESS 
00024c 0000 327 DGDCS X*0000? QOOO2BE 4020 O3DC 0234 445 XIOCS MVA aes. ODCB SET UP CONTROL BLOCK FOR SVC CALL 
O0024E 0000 328 DGCHN pc A (0000) CHAIN ADDRESS 0002C4 4020 O3DE OOOF U6 MVWI Pies ', IOMOD SET CYCLE STEAL MODIFIER 
000250 0008 329 DGBCT X*0008 BYTE COUNT OOO2CA 4&C27 Qu] TBT R4,CS) IS CS IN PROGRESS, ERROR CONDITION 
000252 0466 330 DGADR DC A (DRBUF) BUFFER ADDRESS 0002CC 1216 448 JON IO * YES, BYPASS saving I/O ADRS 
332 Q0O02CE 4¢23 449 TBT io IN) TEST FOR INTER 
333 * DISABLE DTR CONTROL BLOCK 0002D0 125F 450 JON eK BRANCH IF YES 
334 * 0002D2 6E0D 0018 451 XIoO1 MVW LSTIO SAVE IAR FOR RETRY IF REQUESTED 
000254 335 DSDCB EQU x USED FOR DCB REFERENCE ONLY 0002D6 402E 0018 0004 452 SWI BES it DECREMENT FOR LAS INSTRUCTION 
000254 0010 336 DSCTL X*0010! CONTROL WORD 0002DC 4324 0000 453 MVA $$rp R3 LOAD ADDRESS OF PROGRAM START 
000256 0000 337 DSDC2 DC X*O00008 ous QOOO0O2EO CB2F 0018 454 SW R3 L§TIO SUB TO OBTAIN LISTING ADDRESS 
000258 0000 338 pDSDC3 DC X'00008 OOO2E4 4324 0022 455 MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 
OOO25A 0000 339 DSDC4H DC X*Q0008 0002E8 6D08 O3DC 456 MVW IODCB, R5 * AND THE FROM ADRS, ALONG WITH 
00025c . 0000 340 DSDC5 DC x*oooor OO02EC OF10 457 MVBI 6,R7 * THE NOMBER OF MOVES 
00025E 0000 341 DSCHN DC x'oo00t CHAIN ADDRESS QOO2EE 2D64 458 MVFN spe) 483) MOVE 1 STATUS WORD AND ADJUST 
000260 0000 342 DSBCT pC xX'o0008 BYTE COUNT QO0O2FO OBFF 459 MVBI 55 f CLEAR CYCLE STATUS BUFFER 
000262 0466 343 DSADR DC A (DRBUF) BUFFER ADDRESS QO002F2 4524 0032 460 MVA  CSBUF, RS * TO ALL ONES * 
344 * OO0OO2F6 OF10 461 MVBI 16,R7 * 
345 * ERROR ONE DATA CONTROL BLOCK O002F8 2BAC 462 FFN R3, (R5 * 
346 * OOO2FA 4CA3 463 XIO2 TBTR RO, IN CLEAR INTERRUPT RECEIVED CNTL BIT 
000264 347 E1DCB EQU * USED FOR DCB REFERENCE ONLY O002FC 1249 464 JON IOCK BRANCH IF ON 
000264 8002 348 E1CTL D x*8002° CONTROL WORD OOO2FE 4724 O03D8 465 MVA TOBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
000266 0000 349 E1DC2 DC X'OO00! -U. 000302 802B 0232 0060 466 CB CPUTYPE, TYPE23 CHECK FOR PeOuh 23 
000268 0000 350 E1DC3 DC X*O000! 000308 1803 467 INE XIO5 BRANCH NOT EQU 
00026A 0000 351 EIDCY pC X'0000t Q00030A 4524 0000 468 MVWI xX'0000',R5 LOAD LOOP coon: 
00026cC 0000 352 EIDC5S DC X*00008 00030E 5001 469 J XT06 BRANCH 
00026E 0275 353 E1CHN DC A (E2DCB) CHAIN ADDRESS 000310 75AA 470 XI05 SW R5,R5 LOAD LOOP COUNT 
000270 0000 354 EMBCT DC X*0Q00008 BYTE COUNT 000312 4C62 471 XI06 TBTS gre XT) SET EXPECTED INTR CONTROL BIT 
000272 0466 355 EVADR DC A (DRBUF) BUFFER ADDRESS 000314 600A 472 SVC TART CALL SUPVR FOR I/O COMMAND 


EFOEO --- SYSTEM TEST EXERCISOR FOR THE BSCA SL PN=4414109 EC=754882 PAGE 03 EFOEO --- SYSTEM TEST EXERCISOR FOR THE BSCA SL PN=4414109 EC=754882 PAGE QO3A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000316 6002 473 XIO8 SVC IDLE ALLOW OTHER PROG TIME 591 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERROPT 
000318 4c03 4U74 TBT ptt TM) IS TERMINATE BIT ON 592 * - HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
00031A 6A00 0080 475 BON TER BRANCH IF ON 593 * RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
OO0OO031E 4643 476 TBTR $8} IN) HAS INTERRUPT BEEN RECEIVED 594 * 

000320 1237 “77 JON Toe * YES CHECK IF ALL WAS SATISFACTORY 595 ok KOK OK KR OR I KO ii kK kok kok ok kk fk KK ik tk ok 
000322 7DA1t 0001 478 AWI 1,R5 ADVANCE TIME OUT COUNT 000390 4c20 596 XIOCK TBT {Rt MI) WAS THERE AN UNEXPECTED INTERRUPT 
000326 18F7 479 JNZ t08 BCH IF TIME OUT NOT REACHED 000392 1214 597 JON Tocu BRANCH IF YES 
000328 4Cé61 480 TBTS R4,ER SET ON ERROR CONTROL BIT 000394 4&C25 598 TBT AES LE) WAS AN INTR LEVEL ERROR FOOND 
O0032A 4C66 4s TBTS R4,LI SET LOST INTERRUPT CONTROL BIT 000396 1002 599 JOFF Ios * NO, CONTINUE CHECKING 
00032C 6802 0426 482 T BCH TO FINISH ERROR SEQUENCE 000398 4C61 600 TBTS {20 ER) SET ERROR CONTROL BIT ON 

ChB Ue 2 5 a a ae ae ae a ae ak co a af a ake 2k ae oe ake ake ake aR ake ake oe ak ake ok af af ak ake ake ae ake ae ae ae ae ae ake ak ae a ae aka ae a afc ok 2c a ae fe ake akc ke a ak kc de akc ae 00039A 5010 601 J Toéu BRAN 

485 * * 00039C 4ACAA 602 XIOCM TBTR R4&, PE) WAS ee PROBABLE ERROR EXPECTED 

486 * SUBROUTINE * 00039E 6aACO OO000 603 BON R6 BRANCH YES 

Y87 * * OOO03A2 4C24 604 TBT R4, XE) WAS AN ERROR EXPECTED 

488 * I/O EXECUTE ERROR HANDLING ROUTINE * OO03A4 1211 605 JN IOérI * YES, BRANC 

489 * * 0003A6 4C27 606 TBT R4,CS) WAS AUTO CS IN PROGRESS 

490 * PURPOSE * 0003A8 1005 607 JOFF roeév ae ee ae ee CHECKING 

491 * * OOO3AA 4C28 608 TBT ABs CE) c§ f ERR CONDITION 

492 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * 0003AC 6800 03D0 609 BOFF SRIN NO x 

493 * PROBLEM THAT WAS FOUND WHEN THE a COMMAND WAS ISSUED BY THE * 0003B0 6802 0426 610 B $PRNT GO LOG CS ERROR 

YQ4 * SUPERVISOR AND IT WAS NOT ACCEPTE * OO0O03B4 4C21 611 XIOCV TBT Ae ER) WAS ERROR INTR CONTROL BIT ON 

495 * * 0003B6 1004 612 JOFF rocx * NO, EXIT THIS ROUTINE 

496 * CALLING SEQUENCE * 0003B8 6802 O2BA 613 XIOCQ B xIocs-4 * AVAILABLE, GO AND GET IT 

497 * x 0003BC 6802 0426 614 xXIocU B $PRNT PRINT ERROR. 

498 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND * 0003CO CB25 0012 615 XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 

499 * * 0003C4H 68C2 0000 616 R6) RETURN TO USER VIA REG 6 

500 * RETURN CONTROL * 0003C8 4C29 617 XIOGI TBT R4&,GI) WAS A GOOD INTERRUPT RECEIVED 

501 * * 0003CA 12F8 618 JON TOcU YES BRANCH 

502 * B $PRNT DUMP STATUS BEFORE TERMINATION * 0003CC 68C2 0000 619 B R6) RETURN 

503 * * 0003D0 4C21 620 CSRIN TBT R4 , ER) TEST FOR ERROR 

504 oR Ro OK OR RO lok kok OK RK i i io kak koko ak kakok ik kokoke ak ak ak ak ak ok ak a 0003D2 6A00 0426 621 BON PRAT BRANCH IF YES 
000330 T70Q6E 505 XIOER CPLSR R3 SAVE CONDITION CODE ON I/O ERROR 0003D6 5600 622 BXS (R6) RETURN 
000332 336A 506 SRL 13, POSITION CC CODE TO BITS 13-15 623 * 
000334 C328 0014 507 MVB R3 Born * PUT IN LOG OUT AREA 624 * I/0 PARAMETER LIST 
000338 6802 0426 508 B PRNT BRANCH TO PRINT ERROR 625 * 

CWRU EE TEST TS STL SST SS tT TT SST SSCL CSS SSL SS SS SCS SS SSS SSC SSC SS SST SS SLL SS SSS SS St sf 0003D8 o0uc 626 IOBLK DC A(S$DVAD ADRS OF DEVICE ADRS 

511 * * OOO3DA 0330 627 IOERR DC A (XIOER ERROR ROUTINE ADRS 

512 * SOUBROUTINE * 0003DC 0000 628 IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 

513 * * O0OO3DE 0000 629 IOMOD DC A (*-* MODIFIER 

514 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL! % 0003E0 0000 6 30 DC A (*-* ADRS OF LAST SVC CALL 

515 * *« 0003E2 0000 631 IORSP DC A (*-* SECOND WORD OF LAST IDCB 

516 * PURPOSE * 632 * 

517 * * 633 * INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 

518 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR * 634 * 

519 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * OOO0O3E4 QO4C 635 INTBL DC A($DVAD ADRS OF DEVICE ADR 

520 * EXPECTED CODE. * OO03E6 0358 636 INTO1 DC A (INTOK INTERRUPT OK RETURN ADRS 

521 * * OOO03E8 033C 637 INTO2 DC A{INTER INTERRUPT ERROR ADRS 

522 * CALLING SEQUENCE * OOO3EA 0003 638 INTCC DC X*0003' INTERRUPT CODE EXPECTED 

523 * * 640 3 RII IO I I I ik i ia ak ak ak kkk ak ak ak kok ak kok ak oc ak 

524 * SUPVR WILL ENTER WHEN AN ERROR OCCURS OW AN I/0 INTERRUPT * 641 * * 

525 * * | 642 * SUBROUTINE * 

526 * RETURN CONTROL * 643 * * 

527 * * 644 * CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE * 

528 * Sv¥C EXIT RETURN TO USER VIA SUPVR * 645 * * 

529 * * 646 * PURPOSE * 

530 ae 2K ee a a a 2 a 2 2 i 2 i a 2k ak 2 ee ok kK ok i ok ak ake a ake ok ke ak ko ook 2k ak ok a cake ok ke of ok ke ak oc ake ok a ok ok kc 647 x * 
00033C 706E 531 INTER CPLSR R3 SAVE INDICATORS 648 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND * 
OOO033E 336A 532 SRL 13,R3 POSITION INDICATORS IN R3 649 * PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * 
000340 4424 ODODE 533 MVA OPTN1, R4 SET UP BASE ADRS 650 * TO INTERRUPT. * 
000344 4C27 534 TBT ee CS) IS CS IN PROGRESS 651 * * 
000346 1006 535 JOFF NTET * NO 652 * CALLING SEQUENCE * 
000348 4C68 536 TBTS ae CE TURN ON CYCLE STEAL INTER ERROR 653 * * 
OOO34A 6FOD 0040 537 MVW 7 est 8 SAVE CS ERR ISB VALUE, BITS 0-7 654 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: * 
O0034ER C328 0041 538 MVB "CSTL8+1 * AND THE COND CODE 655 * * 
000352 5009 539 J Boegs BRANCH 656 * --> BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
000354 4C61 540 INTET TBTS (a4 ER) SET ERROR ON I/O COMMAND CNTL BIT 657 * --> BAL $CONR, R6 BCH TO CONNECT * 
000356 5007 541 k BRANCH 658 * -=> BAL $CONP, R6 PREPARE DEVICE ONLY * 

543 RR KK kk ok kK kK ak OK A IK kk ak ke i ic kk i ke fe 2 2k ke 2 a ke of a a ake ai kc 2 ak 2k 2k 2c ac 659 * * 

54y * x 660 * RETURN CONTROL * 

545 * SOUBROUTINE * 661 * * 

546 * * 662 * BXS (R6) RETURN TO USER VIA REG 6 * 

547 * OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* * 663 * * 

548 * * 664 OR OR ok kok ok IKK OK i kkk iok kok koko ke flak uk kkk kak ak tote ak ak ok ak 

549 * PURPOSE * OO0O3EC 665 $CONR EQU * 

550 * * OOO03EC 4724 O3E4 6 66 MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 

551 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST * QOO0O03FO 6014 667 SVC CICB * CONNECT IT TO THIS DEVICE 

552 * * O0003F2 68C2 0000 668 B (R6) RETURN 

553 * CALLING SEQUENCE * Q003F6 669 $CONC EQU * 

554 * * 0003F6 CB25 0012 670 MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 

555 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * OOO3FA 8828 0056 O3DC 671 $CONP MVW S$INTL,IODCB PUT IN LEVEL & INTR PARAMETER 

556 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE x 000400 4724 O3D8 672 MVA TOBLK,R SET RV TO CONTROL BLOCK TO PREPARE 

557 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 000404 4020 0014 OT7FF 673 MVWI X'O7FF', $IOIN INITIALIZE CONDITION CODE STORAGE 

558 * COMMON SECTION IS HANDLED HERE. * OOO4OA CB25 0016 674 MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 

559 * * OOO4¥OE 6EOD 0018 675 MVW R6 LSTIO SET UP ADDRESS THAT STARTED LAST I/0 

560 * RETURN CONTROL * 000412 402E 0018 0004 676 SWI 4 £stro DECREMENT TO POINT AT INSTRUCTION 

561 * * 000418 =4324 0000 677 MVA $PID,_R LOAD ADDRESS OF SfART OF PROG 

562 * svc EXIT RETURN TO USER VIA SUPVR * 00041C CB2F 0018 678 SW R3 Pero SUB TO OBTAIN LISTING ADDRESS 

563 * * 000420 600C 679 SVC PREP * AND CALL ON SUPVR 

S64 RRO iO go fold kr OR Ok io kok kK kok kkk ak te ok ke ok ak kc ok 000422 68c2 0000 680 B £R6) RETURN 
000358 TO6E 565 INTOK CPLSR R3 SAVE INDICATORS 6 BD Fe He 2 oe 2 ake ah a 2 ae he he 2 af ae a a 2 2K ie 2 ic 2 ak 2k ok 2 ok i oi ic a 2 2k ofc 2k 2k a age kc af ae ak af af af of aie ae ake ae ae fe afc oe ak akc ofc ake ae ak age ok kc 2c 
00035A 336A 566 SRL 13,R3 POSITION INDICATORS IN R3 683 * COMMON PRINT ERROR INTERFACE ROUTINE * 
00035c 4424 OOO 567 MVA OPfN1,R4 SET UP BASE ADRS 684 * x 
000360 4c24 568 TB oye Xf) TEST EXPECTED ERROR BIT 685 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 
000362 1001 569 JOFF nth1 BRANCH IF OF 686 * BRANCH IS TAKEN TO PRINT THE ERROR * 
000364 4cC69 570 TBTS R4,GI SET GOOD INTERRUPT BIT 687 * ----> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 
000366 4C63 571 INTR1 TBTS R4,IN SET INTERRUPT RECEIVED 688 * BRANCH IS TAKEN TO PRINT THE ERROR * 
000368 4C27 572 TBT R4,CS IS *'CS IN PROGRESS! ON 689 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 
O0036A 1204 573 JON NT k2 * YES, BCH AROUND UPDATE 690 * BRANCH IS TAKEN TO PRINT THE ERROR * 
00036C C328 0015 574 MVB R3, SIOIN+1 SAVE INTERRUPTING CC CODE 691 * ----> PRNTRTN THIS LABELED ADDRESS IN SYST PROG ID = D3410/SYST ) * 
000370 6F0D 0016 575 MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS 692 * POINTES TO A COMMON ERROR OUTPUT AND FORMATTER ROUTINE® 
000374 =78B9 576 INTR2 CPCL R5 COPY INTERRUPT LEVEL TO CHECK 693 * WHICH WILL RETURN TO THIS PROG VIA REGISTER SEVEN 
000376 3521 577 SLL 4,RS POSITION INTR LEVEL AND PUT 694 * 
000378 0501 578 ABIL 1.5 * IN "It BIT MELE eS Se SSS SLL SS ST TSS SSS SS SSS SSS CSCS LSS SS SSeS SS TL SSS SSS SCS CSL SSS LSS PL es fs 
OO0037A CD24 0056 579 CW SEINTL,RS IS eo. THE CORRECT INTR LEVEL 000426 4624 0012 696 S$PRNT MVA OPTN3, R6 LOAD ADDRESS OF OPTION WORD THREE 
OO037E 1004 580 JE INTR3 * YE GO EXIT THIS LEVEL OOO42A 6D08 181E 697 MVW PRNTRIN,RS LOAD ADDRESS OF COMMON PRNT ROUTINE 
000380 3521 581 SLL 4,R5 POSTTtoR RECEIVED LEVEL O0O042E 4424 0000 698 MVA S$PID,R4 LOAD ADDRESS OF START OF PROG 
000382 6D0D 0020 582 MVW R5 DEV3+2 STORE INTO DEV4 000432 4324 0042 699 MVA PCTR, R3 LOAD ADDRESS OF PASS COUNTER 
000386 4cC65 583 BTS R4,LE SET INTR LEVEL ERROR CONTROL BIT 000436 6FA3 Q000 700 BAL (R5) R7 BRANCH TO COMMON PRINT ROUTINE 

000388 4CA2 584 INTR3 TBIR R4,XI WAS INTERRUPT EXPECTED O0043A CE25 0012 701 MVWZ OPT 37 RG ZERO OUT ALL FLAGS 
00038A 1201 585 ON NTRX * YES, EXIT OFF THIS INTR LEVEL OOOX#3E 442k OOOE 702 MVA OPTN1, R4 LOAD ane ADDRESS FOR INDICATORS 
00038C 4C60 586 TBTS (eigen * NO, SET MYSTERY INTR CONTROL BIT 000442 802B 0232 0060 703 CB CPUTYPE, TYPE23 IS THIS A TYPE 23 PROCESSOR 
00038E 6006 587 INTRX SVC xX EXIT THIS LEVEL VIA SUPVR TO PGM 000448 1803 704 JNE SPRN2 BRANCH IF NO 

589 3 OO Fo OR ORR IR KR RO IO 2 OR i rR I kk xk tok kak ak ok OOO4U4A u524 FOOO 705 MVWI X'EOO0O',RS5S INIT LOOP COUNTER 
590 * OOO44E 5002 706 J SPRN1 BRANCH 


EFOEO --- SYSTEM TEST EXERCISOR FOR THE BSCA SL PN=4414109 EC=754882 PAGE O4 EFOEO --- SYSTEM TEST EXERCISOR FOR THE BSCA SL PN=4414109 EC=754882 PAGE OWA 
LOCTR OBJECT TEXT STMT SOURCE., STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
000450 4524 8000 707 $PRN2 MVWI 50900" R5 INIT LOOP COUNTER DECLARED NAME ATTRIBUTES AND REFERENCES 
Oodee Haig 308 PEM aie TM eon R 0 R1 ABSOLUTE. HEX VALUE(00000001) 
PROG TERMINATE eK le ° 
gauuge SAGG 9080 me fae a el 
INCREMENT LOOP COUNTER 
009460 1889 eS 712 INZ  $BRRA BRANCH NOT ZERO 0 ~R2. ABSOLUTE. Hex VALGE {00 oop oe?) 
714 <5 VHGLGUAAEES FES EUSERREORDEARUEREH Cn EERE CEST e EE ER e Che ae eee a na kaxees 0 -R3. ABSOLUTE. HEX Leer ee 
7115 2A I CGI IC IOI OGIO II IGOR IO I BOI dr i a Ii ici ica ak ake ak Yu 4 453 454 455 458 459 462 505 506 
000466 4O0404040404040404 716 DRBUF DC CL16" ' MAXIMUM WRITE BUFFER 207 83934 © =532 06538 6565 «65660 = 574 615 670 
000476 717 TSTE EQU 674 677 678 699 
718 ERR ERE N4SKS EEE EEEKEESEAAS EERE R RARER ERE REET EREOE EKA NEL eeK eee EE 0 -R4. ABSOLUTE, HEX a Oe aL 
000062 719 END $PENT 141 142 278 286 443 Quy G47 449 463 
474 474 476 480 481 533 534 536 540 
567 568 570 571 572 583 584 5 86 596 
598 600 602 604 606 608 611 617 620 
698 702 709 
0 -R5. ABSOLUTE. HEX SE ey, 
168 169 170 171 172 456 458 460 462 
468 470 470 478 576 577 578 579 581 
582 697 700 705 707 711 
0 -R6. ABSOLUTE. HEX ee hn ea 
140 167 173 174 194 198 208 213 216 
217 239 242 256 258 277 280 288 454 
603 6 16 619 622 668 675 680 696 701 
0 eR7. ABSOLUTE. HEX Sy hee 
148 152 155 156 199 201 457 461 465 
537 575 666 672 700 
60 SCKPT ADDRESS. HEX LOCATION (0000000C b IN CSECT(EFOEO ) LENGTH (2) 
168 209 241 257 279 87 
669 $SCONC ADDRESS. HEX LOCATION(000003F6) IN CSECT(EFOEO ) LENGTH (1) 
198 213 39 256 277 
665 $CONR ae HEX LOCATION (QOOO003EC) IN CSECT(EFOEO ) LENGTH (1) 
100 SDATA feo ae LOCATION (O0000001A) IN CSECT(EFOEO ) LENGTH (2) 
123 $DVAD ADDRESS. HEX LOCATION (0090004C) IN CSECT(EFOEO at LENGTH (2) 
58 155 21 4 6 284 626 5 
126 SDVID sue be LOCATION(00000058) IN CSECT(EFOEO ) LENGTH (2) 
125 SINTL ADDRESS. HEX LOCATION (00000056) IN CSECT(EFOEO om LENGTH (2) 
139 151 9 19 7 10 212 579 
97 SIOIN Sees eg N CSECT (EFO EO LENGTH (2) 
98 SISB Beye ase Ge eee) IN CSECT(EFOEO LENGTH (2) 
127 SMXSL Teg teese HEX LOCATION(0000005A) IN CSECT(EFOEO ) LENGTH (2) 
137 $PENT ADDRESS, HEX LOCATION (00000062) IN CSECT(EFOEO ) LENGTH (6) 
55 $PID Regt egg ese IN CSECT (EFOEO ) LENGTH (4) 
6 96 SPRNT ADDRESS. HEX ope tape cee eo} IN CSECT(EFOEO ) LENGTH (4) 
rath rae 230 246 265 85 482 508 610 
708 $PRN1 a Tae LOCATION (00000454) IN CSECT(EFOEO ) LENGTH (2) 
707 $PRN2 Ty eae HEX LOCATION (00000450) IN CSECT(EFOEO ) LENGTH (4) 
141 SPUPD One eng oe eee IN CSECT (EFQEO ) LENGTH (4) 
161 $PUP8 Ane oes HEX LOCATION (Q00000B0) IN CSECT(EFOEO ) LENGTH (6) 
150 SRETI Ange HEX LOCATION (0000008C) IN CSECT(EFOEO ) LENGTH (6) 
178 $RTAD ADDRESS. HEX LOCATION(OOQ0000DC) IN CSECT(EFOEO ) LENGTH (2) 
59 SRINE ADDRESS. HBX LOCATTON (0000000a) IN CSECT (EFOEO ) LENGTH (2) 
147 STERM AOORESS AEX LOCATION (00000080) IN CSECT(EFOEO ) LENGTH (6) 
155 STER1 AEERESS HEX LOCATION (OOOOOOA4) IN CSECT(EFOEO ) LENGTH (4) 
298 ASDCB A agate HEX LOCATION (00000224) IN CSECT(EFOEO ) LENGTH (1) 
92 CE ABSOLUTE. HEX VALUE (00000028) 
443 536 608 
38 CICB BER re HEX VALUE (00000014) 
51 CPUTYPE hee 903 HEX VALUE (00000232) 
91 CS ABSOLUTE. HEX Aaah eae td 
4uy G47 534 5 6 
111 CSBUF oie aie LOCATION (00000032) IN CSECT (EFOEO ) LENGTH (1) 
310 CSDCB a a HEX LOCATION (00000234) IN CSECT(EFOEO ) LENGTH (1) 
6 20 CSRIN Sog° HEX LOCATION (000003D0) IN CSECT(EFOEO ) LENGTH (2) 
247 CSST4 OT eee HEX LOCATION (O00001A4) IN CSECT(EFOEO ) LENGTH (4) 
113 CSTL2 ADDRESS. HEX LOCATION (00000034) IN CSECT(EFOEOQ ) LENGTH (2) 
119 CSTL8 aap eset LOCATION (00000040) IN CSECT(EFOEO ) LENGTH (2) 
103 DCBUF feo HEX LOCATION (00000022) IN CSECT (EFOEO ) LENGTH (2) 
101 DEV3 ADDRESS. Pee age aaa ts IN CSECT (EFOEO abate 
102 DEV4 Saee oa oe ee) IN CSECT (EFOEO ) LENGTH (2) 
322 DGDCB ADDRESS. HEX LOCATION (00000244) IN CSECT(EFOEO ) LENGTH (1) 
716 DRBUF ADDRESS. HEX BO oon ope eb IN CSECT(EFOEO LENGTH (16) 
aA0 ana 220 223 225 26 229 240 306 
335 DSDCB oH toni HEX LOCATION (00000254) IN CSECT(EFOEO ) LENGTH (1) 
36 EF OEO CSECT. START (00000000) LENGTH(1142) ESDID(0) 
85 ER ABSOLUTE. HEX gee eon 
480 540 60 611 620 
44 EXIT ABSOLUTE. HEX VALUE(00000006) 


EFOEO --- 


DECLARED 


347 
360 
93 
128 
129 

42 

87 
635 
531 
540 
565 
587 
571 
576 
584 
6 26 
6 28 


627 
629 
631 
217 
197 
208 
231 
225 
89 
90 
99 
84 
62 
72 
120 
94 
43 
50 
47 
44 
48 
194 
239 
256 
264 
266 
277 
286 
293 
284 
45 
46 
66 
130 
88 
86 
44 
385 
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NAME 


E1DCB 
E2DCB 
GI 
HOOO0O0 
HO001 
IDLE 
IN 
INTBL 
INTER 
INTET 
INTOK 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOERR 
IOMOD 
IORSP 
ITSTA 
ITST4 
ITST5 
ITST7 
ITST9 
LE 

LI 
LSTIO 
MI 
OPTN1 
OPTN3 
PCTR 
PE 
PREP 
PRNTRTN 
RESET 
RICB 
RID 
RTO1 
RTO2 
RTO 3 
RTO31 
RTO 32 
RTOY 
RTO41 
RTO42 
RTO 43 
START 
TERM 
TM 

TY PE23 
XE 

XI 
XIO 
XIOAS 
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PN=44 14109 


CROSS~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


HEX LOCATION (00000264) 
HEX LOCATION (00000275) 
. HEX VALUE (00000029) 

HEX LOCATION (0000005C) 
RESS. HEX LOCATION (00000058) 
OLUTE. HEX VALUE (00000002) 

OLUTE, HEX VALUE (00000023) 

RESS. HEX LOCATION (000003E4) 
RESS. HEX LOCATION (0000033C) 
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EF1EO --- SYSTEM TEST EXERCISOR POR THE BSCA ML PN=4414110 EC=755104 PAGE 04 EF1EO --- SYSTEM TEST EXERCISOR FOR THE BSCA ML PN=4414110 EC=755104 PAGE O4A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
su : COMMON PRINT ERROR INTERFACE ROUTINE DECLARED NANE ATTRIBUTES AND REFERENCES 
709 * ----> R6 LOADED WITH THE START ADDRESS OF THE DATA BEFORE THE * 0 aR We ABSOLUTE. HEX VALUE (00000001 
710 * BRANCH IS TAKEN TO PRINT THE ERROR * 224 225 226 545 243 244 248 249 250 
711 * ----> RY LOADED WITH THE START ADDRESS OF THE PROG BEFORE THE * 254 255 256 270 273 275 290 291 293 
712 * BRANCH IS TAKEN TO PRINT THE ERROR * ~R2. ABSOLUTE. HEX VALUE (00000002) 
713 * ----> R3 LOADED WITH THE PASS COUNTER ADDRESS BEFORE THE * 216 235 241 292 297 
714 * BRANCH IS TAKEN TO PRINT THE ERRO * 0 -R3. ABSOLUTE, HEX VALUE (90000003) 
715 * ----> PRNTRIN THIS LABELED ADDRESS IN SYST § PROG ID = D3410/SYST \ * 152 153 474 466 487 488 491 492 495 
716 * POINTES TO A COMMON ERROR OUTPUT AND FORMATTER ROUTINE* 539 540 341 565 966 572 599 600 608 
at) : WHICH WILL RETURN TO THIS PROG VIA REGISTER SEVEN : ont ore S28 nea 702 723 749 751 753 
soounE “USoROGNS 413 SBAHR GUL (Gena ce rt a cece cee nee eer anette thet etee 0 ~R4. ABSOLUTE. HEY noes cooeeae 18 u76 was an 
PRNT MVA OPTN3, R6 LOAD ADDRESS OF OPTION WORD THREE 
QOOSE2 6D08 181E 721 HVW «PRNTREN, RS LOAD ADDRESS OF COMMON PRNT ROUTINE 482 496 499 505 508 $510 514 j$|.‘|515 £567 
OOO4E6 4424 0000 722 MVA PID, LOAD ADDRESS OF START OF PROG 568 570 574 601 602 604 605 606 617 
OOO4EA 4324 0042 723 MVA PCTR,R3 LOAD ADDRESS OF PASS COUNTER 618 620 630 632 634 j.636 638 640 £642 
QOO4EE 6FA3 0000 724 BAL (RS) R7 BRANCH TO COMMON PRINT ROUTINE 645 651 654 722 726 $733 746 757 761 
QOOO4F2 CE25 0012 725 MVWZ OPTN3, R6 ZERO OUT ALL FLAG 764 
OOO4F6 4424 OOOE 726 MVA OPTN1,R4 LOAD BASE ADDRESS. FOR INDICATORS 0 -RS5. ABSOLUTE. HEX Aber yi 
OOOYFA 802B 0232 O0A6 727 CB CpuTybe, ryPE23 IS THIS A TYPE 23 PROCESSOR 151 153 189 190 191 192 193 489 491 
000500 1803 728 JNE $PRN2 BRANCH IF NO 493 495 502 504 504 512 610 611 612 
000502 4524 £000 729 MVWI X*EOOO',RS INIT LOOP COUNTER 6139 615 616 721 724 $4729 731 £4735 748 
000506 5002 730 $PRN1 BRANCH 751 759 760 766 #768 
000508 4524 8000 731 $PRN2 MVWI X*'8000',RS INIT LOOP COUNTER 0 -R6. ABSOLUTE. HEX EAUUE toe eee 
00050C 6002 732 $PRN1 SVC IDLE DELAY 154 164 188 194 195 215 219 231 236 
QO0OSOE 4C03 733 TBT {rs TM) SHOULD PROG TERMINATE 239 240 269 272 287 289 309 312 320 
000510 6A00 OOFK 734 BON TERM BRANCH YES 484 637 #650 653 656 692 699 704 720 
000514 7DA1 0001 735 AWI 1,R5 INCREMENT LOOP COUNTER 725 770 
000518 18F9 736 JNZ sPRNt BRANCH NOT ZERO 0 -R7. ABSOLUTE. HEX EE ee 
00051A 6802 00B2 737 B PENT BRANCH TO RESTART FROM BEGINING 150 167 171 174 175 220 222 490 494 
T39 tO FR OOK OO II ROOK TO io dio Rik kak 498 571 609 690 696 724 750 765 
7u0 * * 61 $CKPT ADDRESS. HEX LOCATION (0000000C L IN CSECT (EF1E0 ) LENGTH (2) 
741 * ROUTINE TO CHANGE DEVICE ADDRESS WHEN TESTING MULTILINE * 189 232 271 288 311 19 
742 * * 693 $SCONC ADDRESS. HEX LOCATION(OOOOOGAE) IN CSECT(EF1E0 ) LENGTH (1) 
TQ 3 RH HH HK HK KK kk kk kk kkk kkk kok kk tok doko kok kk i tok kk ck 219 236 269 287 309 
00051E 402B OOAA 4000 744 SUPDA TWI X*4000', $DVUT+2 IS THE CHAIN BIT ON 689 SCONR ADDRESS. HEX LOCATION(OOOOO4A4) IN CSECT(EF1E0 ) LENGTH (1) 
000524 1204 745 JON ae BRANCH NO 215 
pooeee igae oar aS TBTS 460 UES INDICATE THAT IT IS RESTORED 101 SDATA Py Nala a LOCATION (QOO000001A) IN CSECT(EF1E0 ) LENGTH (2) 
E Cc SUPD AVA BY D,WORK1 RESTORE TO FIRST ENTRY 
000525 6008 OS7E 148 SUP1 BV W HORK1, R5 LOAD ADDRESS INTO RS 124 $DVAD ADDRESS, HEX LOCATION (0000904C IN CSECT(EF1E0 ) LENGTH (2) 
S 
0005 36 4724 OOOA 150 MVBL 10,87" eure COuLE ae 134 $DVID ADDRESS. HEX LOCATION(OO00009E) IN CSECT(EF1E0 ) LENGTH (2) 
0 A 2D64 51 MVFN R R3 MOVE ENTRY 
00053C 4029 O57E OO0OA 752 AWI {3 Losey INCREMENT R1 TO NEXT ENTRY 139 $DVUT ADDRESS. HEX ie oe ct aang IN CSECT (EF1E0 } LENGTH (10) 
000542 C320 OOAE 753 MVB $DV0T+6, R3 LOAD VALID ENTRY BYTE 152 293 295 29 316 60 669 T4y 749 
000546 7B64 FFOO 754 RBTWI X*FFOO!,R3 RESET ALL UNWANTED BITS 753 767 
OOOS4A 7B06 OOFF 755 CWI X'OOFF!,R3 IS THIS A VALID ENTRY 133 $SINTL ADDRESS. HEX LOCATION (0000009C) IN CSECT(EF1E0 } LENGTH (2) 
0O0O054E 10E7 756 JE SUPDA BRANCH NO 148 170 216 217 218 33 35 613 695 
000550 4cé8D 757 TBTR gre QUES) IS THIS AFTER A RESTORE 98 $IOIN ADDRESS. HEX LOCATION(00000014) IN CSECT(EF1E0 ) LENGTH (2) 
000552 1204 758 JON UPRT BRANCH YES 541 608 697 
000554 CD25 0580 7159 MVWZ WORK2,R5 LOAD RETURN ADDRESS 99 $ISB ADDRESS. HEX LOCATION (00000016) IN CSECT(EF1E0 ) LENGTH (2) 
000558 68A1 0000 760 BNZ RS) BRANCH IF VALID RETURN ADDRESS 313 321 609 
00055C 4C8F 761 SUPRT TBTR R4,DIR) SHOULD RETURN BE VIA R6 135 $NXSL ADDRESS. HEX LOCATION (OOQO00A0) IN CSECT(EF1E0 ) LENGTH (2) 
00055E 1202 762 JON UPTV BRANCH YES 183 
900560 6802 oOoDC 793 B SPOPD BRANCH YES 146 $PENT ADDRESS. HEX LOCATION (00900082) IN CSECT (EF1E0 ) LENGTH (6) 
C8D SUPTV TBTR R4, QUES RESET BIT 
000566 4724 OOOA 765 HVAT {6 By INIT RT TO COUNT 56 $PID ADDRESS. HEX LOCATION (00000000) IN CSECT(EF1E0 ) LENGTH (4) 
00056A 4524 0582 7166 MVA  WORK3,R5 INIT FROM ADDRESS 4 86 701 72 
00056E 4324 OOA8 767 MVA $DVUT, R3 INIT TO ADDRESS 720 $PRNT ADDRESS. HEX LOCATION (000004DE IN CSECT (EF1E0 ) LENGTH (4) 
000572 2D64 768 MVFN (RS) (R3) MOVE DEV TABLE 230 247 253 25 276 96 317 516 542 
000574 8828 058C O057E 7169 MV oRK4 ,WORK1 RESTORE WORK1 644 648 655 
00057A 68C2 0000 770 B (R6 RETURN TO CONTI 732 $PRNI ADDRESS. HEX LOCATION (0000050C) IN CSECT(EF1E0 ) LENGTH (2) 
T7172 sok OR RO Rok koko Rg tok oki ko ii koi itor kok toktakoioiakoiokkoak to goko ic ak kok foie fc ate afc ae 730 736 
T73 KR OO IO IO ORI OR IO IOI RO Oi i tOq OR i aI foi ak ak 731 S$PRN2 ADDRESS. HEX LOCATION(00000508) IN CSECT (EF1E0 ) LENGTH (4) 
00057E 0000 774 WORK1 DC DEV TABLE POINTER 728 
000580 0000 775 WORK2 DC A (ee RETURN POINTER FOR ROUTINE SUPDA 188 $PSEL ADDRESS. HEX LOCATION (0000013E) IN CSECT(EF1EO ) LENGTH (4) 
000582 00000000000000000 776 WORK3 DC XL10° TEMP SAVE AREA FOR DEV TAB 260 277 299 3 
OO088E O4uO4O4ONO4O4OKON 179 DRRUF DG enieere TEMP SAVE BREA, FOR WORK oe eee [5 gO a tc er a Me 
00059E 780 TSTEN FOU * 182 $PUP8 ADDRESS. HEX LOCATION(00000130) IN CSECT(EF1E0 ) LENGTH (6) 
TB ee ee he he He a 2 ek KK kK ok kok ok kkk kK kK kkk kage kak ok gc gk kkk kok kak ak ak ake ie ac a ake fe akc aie ake ae 157 
0000B2 782 END SPENT 169 $RETI ADDRESS. HEX LOCATION (00000102) IN CSECT(EF1E0 ) LENGTH (6) 
199 SRTAD ADDRESS. HEX LOCATION (0000015C) IN CSECT(EF1E0 ) LENGTH (2) 
60 $RTNE ADDRESS, HEX LOCATION (00000008) IN CSECT(EF1E0 ) LENGTH (2) 
161 $TERM ADDRESS: HEX LOCATION(OOOOOOE4) IN CSECT(EF1E0 ) LENGTH (2) 
174 $TER1 ADDRESS. HEX LOCATION (0000011A) IN CSECT(EF1E0 ) LENGTH (4) 
179 $STER2 ADDRESS. HEX LOCATION(0000012E) IN CSECT(EF1E0 ) LENGTH (2) 
166 $TER3 ADDRESS. HEX LOCATION (QOOO00F6) IN CSECT(EF1E0 ) LENGTH (6) 
331 ASDCB ADDRESS. HEX LOCATION (000002DA) IN CSECT(EF1EO ) LENGTH (1) 
93 CE ABSOLUTE. HEX VALUE(00000028) 
476 570 642 
39 CICB ABSOLUTE. HEX VALUE (00000014) 
52 CPUTYPE RESOLUTE. HEX VALUE (00000232) 
92 cs ABSOLUTE. HEX VALUE (00000027) 
Q77 480 568 606 
112 CSBUF ADPRESS= HEX) LOCATION (00000032) IN CSECT(EF1E0 ) LENGTH (1) 
343 CSDCB ADDRESS. HEX LOCATION (OO0002EA) IN CSECT(EF1E0 ) LENGTH (1) 
654 CSRTN ADDRESS. HEX LOCATION (00000488) IN CSECT(EF1E0 ) LENGTH (2) 
277 csstT4 ADDRESS. HEX LOCATION(00000248) IN CSECT(EF1E0 ) LENGTH (6) 
114 CSTL2 ADDRESS. HEX LOCATION (00000034) IN CSECT(EF1E0 ) LENGTH (2) 
120 CSTL8 ADDRESS; HEX LOCATION (00000040) IN CSECT(EF1E0 ) LENGTH (2) 
104 DCBUF ADDRESS. HEX LOCATION(00000022) IN CSECT(EF1E0 ) LENGTH (2) 
102 DEV3 ADDRESS. HEX XK, LOCRTEGN (00000018) In IN CSECT (EP EO L LENGTH (2) 
132 193 228 22 246 52 258 275 295 
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EF1EQ --- SYSTEM TEST EXERCISOR FOR THE BSCA ML PN=4414110 EC=755104 
CROSS-REFERENCE LISTING 
DECLARED NAME ATTRIBUTES AND REFERENCES 

325 RTO42 ADBness. HEX LOCATION(000002D0) IN CSECT(EF1EO ) LENGTH (6) 
316 RTO43 ADDRESS. HEX LOCATION(OO0002AA) IN CSECT(EF1EO ) LENGTH (6) 

46 START ABSOLUTE. HEX VALUE (0000000A) 
747 SUPD ADDRESS. HEX LOCATION (00000528) IN CSECT(EF1EO ) LENGTH(6) 
744 SUPDA ADDRESS. HEX LOCATION (00QO0051E) IN CSECT(EF1EO ) LENGTH(6) 
761 SUPRT ADDRESS. HEX LOCATION(0000055C) IN CSECT(EF1EO ) LENGTH(2) 
764 SUPTV ADDRESS. HEX LOCATION (00000564) IN CSECT(EF1EO ) LENGTH(2) 
748 SUP 1 ADDRESS. HEX LOCATION (0000052E) IN CSECT(EF1EO ) LENGTH (4) 

47 TERH ABSOLUTE. HEX VALUE (00000007) 

67 TH ABSOLUTE. HEX VALUE (00000003) 

138 TYPE23 ADDRESS, HEX LOCATION (O00000A6) IN CSECT(EF1E0 ) LENGTH(2) 
774 WORK1 ADDRESS, HEX LOCATION (0000057E) IN CSECT(EF1EO ) LENGTH(2) 
775 HORK2 ADDRESS. HEX LOCATION(00000580) IN CSECT(EF1EO ) LENGTH (2) 
776 WORK3 ADDRESS. HEX LOCATON (000005 82} IN CSECT(EF1EO ) LENGTH(10) 
777 WO RK4 ABBress. HEX LOCATION (0000058C) IN CSECT(EF1EO ) LENGTH(2) 

89 XE ABSOLUTE. HEX VALUE (00000024) 

87 XI ABSOLUTE. HEX VALUE (00000022) 

499 505 618 

474 XIO ADDRESS, HEX LOCATION (0000036A) IN CSECT(EF1EO ) LENGTH(4) 
418 XIOAS ADDRESS. HEX LOCATION (0000034A) IN CSECT(EF1EO ) LENGTH(6) 
630 XIOCK ADDRESS. HEX LOCATION (00000448) IN CSECT(EF1EO0 ) LENGTH (2) 
6 36 XIOCM ADDRESS. HEX LOCATION (00000454) IN CSECT(EF1EO ) LENGTH (2) 
478 XIOCS ADDRESS. HEX LOCATION (00000374) IN CSECT(EF1EO ) LENGTH(6) 
648 XIOCU ADDRESS. HEX LOCATION (00000474) IN CSECT(EF1EOQ ) LENGTH(4) 
645 XIOCV ADDRESS. HEX LOCATION(0000046C) IN CSECT(EF1EO ) LENGTH (2) 
649 XIOCX ADDRESS. HEX LOCATION (00000478) IN CSECT(EF1EQ ) LENGTH(4) 
415 XIODG ADDRESS. HEX LOCATION (0000033C) IN CSECT(EFIEO ) LENGTH (6) 
424 XIODS ADDRESS. HEX LOCATION (00000362) IN CSECT(EF1EO ) LENGTH(6) 
5 39 XIOER ADDRESS. HEX LOCATION (000003E8) IN CSECT(EF1E0 ) LENGTH (2) 
420 XIOE1 ADDRESS. HEX LOCATION (00000352) IN CSECT(EF1E0 ) LENGTH (6) 
422 XILOE2 ApDrzss. HEX LOCATION(0000035A) IN CSECT(EF1EO ) LENGTH(6) 
651 XIOGI ADDRESS. HEX LOCATION (00000480) IN CSECT(EF1E0 ) LENGTH(2) 
484 XI01 ADDRESS. HEX LOCATION (00000388) IN CSECT(EF1EO ) LENGTH(4) 
496 XI02 ADDRESS. HEX LOCATION (000003B0) IN CSECT(EF1EO ) LENGTH (2) 
504 XIO5 ADDRESS. HEX LOCATION (000003C8) IN CSECT(EF1EO ) LENGTH (2) 
505 XI06 ADDRESS. HEX LOCATION (000003CA) IN CSECT(EF1EZO0 ) LENGTH (2) 
507 xI08 ADDRESS. HEX LOCATION (000003CE) IN CSECT(EF1EO ) LENGTH (2) 
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EF8E0 --- SYSTEM TEST EXERCISOR FOR SDLC PN=H4414111 EC=754882 PAGE 01 EF8EO --- SYSTEM TEST EXERCISOR FOR SDLC PN=4414111 EC=754882 PAGE O1A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 II ROO ORI OR I I I ICR I CR OI 2k a ik ak ek 2 000040 0000 120 CSTL8 DC A (*-*) CYCLE STEAL WD 8, DEVICE DEPEND 
yx * 000042 00000000 121 PCTR DC 2A (*-* PASS COUNTER 
5 * CK PREREQUISITES CK * 000046 00000000 122 ECTR DC 2A (*-* ERROR COUNTER 
6 * * OOOOYA 0005 123 ERNUM DC xX'0005 NUM OF ERRORS PROG CAN HAVE 
7 * NONE * 00004C OOF8 124 $DVAD DC X'OOFS8! DEVICE ADDRESS BEING TESTED 
8 * x OOOO04E 0000000000000000 125 DC XL8*OO® 
9 OE OR IORI III OI III IR 2k kak kK 2k 000056 0011 126 SINTL DC X*OO11! INTEPPUPT LEVEL REQUESTED 
10 * * 000058 1016 127 $DVID DC X'10168 DEVICE IDENTIFICATION 
11 * Hk MODIFICATIONS OK * 0OO0Q05A 0005 128 $MXSL DC A (2) MAXIMUM SELECTABLE ROUTINES 
12 * x C00005c 0000 129 HOOO0O DC x*o0008 CONSTANT 
13 * CHANGES MADE TO ROUTINE ON THE INTERPETATION * COOOSE 0001 130 HOO0O1 DC X*'O0O018 HEX WORD CONSTANT 
14 x OF DIAGNOSTIC DATA FROM CARD (WITH/WITHOUT WRAP) * 000060 Q001 131 $HTOE DC A t, HEX TO EBC CONTROL BLOCK 
15 * *x 000062 d004C 132 DC A ($DVAD 
16 Xe 2 2 he a ake fe oe fe of 2 ke ake ak af aie akc ae fe af a ae ake ae ae fe ate ae fe ae ake af fe aa ke a age ae aie ae ake afc af fe af ae ae ake ike ae ke ae ake fe ac ake afk akc ae eae ae ake ate ae QO0064 0094 133 DC A(MSG11 
ae : G000E8 0072 134 SouUTN DEA (HSG01 SVC OUTI L 
18 * ** K REA'S INCORPORATED KK * 0 N CONTROL BLOCK 
19 * * OO0006A 0098 136 DC A INARA 
20 * 27-11576 * CO006C 0001 137 DC A (1 
21 * * QOCO6E 0000 138 pc A(0 
22 OR IO IORI I OI iO a doi koi io ok io kiko ok kok ek ikke i ik ak ak ak ac akc C00070 F8E1 139 DC X°FSE1? 
23 * * ea rei acs lad be eae be ras gia A WRAP CONNECTED TO DA = !? 
24 * OK SPECIAL INSTRUCTIONS ak * 
25 * * 000096 0000 142 DC A (0) 
26 * NONE * C00098 4040 143 INARA DC c' ‘ 
27 * * 00009A 2300 144 TYPE23 DC X*2300! CONSTANT TO CHECK PROCESSOR AGAINST 
28 COO IO IG IO OI GIO III IOI I IOI ICI 2 I I 2 Ik ak I IR ak ak ake ake ale ake afc afc akc ake ak fe ofe ak es a I 
290 x x x 
30 * KK E. C. HISTORY * *x nes c PROGRAM CONTROL FUNCTIONS * 
31 * x *x 
32 * DATE O6MAY77 DATE 15SEP77 DATE DATE cs 150 RACK RIOR IOI GIGI OIC I IO i ik ak ak ak i ak iia aie ake ako ak ak ak akc ake afeak ae afc ak af a afc afk ate ae afc ake fe akc 
34 * E.C. 578756 E.C. 754882 BC. EC. * 00009C 4020 O4BC 0412 151 SPENT MVA XIOER,ITOERR RESTORE ERROR ADDRESS 
34 * x OOOOA2 A82A 005C 0042 152 AD HOO00,PCTR ADVANCE PASS COUNTER BY 1 
35 GOR oo ok I tok a kak kok a ii ie ak kok ak ak ake teak a ake af ake af fe ake ake a ake fe ake ac af ak fc kc oe a afc ak fc 2c akc afc af kc ae ok OOQOA8 4020 0056 0011 153 MVWI X'0014' $INTL INIT INTERRUPT LEVEL 
000000 37 EFSEO START x*00008 QOOOOAE 44U24 OOOE 154 MVA OPTN1 RG LOAD ADDRESS OF OPTION WORDS 
38 * SUPERVISOR EQUATES 0000B2 4cOD 155 TBT {ea gbzs) HAS QUESTION BEN ASKED 
000014 39 CICB EQU 20 CONNECT INTERRUPT CONTROL BLOCK O0O00B4 120D 156 JON PEN BRANCH YES 
000001 4O OUTIN EQU 1 OUT MESSAGE WITH EXPECTED RESPONCE O0O000B6 YC4D 157 TBTS Ant QUES) SET QUES BIT 
COO0O01A 41 HTOE EQU 26 CHANGE HEX DATA TO EBCDIC DATA 0000B8 4724 0060 158 MVA HTOE,R7 LOAD ADDRESS OF CONTROL BLOCK 
000006 42 EXIT EOQU 6 EXIT INTERRUPT LEVEL OOO0QBC 601A 159 SVC HTOE ISSUE SVC 
000002 43 IDLE EOU 2 SHARE PROGRAM TIME WITH OTHER PGMS OOOOBE 4724 0068 160 MVA SOUTN, R7 LOAD ADDRESS OF CONTROL BLOCK 
O0000C 44 PREP EQU 12 PREPARE DEVICE O0000C2 6001 161 SVC OUTIN ISSUE SVC 
000013 45 RICB EQU 19 RELEASE INTERRUPT CONTROL BLOCK 0000CcCH C620 0098 162 MVB INARA, R6 LOAD ANSWER 
OOOO0OA 46 START EQU 10 START CYCLE STEAL COMMAND 0000C8 F6EB 163 CBI cry R6 COMPARE TO YES 
000007 47 TERM EQU 7 TERMINATE THIS PROGRAM QOQOOCA 1001 164 JE ISWRP BRANCH EQUAL 
000008 48 RESET EQU 8 DEVICE RESET 0000CC 5001 165 J SPEN1 BRANCH N 
000009 49 RID EOU 9 DEVICE READ ID QOOOOCE 4CHE 166 ISWRP TBTS ane IND) SET WRAP INDICATOR 
000000 50 REG EQUR 0 WORK REGISTER 0000D0 CE25 OOOA 167 $PEN1 MVWZ RTNE, R6 CLEAR OLD ROUTINE NUMBER 
330935 a) ERNTETN BQU ti gg38 GDDRESS CE PROCESSOR TYPE eS VOCATION 9090b8 Wcd3 169 $PUP2 THT (Rae Th) IS TERRINATE BGM REQUESTED 
53 x 0 OOD0DA 1018 170 f IZ {Bubs * NO, CONTINUE CHECKING 
54 x PROGRAM HEADING AND CONTROL WORDS 
55 * ae : TERMINATE CONTROL BIT FOUND ON 
56 PID DC C'*F8goo! PROGRAM IDENTIFICATION 
OeoOoe bone” 26 $ De See ae ERORERT LEVEL OP PROGGAE 0000DC 4020 O4BC 0OEB 174 $TERM MVA  $RETI,IOERR INIT ERROR ADDRESS 
000006 009c 58 pc A($PENT -> TO START EXEC ADDRESS OOOOE2 4724 OUBA 175 MVA TOBLK, R7 LOAD ADDRESS OF CONTROL BLOCK 
000008 O04c 59 DC A SDVADI -> TO DEVICE TABLE QO00E6 6008 176 SVC RESET ISSUE SVC 
OOOOO0A 0000 60 $RTNE DC A (*-* ROUTINE NUMBER BEING RUN OOOOE8 4020 O4&BC 0100 177 SRETI MVA $TER1,IOERR INIT ERROR ADDRESS 
288985 2989 oi teal be altel EhaEnie bres contese sau S9ogre o3e Sage PP 18 AYR ESET RS AgCE Lokp GpoRESS OF coVTEOL BLOCK 
OO00E OPTN1 DC x*0000! PROGRAM OPTION CONTROL WORD 
64 * OO0OF8 402D O4BE 0007 180 RBTWIL x'0004', ropcB TURN OF PREPARE 'I* BIT 
65 * BIT FUNCTION QOOOFE 600C 181 SVC PREP ISSUE SVC 
66 * 000100 C720 OO0O4C 182 STER1 MVB S$DVAD,R7 LOAD CURRENT DEV ADDRESS 
000003 67 TM EQU 3 TERMINATE PROGRAM 000104 7FE4 FFOO 183 RBTWI X'FFO6', R7 ZERO HIGH ORDEF BYTE 
C0000D 68 QUES EQU 13 QUESTION HAS BEEN ASKED 000108 6013 184 SVC RICB ISSUE SVC 
OOO00E 69 IND Bou 14 INDICATOR 00010A 6007 se : SVC TERM ISSUE SVC 
000 70 DI EQU 15 SEEK DIRECTION INDICATOR 
a eee eeeeopes a conaae O801%5 BRE SosE SOGR Tas SPOPP AR $0007 SETHE area FoR URE MEOEAG 
000010 0000 72 OPTN2 DC X*00008 PROGRAM OPTION CONTROL WORD 2 ’ S AUTOMATIC ROUTINE 
000012 0000 3 OPTN3 DC X'00008 PROGRAM OPTION CONTROL WORD 3 000118 10C1 ea a JE SPENT * BCH AND START WITH RTN 1 
je x | ERROR ENTERRODT 6 BR 8 GOOD INTERRUPT RECEIVED GY 133 * ra ee, ee 
77 * 2 EXPECTED INTERRUPT XI 10 PROBABLE ERROR EXPECTED PE eee ense Boon 13¢ SPSEL Ba eheneene aoe BT NUSeey IN REG 
78 * 43 %$INTERRUPT RECEIVED IN 11 NO INTERRUPT EXPECTED NI ’ 
3 ogoige bse bie 370 AYWZ EDARALS? ns eDapbbane barges OF PPV 
80 * 4 EXPECTED ERR/ATTENT XE 12 N.U. ] - +2, DEPE NT DATA 
Baca UB SURGE THUR LEVEL re 5 O88 GO012A CD25 OO1E 198 MVWZ DEV3,R5 pat epee ales 
got § LOAS INTERRUPT Hd ra $9313 $233 0020 $3 RYH BeuatZs as Sonate Fon Buhne 
83 * 7 CS STATUS IN PROGR CS 15 N.U. OU R BRANCH TABLE 
84 * BIT HEX 000134 68D2 0138 201 B (R6 , SRTAD) * BCH VIA RTN TABLE 
000020 85 MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 202 * 
o0os2 ao kr 2 EOU 3 2 3 ERBECTED INTERRUPT CONTROL BIT 50a x ee eae eee 
000023 88 IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000138 009C 205 $RTAD DC A (SPENT) NO RTN SELECTED 
000024 ' 89 XE EQU 36 rm 8 EXPECTED ERROR RESPONSE 00013A 0142 206 DC A(RTO1 ROUTINE ADDRESS 
000025 90 LE EQU 37 5 4 INTERRUPT ON WRONG LEVEL ERROR 00013C O1E4 207 DC A (RTO2 te tr 
000026 91 LI EQU 38 6 2 LOST INTERRUPT QVO013E 0238 208 DC A (RTO3 er rt 
000027 92 CS EQU 39 7 1 CYCLE STATUS IN PROGRESS 000140 O2AE 209 DC A(RTOY tr ur 
000028 93 CE EOU uo 8 8 CYCLE STEAL STATUS INERRRUPT ERROR 2171 RR ok kk ok kkk ak fe kok kkk kk kkk kek i kiko tok ik ke ake ke aici ak fc kok kk ak tok kak aki ak i kak ak ak ako ak ak ae ake ak 
000029 94 GI EQU 4 9 u GOOD INTERRUPT RECEIVED (EXPECTED ER) 212 * CHANNEL INTERFACE TEST * 
OOOO2A 95 PE EQU 42 10 2 PROBABLE ERROR EXPECTED 213 * TO VERIFY THE CHANNEL INTERFACE CAN INTERRUPT ON ALL LEVELS * 
00002B 96 NI EOU 43 11 1 NO INTR. EXPECTED OUNPREPED DEV. 214 * THE PROG WILL PREPARE THE I/O DEVICE TO INTERRUPT ON LEVEL ZERO * 
000014 =OO000 98 $IOIN D A (*-* I/O AND INTR CONDITION CODES 215 * AND CAUSE AN INTERRUPT. WHEN THE INTERRUPT OCCURS, THE LEVEL IS * 
000016 0000 99 $ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 216 * COMPARED TO THE EXPECTED LEVEL. THIS IS DONE ON ALL LEVELS * 
000018 0000 100 LSTIO DC A (*-* ADRS OF LAST I/O + 4 BYTES 217 * EXCEPT LEVEL THREE. AFTER THIS A DIAG. READ IS ISSUED AND * 
00001A 00000000 101 $DATA DC 2A (*-*) DEVICE DEPENDENT DATA 218 * A CHECKSUM CHECK IS PREFORMED. * 
00001E 0000 102 DEV3 DC A (*-* DEPENDENT DATA DEV3 219 Ao ok ok ki RI kai IR IO oko oi i ik kkk ak gk RR Rg GRR aR Rokr aK ak ak fork i aR ik ak aki ako aie ak 
000020 0000 103 DEVG Dc A l*-* DEPENDENT DATA DEV4 000142 6E03 O4CE 220 RTO1 BAL SCONR, R6 CLEAR AND CONNECT I/0 BLK 
000022 0000 104 DCBUF DC A (*-* LAST DCB TABLE, CONTROL WORD 000146 6A08 0056 221 MVW SINTL, R2 SAVE SELECTED INTERRUPT 
000024 0000 105 DCB2 pC A (*- * LAST DCB TABLE, DEV DEP WORD QOO14A C825 O2F8 222 MVW2 DRCTL, REG SET UP CONTROL WORD FOR TESTING 
0000 26 0000 106 DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD QOOT4E 4020 0056 FFF! 223 MV WI X' FFF}! SINTL SET UP INTERRUPT LEVEL FOR PREP 
000028 0000 107 DCB&Y DC A (*-* LAST DCB TABLE, DEV DEP WORD 000154 4029 0056 0010 224 ITSTY AWI X°10', SENTL ADV INTR LEVEL, STARTING AT 0 
00002A 0000 108 DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD QOQISA 6EO3 O4DB 225 BAL $CONC, R6 GO PREPARE ON NEW LEVEL 
00002c 0000 109 DCB6 Dc A (*-* LAST DCB TABLE, CHAIN ADRS QOO015E 4724 O4YBA 226 MVA IOBLK, R7 SET UP POINTER TO CONTROL BLOCK 
000028 0000 110 DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000162 6008 227 SVC RESET CALL SUPVR TO ISSUE RESET 
000030 0000 111 DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000164 4724 O4WBA 228 MVA IOBLK, R7 SET UP POINTER TO CONTROL BLOCK 
0000 32 112 CSBUF EQU * CYCLE STEAL DATA BUFFER 000168 6009 229 SVC RID CALL SUPVR TO ISSUE READ ID 
000032 0000 113 CSTL1 D A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 00016A 882B O4C4 0058 230 CW IORSP, $DVID IS ID RECEIVED THE SAME 
000034 0000 114 CSTL2 DC A (*- * CYCLE STEAL WD 2, DEVICE DEPEND 000170 1008 231 JE ITST5S * YES, CONTINUE 
0000 36 0000 115 CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 000172 8828 O4C4H OOTE 232 MVW IORSP, DEV3 LOAD RECEIVED ID INTO DEV3 
000038 0000 116 CSTL4& DC A l*-* CYCLE STEAL WD 4, DEVICE DEPEND 000178 8828 0058 0020 233 MVW oUv pe DEY ord LOAD EXPECTED ID INTO DEV4 
00003A 0000 117 CSTLS Dc A (*-* CYCLE STEAL WD 5, DEVICE DEPEND 0Q0017E 6802 0508 234 B PRNT BRANCH TO PRINT ERROR 
00003C 0000 118 CSTL6 DC A (*- * CYCLE STEAL WD 6, DEVICE DEPEND 000182 6£E03 0368 235 ITSTS BAL XIODR, R6 EXEC NO-OP TO GET AN INTR 
0003E 0000 119 CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 000186 4029 000C 0001 236 AWI 1,$CKbt BUMP CHECKPOINT 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00018C 402F 0056 0021 237 CWI X'21",$INTL HAS INTR LEVEL COME DOWN TO 2 0002D8 4029 000C 0001 354 AWI perEl BUMP CHECKPOINT 
000192 1880 238 JNE gst TY * NO, BCH AND CONTINUE TEST QOOO02DE 6£E03 8 355 BAL XtOE BRANCH TO TEST ERROR 
C00194 6A0D 0056 239 MVW Sante RESTORE SELECTED INTR LEVEL 0002E2 402B 0016 4000 356 TW xT pOGOr SISB TS ISB EQUAL TO 4OXX 
000198 6E03 O4D8 240 BAL Renee SET UP FOR START IO ON CORRECT LEV. Q0002E8 1204 357 JON RTOYW2 BRANCH YES 
00019C 402B 0050 8000 241 TWI x'80 HOOK. $DVAD+4 IS DTR JUMPERED ON O0O0O02EA 4020 0020 4000 358 MVWI xX'4000!',DEV4 DEVY EQUALS EXPECTED DATA 
0001A2 1202 242 JON er BRANCH IF YES OOO2FO SOED 359 RTO43 BRANC 
0001A4 6E03 038E 243 BAL XIODS, R6 BRANCH TO DISABLE DTR O0O02F2 4CAY4 360 RTOU2 TBTR {Re XE) RESETS EXPECTED ERROR BIT 
0001A8 6E03 O35A 244 ITSTA BAL XIODG, R6 SET UP FOR START I0 OOO2F4 6802 OODS4 361 Ppubp BRANCH TO CONTINUE 
0O001AC 4224 0548 245 ITSTC MVA DRBUF, R2 SET UP TO CHECK CHECKSUM 363 * 
0001B0 6908 0548 246 MVW DRBUF, R1 SET UP TO CHECK CHECKSUM VALUE 364 * DTR CONTROL BLOCK 
0001B4 690B O54A 247 XW DRBUF+2,R1 * AGAINST SHOULD BE 365 * 
0001B8 7921 0001 248 AWI 1,R1 CHECK FOR A VALID CHECKSUM 0002F8 366 DRDCB EQU * USE FOR DCB REFERENCE ONLY 
0001BC 1005 249 JZ Ttst9 BCH IF OKAY 0002F8 0000 367 DRCTL D Xx*0000° CONTROL WORD 
0001BE 9028 0548 OOIE 250 MVD DRBUF, DEV3 MOVE ERRORED CHECKSUM VALUE OO0OO2FA 2000 368 DRFMS Dc x¥* 20008 
0001C4 6802 0508 251 B $PRNT BRANCH TO PRINT ERROR 0002FC 0000 369 DRSKP Dc x*o0008 
0001c8 6908 O54c 252 ITST9 MVW DRBUF+4, R1 SET UP TO CHECK CHECKSUM VALUE O0OO2FE 0000 370 DC A (0 
0001CC 690B O54E 253 XW DRBUFt6,R1 * AGAINST SHOULD BE 000300 0000 371 DC A (0 
0001D0 7921 0001 254 AWL 1,R1 CHECK FOR A VALID CHECKSUM 000302 0000 372 DRCHN DC A (*-* CHAIN ADRS 
0001D4 1005 255 JZ TtST7 BCH IF OKAY 000304 0000 373 DRBCT DC A (*-* BYTE COUNT 
0001D6 9028 054C OOIE 256 MVD DRBUFt4, DEV3 MOVE ERRORED CHECKSUM VALUE 000306 0548 374 DRADR DC A (DRBUF) BUFFER ADRS 
0001DC 6802 0508 257 B PRNT BRANCH TO PRIN ROR 375 * 
O0O01EO 6802 OOD4 258 ITST7 B PUPD BRANCH TO CONTINUE 376 * CYCLE STEAL DATA CONTROL BLOCK 
VANIER LE LL SSS SE STS ES ESE SS SSE ST STS ST ST SPS TS SS TT PST ST SPP SPSS TT ST SESS ST SST SSS FS 377 * 
261 * CYCLE STEAL STATUS * 000308 378 CSDCB EQU x US= FOR DCB REFERENCE ONLY 
262 * THIS TEST WILL VERIFY THAT THE ATTACHMENT WILL SEND BACK THE * 000308 2000 379 CSCTL DC X'2000° CONTROL WORD 
263 * ADDRESS OF THE LAST CYCLE STEAL ADDRESS. * 00030A 0000 380 CSFMS Dc x*o0008 NOT USED 
264 * * 00030C 0000 381 CSSKP DC X¥*Q000! NOT USED 
265 * KNOWING THE LAST BUFFER LOCATION USED * 00030E 0000 382 DC x*0000! 
266 * THE RESIDUAL ADDRESS CAN BE COMPUTED. THE START CYCLE STATUS IS* 000310 0000 383 DC X¥*0000' 
267 * EXECUTED AND THE TWO ADDRESSES ARE COMPARED. * 000312 0000 384 CSCHN DC A (0000) CHAIN ADRS, NOT USED 
268 * ANOTHER START CYCLE STEAL STATUS IS EXECUTED AND IT WILL VERIFY * 000314 0008 385 CSBCT DC x*0008 BYTE COUNT 
269 * THAT START CYCLE STATUS DOES NOT DESTROY THE RESIDUAL ADDRESS. * 000316 0032 386 CSADR DC A (CSBUF) BUFFER ADRS 
270 * AFTER WHICH THE RESIDUAL WORD COUNT IS CHECKED AND VERFIED. * 387 * 
271 OO GEG IOI GR OR I GRR I I I aI a a kk ak aki ak ak ak aC BCR akc a a ake ae a ak 388 * DIAGNOSTIC DATA CONTROL BLOCK 
COO1E4 6£E03 O4D8 272 RTO2 BAL $SCONC, R6 PREPARE DEVICE ON CORRECT LEVEL 389 * 
0001B8 4124 0552 273 MVA DRBUF+10, R1 LAST CYCLE ADRS USED 000318 390 DGDCB EQU * USED FOR DCB REFERENCE ONLY 
0001FC 4029 000C 0001 274 AWI 1,$CKPT BUMP CHECKPOINT 000318 2000 391 DGCTL x'*20008 CONTROL WORD 
0001F2 6E03 O3A0 275 BAL XTOCS, RE GO GET STATUS FROM LAST I/0 00031A 0000 392 DGDC2 DC x*00008 .U. 
COO1F6 C924 0032 276 CW CSBUF,R1 COMPARE LAST STG LOCATION USED 00031c 0000 393 DGDC3 DC Xx'0000!8 
OOO1FA 1004 277 JE CSST4 BRANCH IF GOOD ADDRESS OOO031E 0000 394 DGDC4 DC Xx'*0000! 
Q0001FC 690D 0020 278 MVW R1, DEV3+2 LOAD EXPECTED ADDRESS INTO DEV4 000320 0000 395 DGDC5 DC Xx'00008 
000200 6802 0508 279 B $PRNT BRANCH TO PRINT ERROR 000322 0000 396 DGCHN DC A (0000) CHAIN ADDRESS 
000204 4029 Q00C 0001 280 CSSTUY AWI 1,SCKPT BUMP CHECKPOINT 000324 Q000C 397 DGBCT Dc X*O000C BYTE COUNT 
00020A 6E03 O3A0 281 CSST5 BAL XIOCS, R6 EXECUTE 2 ND START CS STS 000326 0548 398 DGADR DC A (DRBUF) BUFFER ADDRESS 
QOOO2Z0E C924 0032 282 CW CSBUF, R1 CK IF 2 ND CS STS DESTROYED RESID ADR 400 
600212 1004 283 JE CSST7 IF THE RESIDUAL ADRS OK, BCH 401 * DISABLE DTR CONTROL BLOCK 
000214 690D 0020 284 MVW R1, DEV 342 MOVE EXPECTED VALUE INTO DEVS 402 * 
000218 6802 0508 285 B SPRNT BRANCH TO PRINT ERROR 000328 403 DSDCB EQU * USED FOR DCB REFERENCE ONLY 
00021C 4029 000cC 0001 286 CSST7 AWI 1,.$CKPT BUMP CHECKPOINT COUNTER 000328 0010 4O4 DSCTL OD x*0010! CONTROL WORD 
000222 402F 0034 0001 287 CWI X'0001',CSTL2 IS RES. WORD COUNT EQUAL TO ONE Q00032A 0000 405 DSDC2 DC X*Q00008 -U. 
000228 1005 288 JE CSST8 BRANC S 00032c 0000 406 DSDC3 DC X'O00008 
Q0022A 4020 0020 0001 289 MVHI xXx!'0001',DEV3+2 LOAD DEV4Y WITH SHOULD BE DATA poease 0000 407 DSDC4Y DC x*O000* 
000230 6802 0508 290 B SPRNT BRANCH TO PRINT ERROR 00330 0000 408 DSDC5 DC X'O000! 
000234 6802 OOD4 291 CSST8 B $PUPD BRANCH TO CONTINUE 000332 0000 409 DSCHN DC X¥'0000! CHAIN ADDRESS 
209 OOOO OR III IOI IO I IOI III a I IR RI IRR kak ake ak ak ake ake ake ake ate ake ake ak ake ake akc a ak aie oe ofc a 000334 0000 G10 DSBCT DC X'00008 BYTE COUNT 
294 * DIAGNOSTIC MODE * 000336 0548 411 DSADR DC A (DRBUF) BUFFER ADDRESS 
295 * CHECK ALL POSSIBLE DIAGNOSTIC MODE INDICATORS * 412 * | 
296 * * 413 * ERROR ONE DATA CONTROL BLOCK 
297 * A DIAGNOSTIC COMMAND IS ISSUED TO OBTAIN THE STATUS INFORMATION * 414 * 
298 * OF THE ATTACHMENT CARD. THIS INFORMATION IS THEN COMPARED * 000338 415 E1DCB BQU * USED FOR DCB REFERENCE ONLY 
299 * AGAINST EXPECTED VALUES AND VALUES ENTERED AS CONFIGURATION * 000338 0800 416 EICTL OD x'osoot CONTROL WORD 
300 * INFORMATION. * 00033A 0000 417 E1DC2 DC x*00008 -U. 
301 OOO IOI IO III RI I IORI I IRI a RIOR RICK aR aC kkk af ae ake aka akc akc akc ak 00033C 0000 418 E1DC3 DC x*o000! 
000238 6803 O4D8 302 RTO3 BAL $CONC, R6 PREPARE DEVICE ON CORRECT LEVEL 00033E 0000 419 E1DC4Y DC X¥*0000! 
00023C 4029 QO0C 0001 303 AWIL 1 $CKPT BUMP CHECKPOINT 000340 0001 420 E1DC5 DC Xx'*O0O018 
000242 6803 0380 304 BAL XLODE, RE BRANCH TO ISSUE DIAG. COM. 000342 0000 421 E1CHN DC A (0000) CHAIN ADDRESS 
000246 4029 000c 0001 305 AWL 1,$CKPT BUMP CHECKPOINT 000344 0012 422 EIBCT DC X"0012 BYTE COUNT 
00024c 5005 306 J RTO 32 BRANCH TO CONTINUE 000346 0000 423 E1ADR DC A (0000) BUFFER ADDRESS 
COO24E 8828 0550 OO1E 307 RT031 MVW DRBUF+t8, DEV3 LOAD DEV3 WITH RECEIVED DATA 424 * 
000254 6802 0508 308 B SPRNT BRANCH TO PRINT ERROR 425 * ERROR FOUR DATA CONTROL BLOCK 
C00258 402B OO4F 0004 309 RTO32 TWI xX'0004', $DVAD+2 TEST INTERNAL CLOCK BIT 426 * 
Q0025E 1203 310 JON RT036 BRANCH IF Y 000348 00 u27 DC 7008 
000260 4COR 311 TBT (RG, IND) TEST IF WRAPPED 000349 428 E2DCB EQU : USED FOR DCB REFERENCE ONLY 
000262 1001 312 JOFF RTO 36 BRANCH IF NO 000349 0000 G29 E2CTL DC x'o000! CONTROL WORD 
COO0264 5005 313 J RT039 BRANCH 00034B 2000 430 E2DC2 DC X*2000'° ~Us 
000266 402B 0550 O4O00 314 RTO36 TWI X¥'O0400', DRBUFt8 IS INDICATOR BIT ON 00034D 0000 431 E2DC3 DC X*0000! 
60026C. 12F0 315 JON RTO 31 BRANCH IF YES 00034F 0000 G32 E2pDCc4 DC X¥*00008 
Q0026E 5004 316 J RT037 BRANCH 000351 0000 433 E2DC5 DC xXx*O000!8 
000270 402B 0550 O4&00 317 RTO39 TWI X'O400" ,DRBUFt8 IS INDICATOR BIT ON 000353 0000 434 E2CHN DC xXx'o000* CHAIN ADDRESS 
000276 10EB 318 JOFF RT031 BRANCH IF NO 000355 0000 435 E2ZBCT DC x*00008 BYTE COUNT 
000278 4029 000C 0001 319 RTO37 AWI 1,$CKPT BUMP CHECKPOINT 000357 0000 436 E2ADR DC X¥*0000! BUFFER ADDRESS 
00027E 6908 0550 320 MVW DRBUFSS, RI LOAD REGISTER 000359 00 437 ALIGN WORD 
000282 7924 OFFF 321 RBTWL X'*OFFFE-R1 ZERO UNWANTED DATA 439 PARE CS UN PEPECEAN STEEL? PPT eee eT AES ERE TAREE eee RD EO RME RTD 
000286 4C0E 322 TBT CRA IND{ IS SDLC WRAPPED 4uQ * ISSUE ALL I/O COMMANDS FROM A COMMON SUBROUTINE 
000288 1007 323 JOFF T0 33 BRANCH NO Wut * TO DISPLAY INSTRUCTIONS AND OPERATING PROCEDURES TO THE OPERATOR® 
00028A 7906 FOOO 324 CW1 X*FOOO!,R1 COMPARE TO EXPECTED Yu2 * AND SET UP ANY REQUIREMENTS FOR OTHER I/O COMMANDS * 
00028E 100D 325 JE RTO 35 BRANCH IF EQUAL 443 * * 
000290 4020 0020 FOO0O0 326 MVWI X*FO0O0',DEV3+2 MOVE EXPECTED RES. TO DEVGU G4y * --> BAL XIODG, R6 XEQ DIAG. MOD = D COMMAND * 
000296 5SODB 327 J RT031 BRANCH 445 * ~-> BAL XIODR, R6 XEQ DTR COMMAND * 
000298 7924 5000 328 RT033 RBTWI X*5000',R1 RESET UNKNOWN BITS 446 * +-> BAL XIOE1,R6 XEQ ERROR ONE COMMAND * 
0002SC 7906 A000 329 CWI X*'AOOO!,R1 COMPARE VS. EXPECTED DATA 447 * --> BAL XIOE2,R6 XEQ ERROR TWO COMMAND . 
COQO02A0 1004 330 JE RT035 BRANCH IF EQUAL 448 * --> BAL XIODE,R6 XEQ DIAG. MOD = E COMMAND ‘2 
0002A2 4020 0020 AOO0OD 331 MVWI X*AOO0!, DEV3+42 MOVE EXPECTED RESULTS INTO DEVU “ug * * 
COG2A8 S50D2 332 J RTO 31 BRANCH uso PSPSPS SSS SLES SE LSS SSS LSS LSS SSS SSS SPSS SL SSS SSS SSS LSS SSS SSS SSS TS SS 2 2 2 2 52 2 Se Ss 
OOO2AA 6802 OODY 333 RTO35 B $PUPD BRANCH TO CONTINUE 00035A 4020 O4BE 0318 451 XIODG MVA DEDCE, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
335 GI OIC ICI IOIICI CIO Ok ici ok ak OR I IO IO IO IORI IO OR I I I I kk ai akc ake ak ok ak a ok ak 000360 4020 O4CO 000D 452 MV WI 'OD' ; LOMOD MOVE MODIFIER INTO CONTROL BLOCK 
336 * ERROR MODE 000366 5026 453 J XTO1 BRANCH 
337 * CHECK COMMAND REJECT AND DCB SPEC CHECK ERRORS x 000368 4020 O4BE O02F8 454 XIODR MVA DRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
338 * x O0036E 5013 455 J XIO BRANCH 
339 * FIRST A ERRORED DCB IS ISSUED TO OBTAIN THE SPEC CHECK * 000370 4020 O4BE 0338 456 XIOE1 MVA E1DCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
340 * THEN A DCB ON AWN ODD BYTE BOUNDRY IS ISSUED TO OBTAIN THE * 000376 5SOOF u5S7 J XIO BRANCH 
341 * DCB COMMAND REJECT. AFTER WHICH A DISABLE FOLLOWED BY AN * 000378 4020 O4BE 0349 458 XIOE2 MVA E2DCB,1ODCB SET UP CONTROL BLOCK FOR SVC CALL 
342 * ENABLE IS ISSUED. * 00037E 500B 459 J XIO BRANCH 
303 0 OI OR CII II ii oi ii i ic kk kak ak ick ak ak ak ak ai ai fe ako ake akc ake ie ai a ak a akc oe ofc a afc 000380 4020 O4BE 0318 460 XIODE MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
COO2ZAE G6E03 O4D8 344 RTO BAL $CONC, R6 PREPARE DEVICE ON CORRECT LEVEL 000386 4020 O4CO ODODE 461 MVWI X*OE*t,IOMOD MOVE MODIFIER INTO CONTROL BLOCK 
0002B2 4cC64 345 TBTS RY, XE) SET EXPECTED ERROR BIT 00038C 5013 u62 J X¥IO1 BRANCH 
0002B4 4029 000C 0001 346 AWL $CKP BUMP CHECKPOINT 00038E 4020 O4BE 0328 463 XIODS MVA DSDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
0002BA 6E03 0370 347 BAL X L0E1 R6 BRANCH TO TEST ERROR 000394 =5000 64 XIO BRANCH 
Q0O02BE 402B 0016 1000 348 TWI X¥*1006', $IsB IS ISB EQU TO 10XX 466 PE SSS SLES SSS SLL SSS ESL SSS SSS SSS SL SS SS SS SSS SSL SS SP SSS SSL ST SSS SS 2 2 2 2 2 2 2S 
0002C4H 1208 349 JON RTO4G1 BRANCH u67 * * 
0002C6 4020 0020 1000 350 MVWI X*1000!,DEVY DEV4 EOUATS EXPECTED DATA 468 * SOUBROUTINE * 
0002CC 8028 O004C 0021 351 RTOU3 MVB $DVAD, DEV4+1 LOAD DEV ADDRESS 469 * ‘a 
CO002D2 6802 0508 352 B S$PRNT BRANCH TO PRINT ERROR d 470 * EXECUTE INPUT AND OUTPUT COMMANDS * 
0002D6 4Cé64 353 RTO41 TBTS (R4, XE) SET EXPECTED ERROR BIT 471 * - 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
472 * PURPOSE * 589 * * 
473 * * 590 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR 4 
u“7u * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. * 591 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE * 
42 : THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: : 233 : EXPECTED CODE. cd 
* 
“77 * 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED * 594 * CALLING SEQUENCE * 
478 * THE I/O COMMAND. : * 595 * * 
479 * 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS * 596 * SUPVR WILL ENTER WHEN AN ERROR OCCURS OW AN I/O INTERRUPT x 
480 * ISSUED BY THIS SUBROUTINE. * 597 * * 
481 * 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE * 598 * RETURN CONTROL * 
482 * START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. * 599 * a 
483 * YW. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT * 600 * SVC EXIT RETURN TO USER VIA SUPVR * 
4“Bq * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, * 601 * * 
4g5s * MYSTERY INTERRUPT Sook CONTROL BIT IS SET. * 602 He AR A ie 2 i ai 2 a ae ae ae a fe ah 2h ah i a a ae ae 2 ai ac fc af a ake akc ae ik 2 a afc akc ak akc 2 2c ae ak of afc ac ake afc age afc ad oe fc afc ok ak aft ake ake ake a afc of ae 2 aK ae ake ae ate ae af 
486 * 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE * OOO041E T06E 603 INTER CPLSR R3 SAVE INDICATORS 
487 * EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE ‘sve START'®. * 000420 336A 604 SRL 13,83 POSITION INDICATORS IN R3 
488 * 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING * 000422 4424 OOOE 605 MVA OPtN1 R4 SET UP BASE ADRS 
489 * STARTS TO DETERMINE A LOST INTERRUPT. * 000426 4C27 606 TBT Ru CS) IS CS IN PROGRESS 
490 * 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF * 000428 1006 607 JOFF NTET * NO 
491 * WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. * OOO42A 4C68 608 TBTS {Rs car TURN ON CYCLE STEAL INTER ERROR 
492 * 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. * 00042C 6FOD 0040 609 MVW 7,CST 8 SAVE CS ERR ISB VALUE, BITS 0-7 
493 * 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. * 000430 C328 0041 610 MVB R3,CSTL8+1 * AND THE COND CODE 
49gq * 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. * 000434 5009 611 J INfR1 BRANCH 
495 * 11. CHECK IS A CYCLE STEAL OPERATION WAS 'N PROGRESS THAT WAS * 0004 36 4Ccé61 612 INTET TBTS R4, ER) SET ERROR OW I/O COMMAND CNTL BIT 
496 * ISSUED BY THIS SUBROUTINE. , * 000438 5007 613 NTR1 BRANCH 
497 * 12. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A « 615 IOI IO RII OR OR II IO I Ig aR OK ako ak aka koa ake ake ake ake ak 
498 * CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, * 616 * ok 
5 $34 - COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. e ae : SOUBROUTINE * 
/ * 
504 * CALLING SEQUENCE ; ene : OKAY INTERRUPT J RUNS ON INTERRUPT LEVEL ‘SINTL'* * 
*x 
eon i THIS ROUTINE HAS THE FOLLOWING ENTRIES: : 5 : PURPOSE * 
: * 
505 * --> B XIO XEQ ANY CYCLE STEAL COMMAND, MOD=0 * 623 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST * 
506 * --> BAL XIOCS,R6 XEQ START CYCLE STEAL STATUS, MOD=F * 624 * *x 
507 * * 625 * CALLING SEQUENCE x 
508 * RETURN CONTROL * 626 * * 
soa 509 * * 627 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED * 
510 * BXS (R6) RETURN TO USER NO ERROR x 628 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE * 
511 II IG IO OR ICO RI III I gi ik a ok aka kak ake ak ak ak ake of ake ak ake 629 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE * 
000396 CB25 04C0 513 XIO HVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 630 * COMMON SECTION IS HANDLED HERE. * 
00039A 500C 514 J XIO1 CS IT/O'S ARE NOT RETRIED 631 * i * 
00039C 4CAs 515 TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 632 * RETURN CONTROL * 
000320 4030 O4BE 0308 24§ xrocs HVA CeDES LODCB SET UP CONTROL BLOCK FOR SVC Chir esa x svc n 
XIT RETURN TO USER A x 
Q003A6 4020 O4CO OOOF 518 MV WI X*000FT, TOMOD SET CYCLE STEAL MODIFIER ; 635 * Vat SUENE x 
OOO3AC 4C27 519 TBT R4 CS) IS CS IN PROGRESS, ERROR CONDITION 636 [OO ROR GI RO I IO II IOI GI IOI III CIO i tof ake aiak ak ie afaik ak fe fe ake ake ake ake a 
OOO3Z3AE 1216 520 JON T02 * YES, BYPASS SAVING I/O ADRS O0043A TO6E 637 INTOK CPLSR R3 SAVE INDICATORS 
Q0003B0 4c23 521 TBT see IN) TEST FOR INTERRUPT Q0043C 336A 638 SRL 13,R3 POSITION INDICATORS IN R3 
0003B2 125F 522 JON TOCK BRANCH IF OOO43E 4424 OOOE 639 MVA OPE N1,R4 SET UP BASE ADRS 
0003B4 6E0D 0018 523 XIO1 4HVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 000442 4C24 640 TBT RY xf) TEST EXPECTED ERROR BIT 
Q003B8 402E 0018 0004 524 SHI 4 LSTIO DECREMENT FOR LAS INSTRUCTION 000444 1001 641 JOFF NTh1 BRANCH IF OFF 
O0OO3BE 4324 0000 525 MVA $bID, R3 LOAD ADDRESS OF PROGRAM START 000446 4C69 642 IBTS R4,GI SET GOOD INTERRUPT BIT 
0003C2 CB2F 0018 526 SW R3 L§TIO SUB TO OBTAIN LISTING ADDRESS 000448 44C63 643 INTR1 TBTS R4,IN 3 SET INTERRUPT RECEIVED 
0003C6 4324 0022 527 MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE OOO44A Y4C27 644 TBT R4,CS : IS "CS IN PROGRESS! 
Q003CA 6D08 O4BE 528 MVW ILODCB, R5 * AND THE FROM ADRS, ALONG WITH O0044C 1204 645 JON nr ko * YES, BCH AROUND UPDATE 
OQOO0OO03CE OF10 529 MVBI 16,R7 * THE NUMBER OF MOVES OOO#4E C328 0015 646 HVB R3,S10IN+t1 SAVE INTERRUPTING CC CODE 
Q003D0 2D64 530 MVFN SRD) 483) MOVE 1 STATUS WORD AND ADJUST 000452 6FOD 0016 647 MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS 
0003D2 OBFF 531 MHVBI 55 3 CLEAR CYCLE STATUS BUFFER 000456 78B9 648 INTR2 CPCL R5 COPY INTERRUPT LEVEL TO CHECK 
0003D4 4524 0032 532 MVA  CSBOF,R5 * TO ALL * 000458 3521 649 SLL 4,RS POSITION INTR LEVEL AND PUT 
0003D8 OF10 533 MVBI 16,R7 * QOO0O045A 0501 650 ABIL 1,R5 * IN ‘It BIT 
OO0OO03DA 2BAC 534 FFN R3, (R5 * 00045C CD24 0056 651 CW SINTL, RS IS THIS, THE CORRECT INTR LEVEL 
Q003DC 4CA3 535 XIO02 TBTR (x4 IN CLEAR INTERRUPT RECEIVED CNTL BIT 000460 1004 652 JE INTR3 * YES, GO EXIT THIS LEVEL 
O0003DE 1249 536 JON toe BRANCH IF OW 000462 3521 53 SLL G4,R5 POSITION RECEIVED LEVEL 
QO0O3EO 4724 O4BA 537 MVA IOB SET UP CONTROL BLOCK FOR SUPVR Q00464 6DOD 0020 654 MVW R5 DEV3¢2 STORE INTO DEV4 
000324 802B 0232 009A 538 CB CPUTY bE, TYPE23 CHECK FOR PROCESSOR 23 000468 4C65 655 TBIS R4,LE SET INTR LEVEL ERROR CONTROL BIT 
OOO3EA 1803 539 JNE XIO5 BRANCH NOT EQUAL OOO46A 4CA2 656 INTR3 TBTR R4,XI WAS INTERRUPT ' EXPECTED 
. eat 4524 0000 540 MVWI xX*'0000',R5 LOAD LOOP COUNT O0046C 1201 657 JON WER * YES, EXIT OFF THIS INTR LEVEL 
faa 0003F0 5001 541 J X06 BRANCH. QOO46E 4C60 658 TRIS  (R4, MI) * NO, SET MYSTERY INTR CONTROL BIT 
OO0OO3F2 75AA 542 xIoS sw R5,R5 LOAD LOOP COUNT 000470 6006 659 INTRX SVC XI XIT HIS LEVEL VIA SUPVR TO PGM 
a OOO3F4 4C62 543 XIO6 TBTS Rh XI) SET EXPECTED INTR CONTROL BIT 66 1 RO RO IO RIOR GRIGIO IOI RI IOI I IOk ii kak akaie ak gc ageake ak ate ade 
p003e8 tips ans Xx1I08 ae stake KLLOW OTHER PROG SINR 6e2 F THIS IS THE CONTINUA 
TION OF EXECUTE I/0 AFTER THE INTERRUPT 
g9838¢ €589 onc uy Boy Steg? sanerieog oo. OF gl: HRSSEVED REBYSGRRCnd!sEAE"SS°CEEER” Pon Mud "EREOU? 20 URED SEE 
‘ FOR ANY ERRO ‘ 
000400 4ca3 548 TBTR (RUIN) HAS INTERRUPT BEEN RECEIVE 666 * ; & NPT TONs 
e88t8% 4514 0001 bot" BDUNueeCHEGE SbeNEbuns SMTESFACTORY ——gogu7a cay eb Kick ter gaueany Treen anne ta guerbecten Tineanase 
WAS THERE AN UNEXPECTED IN R 
000408 18F7 551 JNZ xfo8 BCH IF TIME OUT NOT REACHED O0O0474H 1214 669 JON {Peed BRANCH IF YES ; ane a 
900 HOR 4C61 552 TBTS R4,ER SET ON ERROR CONTROL BIT 000476 4C25 670 TBT 180 LE) WAS AN INTR LEVEL ERROR FOUND 
OO40C 4C66 553 TBTS R4,LI SET LOST INTERRUPT CONTROL BIT 000478 1002 671 JOFF Tom * NO, CONTINUE CHECKING 
QOO4OE 6802 0508 554 B PRAT * BCH TO FINISH ERROR SEQUENCE OOOU7A 4C61 672 TBTS RY, ER) ’ SET fRROR CONTROL BIT ON 
B56 4 ee ake ae ade ae he fe 2 ae a ah he ae a ie a ae eae a a ef ak fe ae ae a a 2 a a ae ah ee a a a a a a a ke a i ae tage aa ake fe a ae ok kc a ak O0O047C 5010 673 J Toeu BRANCH 
557 * * QOOU7E 4CAA 674 XIOCM TBTR R4, PE) WAS A PROBABLE ERROR EXPECTED 
558 * SUBROUTINE * 000480 6ACO 0000 675 BON R6 BRANCH YES 
559 * 1 000484 44C24 676 TBT RQ, XE) WAS AN ERROR EXPECTED 
560 * I/O EXECUTE ERROR HANDLING ROUTINE * 000486 1211 677 J Toér * YES, BRANCH 
= 561 * * 000488 4C27 678 TBT R4, CS) WAS AGTO CS IN PROGRESS 
562 * PURPOSE * 00048A 1005 679 JOFF xXIocy * NO, CONTINUE CHECKING ° 
563 * * Q00048C 4C28 680 TBT AES CE) Is c& IN AN ERR CONDITION 
564 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE * QOOO48E 6800 04B2 681 BOFF CSRtN * NO, BCH 
565 * PROBLEN THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE * 000492 6802 0508 682 B SPRNT Go LOG CS ERROR 
566 * SUPERVISOR AND IT WAS NOT ACCEPTED. * 000496 4C21 683 XIOCV TBT see ER) WAS ERROR INTR CONTROL BIT ON 
567 * * 000498 1004 684 JOFF xIo0cx * NO, EXIT THIS ROUTINE 
568 * CALLING SEQUENCE * OOO49A 6802 039C 685 xIocQ B XIOCS-4 * AVAILABLE, GO AND GET. IT 
569 * * OOO49E 6802 0508 686 XIOC $P PRINT ERROR 
570 * SUPVR WILL ENTER WHEN AN ERROR OCCURS OWN AN I/0 COMMAND * QOO4A2 CB25 0012 687 XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
571 * * OOO4A6 68C2 0000 688 R6) RETURN TO USER VIA REG 6 
. 242 : RETURN CONTROL : poCdae 4623 280 XIOGI ee BAeae WAS GOOD INTERRUPT RECEIVED 
YES BRAN 
574: * B SPRNT : DUMP STATUS BEFORE TERMINATION * QOO4AE 68C2 0000 691 B R6) RETURN =e 
575 * * OO04B2 4C21 692 CSRIN TBT R4, ER) TEST FOR ERROR 
576 eI IO IORI IR ROO ROI RII IR IR IOI ROO II fOr IOm kag koi ii 0QO4B4 6A00 0508 693 BON PRAT BRANCH IF YES 
<4 poate JO6E 577 XIOER CPLSR R3 SAVE CONDITION CODE ON I/O ERROR OO0O04B8 5600 694 BXS (R6) RETURN “ 
18 2394 904 8S a8: Hors moBureay Goccope aeee TS £32 3 1/0 PARANE 
O METER LIST 
800th eee? 0508 2 Bo eheenntaannee ete nnunnnnnnennennnDt ANGE TO, PRINT ERROR a eawae QOOOYBA dO04C O38 IOBLK DC ae 
DVAD ADRS OF DEVIC 
5893 * * QOOO4BC 0412 699 IOERR DC A XIOER ERROR ROUTIVE ANS 
584 * SOUBROUTINE * OOO4UBE 0000 700 IODCB Dc A (*-* DCB ADRS OR LEVEL & INTR 
585 * * 0004C0 0000 701 IOMOD Dc A (*-* MODIFIER 
586 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL'* * 0004c2 0000 702 DC A (*-* ADRS OF LAST SVC CALL 
Bee : sanease i oo004ucH 0000 aaa IORSP DC A (*-* SECOND WORD OF LAST IDCB 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
SOOUGS Ou3A 708 INTOT DC aces INTERRUPT OK RETURN ADRS eee 7 eS aI RAL 
OOO4CA O41E 709 INTO2 DC A (INTER INTERRUPT ERROR ADRS 0 -R1. it eae HES a neo sa 254 273 «2276 «278 
UreTGe eNe 449 Ea came ore ee ORE PPP Ett) LE Oy a2 9a fk ee 282 284 320 321 324 328 329 
44g: * ~R2. ABSOLUTE. HEX VALUE (00000002) 
714 * SUBROUTINE * 221. 239 245 : 
12 & ; sl BS eee eee tego 6531 «534.««577—~S—«S78 
116 . CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE * aye, “26a <eGe. 1ekG- oeae eae: eke “eae. nS 
718 * PURPOSE *x 746 749 750 771 
719 » x 0 oR4. ABSOLUTE, HEX VALUE (00000004) 
720 * TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND * 434 135 i?! u06 a68 18? 23! 224 ah? 
721 * PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE * nee 2i3 248 «6 2ae 2 ah 233 ads ane 
433 3 eh eased e4u3-ea ek OeSG OSB Ogaa SS ORTOCGT 
734 * CALLING SEQUENCE : ee 676 678 680 683 689 692 770 774 
426 * THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: * 0 -RS. pEsOuU ses cae eae es fee pt 528 530 532 534 
728 * --> BAL CONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 220 pe: an3 339 gag $33 650 651 653 
129 * --> BAL SCONE, RO SR eh ees : 0 R6 BSOLUTE. HEX VALUE(00000006 
430 : --> BAL $CONP,R6 PREPARE. DEVICE ONLY : -R6. ABS APs, BERS 2 sit ) 201 220. «225.—Sé«2 35 
240 243 244 272 275 281 £302 308 344 
Bee a: Se URt (CONTROL i 547395523 675 888691 69H 740747 
338 PES. BO) PETDEN 20: Nake Neh BGS e ; 0 .RT7e ABSOLUTE, HEX_VALUE (00000007) 
773.6 EO IOI OOOO OIG A IOIOIOR OO I OI BOI I IR IOI aOR IE 238 489 bee ie 182 183 226 228 529 
OOO4CE 737 $CONR EQU * 
QOOOUCE 4724 04C6 738 KYA © INTBL, RI SET R7 TO CONTROL BLOCK AND 61 SCKPT Ra ese One oa a ee NOG ane ie Se ee 
0004D2 6014 739 SVC CICB * CONNECT IT TO THIS DEVICE 420 
3904D8 epee 200e ii Seoue E90 £R6) Server 741. $CONC ADDRESS, HEX LOCATION (00Q004D8) IN CSECT(EF8EO ) LENGTH (1) 
0004D8 CB25 0012 742 MYWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
BB9GRE G38 OURE ovne UD scowr WUE BEBE: Ego HE Ge LEVEL EQHPTE,EREMEE loans oo ee 
Sootec Case nes O7FF aie av aL X1O7FE, SIOIN INITIALIZE CONDITION CODE STORAGE 101 SDATA Woe agg LOCATION (QOOOOOO1A) IN CSECT(EF8E0 ) LENGTH (2) 
Soouey oz O98 coon = tug Eb EI® BECRERENT FO PoruS at fustRuehiON © ie abetn. abe dela Wacacehatooettocer Ww oceees etbea’ ~<a dauceara 
OOO4FA 4324 0000 749 MVA SPID, R3 LOAD ADDRESS OF START OF PROG 127 $DVID ADDRESS, HEX LOCATION (00000058) IN CSECT(EF8EO ) LENGTH (2) 
900503 6006 oe 734 s¥c pate ane #OAND CALL ON eupuae ee 131 $HTOE ADDRESS. HEX LOCATION (00000060) IN CSECT(EF8EO ) LENGTH (2) 
754 DARMAhatbaarT TTT Urtttearteteabetettttcarttrttt came 126 SINTL BRE ee geo ee age oon ane CSECT (EF8E0 alg PERTH C2) 
22 § COMMON PRINT ERROR INTERFACE ROUTINE . 98 $IOIN ADDRESS; HEX LOCATION (00000014) IN CSECT(EFGEO ) LENGTH (2) 
* <2 * 
723 ‘ nee BRANCH 1S TAKEN TO PRINT THE ERROR eee cena ce * 99 $ISB ADDRESS, HEX LOCATION (00000016) IN CSECT(EF8EO ) LENGTH (2) 
423 : a a BOR Rcd ee ENE RO corus ete ectee ee oe : 128 $MXSL ADDRESS. HEX LOCATION (0000005) IN CSECT(EF8EO ) LENGTH (2) 
182 * ied Sees BRANCH 1S TAKEM 20 BRIN? THE BERORE cg oe * 135  $0OUTN ADDRESS. HEX LOCATION(00000068) IN CSECT(EF8EO ) LENGTH (2) 
7e4 POINTES TO A COMMON ERROR OUTPUT AND PORMATTER ROUTINES 151 SPENT eee tae Roentgen ocgeoeS IN CSECT(EF8EQ ) LENGTH (6) 
402 BEECH WTELE RELURN TO THIS PROG VIA: REGISTER “SEVEN 167 $PEN1 ADDRESS. HEX LOCATION (000000D0) IN CSECT(EF8EO ) LENGTH (4) 
7167 oO a ese S SS eG 0 0 8 he 
g5sRe S624 0012 ies SPT ETN OPERA LOA ADDRESS OF OPTION MOU TARE ee ee ee 
000510 4424 0000 770 MVA $PID,R4’ LOAD ADDRESS OF START OF PROG 768 SPRNT ADDRESS, HEX LOCATION (00000508) IN CSECT (ERSEO ohy LENGTH (4) 
Bo8e te aa 8083 Hi OM IGE EAL HDRES tba Betas Wet ne ee 
9030 Gage O0de He Be geeette GAD BNSe AbDRESS von ruorcanoRs ee eee ee 
000524 802B 0232 009A 775 CB CPUTYPE, TYPE23 IS THIS A TYPE 23 PROCESSOR 7179 SPRN2 BURRESS: VERE POC ATE ON (0002 a es) TN CS SCECERSEO. 1) sPENGTH CY) 
00022A 1803 a6 JNE_ SPRN2 BRANCH IF NO 168 $PUPD ADDRESS. HEX LOCATION (000000D4) IN CSECT(EF8E0 LENGTH (4) 
guse25 tgs Bo00 1 i ea derpcpooe Comem Ae A ek ela gece 
900532 4524 8000 179 $PRN2 HVRI X*8000",RS INTT LOOP COUNTER 188 $PUP8 ADDRESS. HEX LOCATION (0000010C) IN CSECT(EF8EO ) LENGTH(6) 
090838 203 184 PRN at see SHOULD PROG TERMINATE 177 $RETI ADDRESS. HEX LOCATION(000000E8) IN CSECT(EF8EO ) LENGTH (6) 
0908 38 7Dat 00071 783 AWr 1.85, INCRERENT LOOP COUNTER 205. $RTAD ADDRESS. HEX LOCATION(00000138) IN CSECT(EF8EO ) LENGTH(2) 
000548 6802 009C 185 cessateceens ee leceecseseserennee tT RNCH (10, RESTART, PEOM BEGINING, ee Te 1 RE: ai 1S AC a aa aa 
788 3m OR 2 om ii ai toi i i gai kof fo ak ake ak ick 174 STERM ADDRESS. HEX LOCATION(QOQOQOOODC) IN CSECT(EF8EO ) LENGTH (6) 
e 
900548 40404040404040404 189 DRBUF DC cLi6' § MAXIMUM WRITE BUFFER 182 $TER1 ADDRESS. HEX LOCATION (00000100) IN CSECT(EF8EO ) LENGTH(4) 
797 ORO IO IG IC IGOR CR IOI OI RO IOI I aI IOI IOI rok ik ick 177 
00009c 792 END SPENT 93 CE peoO LUTE. HEX VALUE (00000028) 
39 CICB ABSOLUTE. HEX VALUE (00000014) 
52 CPUTYPE ABSOLUTE. HEX VALUE (00000232) 
92 es ABSOLUTE, HEX VALUE (00000027) 
112 CSBUF ADDRESS. HEX LOCATION (00000032) IN CSECT(EF8EO ) LENGTH(1) 
378 CSDCB ADDRESS. HEX LOCATION (00000308) IN CSECT(EF6EO ) LENGTH (1) 
692 CSRIN ADDRESS. HEX LOCATION (00000482) IN CSECT(EF8EO ) LENGTH (2) 
280 CSsT4 ADDRESS. HEX LOCATION(00000204) IN CSECT(EF8EO ) LENGTH(6) 
286 CSST7 ADDRESS. HEX LOCATION (0000021C) IN CSECT(EF8EO ) LENGTH (6) 
291 CSsT8 ADDRESS. HEX LOCATION (00000234) IN CSECT(EF8EO ) LENGTH(4) 
114 CSTL2 ADDRESS. HEX LOCATION (00000034) IN CSECT(EF8EO ) LENGTH (2) 
120 CSTL8 ADDRESS. HEX LOCATION (00000040) IN CSECT(EF8EO ) LENGTH (2) 
104 DCBUF ADDRESS. HEX LOCATION (00000022) IN CSECT(EF8EO ) LENGTH(2) 
102 DEV3 ADDRESS. HEX LOCATION (00QQO01E) IN CSECT (EFS EO ) LENGTH (2) 
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DEVY 
DGDCB 
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DRDCB 
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EXIT 
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INTR2 
INTR3 
IOBLK 
IODCB 


IOERR 
ITOMOD 
IORSP 
ISWRP 
ITSTA 
ITST4 
ITST5 
ITST7 
ITst9 
LE 

LI 
LSTIO 
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MSGO1 
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RESS. HEX LOCATION (00000338) 
RESS. HEX LOCATION (00000349) 
OLUTE, HEX VALUE (00000029) 
OLUTE. HEX VALUE(0000001A) 
RESS. HEX LOCATION (0000005C) 
RESS. HEX LOCATION (0000005E) 
OLUTE. HEX VALUE (00000002) 
OLU ; HEX VALUE (00000023) 
HEX LOCATION (00000098) 
HEX YALUE (00000005) 
HEX LOCATION (000004C6) 
HEX LOCATION (00000418) 
HEX LOCATION (00000436) 
HEX LOCATION (0000043A) 
HEX LOCATION (00000470) 
RESS, ,HEX LOCATION (00000448) 
RESS. HEX LOCATION (00000456) 
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LENGTH (34) 
LENGTH (2) 
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CROSS~REFERENCE LISTING 


NAME 


PTOQO1 
RTO2 
RTO3 
RT031 
RT032 
RTO 33 
RTO035 
RTO 36 
RT037 
RT039 
RTOY 
RTO 41 
RTO42 
RTO43 
START 
TERM 
TM 
TYPE23 
XE 

XI 
XIO 
XITOCK 
XIOCM 
XIOCS 
XTOCU 
XTOCV 
XIOCX 
XIODE 
XIODG 
XIODR 
XIODS 
XIOER 
XIOE1 
XIOE2 
XIOGI 
XI0O1 
XIO2 
XIO5 
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ATTRIBUTES AND REFERENCES 


HEX LOCATION (00000142) 
HEX LOCATION (000001E4) 
HEX LOCATION (00000238) 
SS, HEX LOCATION (00000248) 
RESS. HEX LOCATON (00000258) 
RESS. HEX LOCATION (00000298) 
RESS. HEX LOCATION (000002AA) 
BSS. HEX LOCATION (00000266) 
HEX LOCATION (00000278) 
HEX LOCATION (00000270) 
HEX LOCATION (000002AE) 
HEX LOCATION (000002D6) 
HEX LOCATION (000002F2) 
HEX LOCATION (000002CcC) 
HEX VALUE (0000000A) 
HEX VALUE (00000007) 
HEX VALUE (00000003) 
HEX LOCATION (0000009A) 
HEX VALUE (00000024) 
HEX VALUE (00000052) 
HEX LOCATION (00000396) 
HEX LOCATION (00000472) 
HEX LOCATION (00000478) 
HEX LOCATION (0000030) 
HEX LOCATION (00000498) 
HEX LOCATION (00000496) 
HEX LOCATION (000004A2) 
HEX LOCATION (00000380) 
HEX LOCATION (0000035A) 
HEX LOCATION (00000368) 
HEX LOCATION (00000388) 
HEX LOCATION (00000412) 
HEX LOCATION (00000370) 
HEX LOCATION (00000378) 
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HEX, LOCATION (00000384) 
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COPYRIGHT IBM CORP 1976 


LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
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LENGTH (2) 


LENGTH (4) 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
001D16 5002 468 J UEXIO 0O1E1C 120A 586 JON INTLA B-YES 
001D18 469 HERNS EQU * OO1E1E 4724 4000 587 MVWI SXTNK,R7 
QO1D18 4A41 470 TBTS 22 ONE) IS THIS DEVICE INTERRUPTING 00 1E22 588 INTL1 EQU = 
OOID1A SODF “71 J ER4 001E22 6002 589 SVC IDLE 
001D1C 472 UEXIO FOU * 001E24 BFFE 590 JCT INTL1,R7 
001D1C 4224 1810 473 MVWI OPTN2,R2 ADR OF OPTION BITS GO01E26 4724 194A 591 MVA CVADR,R7 CONTROL BLOCK 
001D20 4aA4s G74 TBTS {Re UXERR) TYPE OF ERROR QO1EZA 601A 52 SVC HTOE 
001D22 4124 0003 475 MVWI THREE,R1 ERROR TYPE QO1E2C 4724 AFC 293 MVA = LSTMNG,R7 MSG ADR 
001D26 5SOBB 476 J TTYNO 001E30 6000 594 SVC OUT 
001D28 &77 STPRT EQU * 001E32 595 INTLA EQU * 
001D28 8828 OO1E 19FA 478 MVW CONEP, CONSV SAVE THE POINTER 001E32 4880 596 TBTR (80 , ZERO) CLEAR THE IND 
001D2E 4020 OO1E 1D3E 479 MVA CONRT, CONEP NEW POINTER 001E34 6201 597 EN M 
001D34 4524 34c4 480 MVWI CD44,k5 STOP CODE 001E36 6812 1928 598 B RETSV* RETURN TO SENDER 
001D38 78BO ug SECON R5 PUT THE CODE IN THE LIGHTS O0O1E3A 599 INTLB EQU * 
OO01D3A 6201 482 EN Si ENABLE THE SUMMARY MASK OO1E3A 4124 0006 600 MVWI SIX,R1 ERROR TYPE 
001D3C SOFF 483 J * O00O1E3E 4524 1810 601 MVWI OPTH2,RS ADR OF OPTION BITS 
001D3E &84 CONRT zou * 001E42 4D00 602 TBT §B> S TERR) IS STOP ON ERROR ON 
OOID3E 8828 19FA OO1E 485 MVW CONSV,CONEP RESTORE THE POINTER OO1E44 6A00 1D28 603 BON TPkT J-YES 
001D44 7906 0001 486 CWI ONE,RI TEST FOR ERROR TYPE 001E48 604 INTLC EQU * 
001D48 10B2 487 JE TTyh1 J-IF EQUAL 0O1E48 4D01 605 TBT £85 BYPAS) IS BYPASS ERROR ON 
OO1D4GA 7906 0002 488 CWI TWO,R1 TEST FOR ERROR TYPE OO1E4A 12F3 606 JON NTELA B-YES 
OO1ID4YE 10AF 489 E Tryfh1 J-IF EOUAL QOO1E4C 4724 197A 607 MVA TIMOT,R7 CONTROL BLOCK 
001D50 7906 0003 490 CWI THREE, R1 TEST FOR ERROR TYPE 001E50 601A 608 SVC HTOE 
001D54 10AC 491 JE TTYN1 J-IF EQUAL 001E52 4724 1A1E 609 MVA TIMEM,R7 MSG ADR 
001D56 7906 0004 492 CWI FOUR,R1 TEST FOR ERROR TYPE 001E56 6000 610 SVC OUT 
QO1DS5A 1031 493 JE nwep76 J-IF EQUAL 001E58 50EC 611 INTLA 
001D5C 4524 1810 4ugy MVWI OPTN2 R5 RESTOR R5 613 PS SS SSS SSS SSS SSS SSS ESSE SLES SSESSSSE LSS SSSSSESSLSSSSLSE SE SSLL SS SS SSS SSeS SSS SS 
001D60 7906 0005 495 CWI FIVE,R&1 TEST FOR ERROR TYPE 614 * * 
001D64 105A 496 JE INTLO J-IF EQUAL 615 * THE FOLLOWING ROUTINE IS USED TO PRINT AN ERROR MESSAGE * 
001D66 5070 497 J INTLC 616 * THAT WAS ENCOUNTERED ON A DEVICE INTERRUPT. * 
ocho SSE SELL ERE SS SLES ELS SS STS EET ESSELTE ETS SEES ELSE STE TS SSS PSE S LS SES SSS Et ES SS 617 * * 
500 * * 618 PS SSS S SSS SIS ESS SSS SS SSSSSS SLES SS ESS SSS SSLSSSLSSSLSSSSLSESS SSL SSP SSSL SSL SL Se Ss | 
501 * THE FOLLOWING ROUTINE ISSUES A MESSAGE FOR THE BAD CONDITION * OO1TESA 620 PRNT EOU * 
502 * CODE ON AN OIO INSTRUCTION. * UO1E5A 680D 19FE 621 MVW RO,ROSAV SAVE THE CONTENTS 
503 * x OO1E5E 4624 1810 622 MVWI OPEN2,R6 ADR OF OPTION BITS 
504 3 OR RR RIOR FIO II IIR IOI IO Rk tI Rik kek ak a 001E62 6FOD 1928 623 MVW R7,RETSV SAVE THE RETURN ADR 
001D68 506 NCC7 Bog * 001E66 4EO1 624 TBT (R6 BYPAS) IS BYPASS PRINT ON 
001D68 7OOE 507 CPLSR RO GET THE CURRENT LSR 001EF68 6A00 2034 625 BON ETR J-IF ON 
001D6A 6FOD 1928 508 MVW R7,RETSV SAVE REGISTERS OO1E6C 4724 2270 626 MVA DUM2,R7 BLANK LINE 
OO1D6E 7744 509 MVW R7,R2 SAVE R7 FOR LATER 001E70 6000 627 SVC OUT 
001D70 306A 510 SRL THRTN, RO POSITION CC BITS 001E72 6908 182~a 628 MVW NUMDV,R1 GET THE NUMBER OF DEVICES 
001D72 CcO28 1BC2 511 MVB RO, LSR SAVE FOR CONVERTING 001E76 4224 182E 629 MVWI DEVC1,R2 DEVICE TABLE 
001D76 4724 1BCC 512 MVA cc£sR, R7 CONVERT CONTROL BLOCK GO1E7A CA80 630 MVW (R2) ,R2 GET THE REAL ADDRESS 
OOID7A 601A 513 SVC HTOE CONVERT IT GOTETC 631 PRNT1 EQU * 
001D7C T7A42 OOOA 514 SHI TEN, R2 BACK UP THE POINTER OO1E7C 820B 192B 632 C (82). ERRAD+ONE IS THIS THE ERRANT DEVICE 
001D80 4524 1B7C 515 MVA PREPA,RS PREPARE ADDRESS CO1E80 1004 633 JE RNTS J-YES 
001D84 4124 0006 516 MVWI SIX,R4 NUMBER OF COMMANDS CO1E82 7A41 0008 634 AWI EIGHT, R2 BUMP THE POINTER 
001D88 4324 1BC4 517 MVA PRPCD,R3 COMMAND LIST 0O01E86 BOFA 635 JcT PRNT1,R1 TRY THE NEXT DEVICE 
001D8C 518 NCCD1 EQU x GCO1E88 5021 636 J PRNTY 
001D8C 82F3 0000 519 CB (82) 40 (R3) WAS IT A COMPARE | QO1E8A 637 PRNT2 EQU) * 
001D90 1005 520 JE CD71 J-YES CO1E8A 8208 1BD9 638 M {R2) CSSIO+FONE PUT THE ADR IN THE IDCB 
001D92 7DA1 OOOA 521 AWL TEN, RS BUMP THE POINTER QO1E8E 7A4%1 0002 639 A WO, R2 BUMP THE POINTER 
001D96 7B61 0001 522 AWI ONE, R3 BUMP THE COMMAND POINTER Q0O1E92 8218 1C07 640 M R2)+,DVTYP SAVE THE DEVICE TYPE 
001DSA BOFS 523 ICT ncch1,R1 TEST THE REST 001E96 8208 1IBE9 641 M R2) ,BYCNT+ONE SAVE THE BYTE COUNT 
001D9C 554 NCD71 E90 x OO1E9A 1103 642 J RNTS3 J-CSS DEV 
001D9C OFOA 525 MVBI TEN,R7 NUMBER OF BYTES GO1E9C 8028 1828 1C08 643 M HEXFF,NOCSS IND NOT CSS DEV 
OO1D9E 4324 1AE7 526 MVA NOT7B,R3 WHERE TO PUT THE BYTES OO1EA2 644 * 
QOO1DA2 2D64 527 MVFN R5) , (R3) MOVE THEM GOQ1EA2 7A41 0003 645 THREE, R2 BUMP THE POINTER 
OO1DAY 6D58 0000 528 MV W R2)*,R5 GET THE DEVICE ADDRESS OO1EA6 8A08 1AOA 646 R2 ;ADFLD SAVE THE ADR 
OO1DA8 C528 1BC2 529 MVB R5, sk DEVICE ADDRESS QQ1EAA 8A08 1952 647 R2) ,CVDB2 SAVE THE IDCB 
OO1DAC 77EA 530 SW R7,R7 CLEAR R7 OO1EAE 8A08 1958 648 R2) ,CVDB5 AGAIN 
OO1DAE C720 1BC2 531 MVB LSR, R7 SAVE THE DEVICE ADDRESS 0OO1EB2 4029 1958 649 WO, CVDB5 MAKE IT THE RIGHT ADDRESS 
0O01DB2 4124 0004 532 MVWI FOUR, RI1 ERROR TYPE 0O1EB8 C720 1Cc08 650 NOCSS,R7 IS THE IND 
001DB6 4224 1810 533 MVWI OPTN®. R2 ADR OF OPTION BITS QO1EBC 1813 651 PRN J-NO 
00O1DBA 4A00 534 TBT (R2 SPERR) IS STOP ON ERROR ON COITEBE 8028 1828 652 HEXFF,XPIND T/ON THE IND 
OO1DBC 12B5 535 JON TPR J-YES OO1ECK 4724 4000 653 SXTNK,R7 WAIT COUNT 
0O1DBE 536 NCD70 EQU * 001EC8 680C 1BD8 654 CSSIO ISSUE THE I0 
OO1DBE 4aA01 537 TBT (82 BYPAS) IS BYPASS ERR PRINT ON QO1ECC 655 * 
001DCO 120A 538 JON CDIB J-YES OO1ECC 6002 656 IDLE WAIT 
001DC2 4724 4000 539 MVWI SXTNK,R7 OO1TECE C220 1BCB 657 XPIND, R2 HAS THE INTERRUPT OCCURED 
001DC6 540 NCD7A EOU x OO1ED2 1005 658 PRN3 J-NO 
001DC6 6002 541 SVC IDLE OO1ED4 BFFB 659 PRNT4,R7 JUST WAIT 
001DC8 BFFE 542 Jct NCD7A,R7 QOO1ED6 C725 1BCB 660 XPIND, R7 RESET THE IND 
OO1DCA 4724 1BD2 543 MVA CVTAD, R7 CONVERT CONTROL BLOCK QOO1TEDA 6802 2042 661 CSLOS 
OO1DCE 601A 544 SVC HTOE CONVERT THE ADDRESS OO1EDE 662 * 
001DD0 4724 1B7A 545 MVA NOT7M, R7 CONTROL BLOCK FOR THE MESSAGE OO1EDE 8028 1828 663 HEXFF, RECCS T/ON IND 
OO1DD4. 6000 546 SVC OUT OO1EE4 664 Ss 
O0OO01DD6 S47 NCDT7B £0u * OO1EE4 4724 4000 665 MVWI SXTNK,R7 
0O1DD6 6908 182A 548 MVW NUMDV, R1 GET THE NUMBER OF DEVICES QO1EE8 666 PRNTS EQU * 
OOIDDA 4224 182E 549 MVWI DEVC1,R2 DEVICE TABLE QOQ1EE8 6002 667 SVC IDLE 
OOIDDE CA80 550 MVW (R2),R2 GET THE REAL ADDRESS QOO1EFA BFFE 668 JCT  PRNTS,R7 
001DE0 551 NCD72 EQU * OO1EEC 4E88 669 TBTR (R6,UXERR) IS NOT EXPECTED IND ON 
QO1DFO 821B 1BC2 552 C (22) ¢eLSR IS THIS THE INTERRUPTING DEVICE OO1EEE 6A00 2022 670 BON LOER2 J-YES 
COIDEY 1003 553 JE CD73 J-YES OO1EF2 4E89 671 TBTR ane IOERR) IS IO ERROR ON 
OO1DE6 7A41 0007 554 AWIL SEVEN, R2 BUMP THE POINTER OO1EF4 6A00 2008 672 BON OER1 J-YES 
OO1DEA BOFA 555 JCT NCD72,R81 TRY THE NEXT DEVICE QOOQ1EF8 4E8A 673 TBTR (R6,CCERR) IS COND CODE ERROR ON 
001DEC 556 NCD73 EQU * OO1EFA 10FF 674 JOFF * I'M LOST IF NOT 
OO1DEC 4aso 557 TBTR (R2,ZERO) RESET THE INDICATOR QOO1EFC 4724 193E 675 MVA CVRC1,R7 CONTROL BLOCK 
OO1DEE 6812 1928 558 B RETS V* RETURN 001FO0O 601A 676 SVC HTOE 
560 ORO IOI IC OO OOK ROI IG I I IIR Ok I gk i i ke ak akc ak OO1FO2 4724 1938 677 MVA CVEX1,R7 CONTROL BLOCK 
561 * * OO1FO6 601A 678 SVC HTOE 
562 * THE FOLLOWING ROUTINE IS USED TO PRINT A MESSAGE * OQOOTFO8 4724 195C 679 MVA CVDB6,R7 CVT CONTROL BLOCK 
563 * FOR A LOST INTERRUPT. * OO1FOC 601A 680 SVC HTOE 
564 * x OO1FOR 4724 1A22 681 MVA CCMSG,RT7 MSG CONTROL BLOCK 
565 ORIG IORI OO II OR IR I 3k i kk ick Q001F12 6000 682 SVC out 
OO01DF2 567 INTL EQU * OOIF14 4724 1950 683 MVA CVDB1,R7 CONTROL BLOCK 
OOIDF2 6301 568 DIS SM DISABLE INTERRUPTS 001F18 601A 684 SVC HTOE 
OOIDF4Y 6FOD 1928 569 MVW R7,RETSV SAVE RETURN ADR OOIFIA 4724 1956 685 MVA CVDB4,R7 CONTROL BLOCK 
OO1IDF8 7024 570 MVW RO,R1 USE R1 OOIFIE 601A 686 SVC HTOE 
OO1DFA 7922 0001 571 SWI ONE. R1 BUMP THE POINTER QCO1F20 4724 196R 687 MVA CVISB,R7 CONVERT CONTROL BLOCK 
OO1DFE 77EA 572 SW R7,R7 CLEAR R7 O01F24 601A 688 SVC ATOR 
0071E00 c740 573 MVB Rj 7R7 GET THE DEV ADR QO0O1F26 4724 1982 689 MVA DCBMG,R7 MSG CONTROL BLOCK 
001E02 8108 1B2C 574 MVB R1) ,LSTAD GET THE DEV ADR 001F2A 6000 690 SVC OUT 
O01E06 4810 575 TBT RO, SIXTN) IS THIS SENSOR I/0 O0OO1F2C C725 1C08 691 MVBZ NOCSS,R7 IS THE IND ON 
001E08 1002 576 JOFF NT J~NO 001F30 6801 2034 692 BNZ RETRN J-YES 
OO1EOA 4811 577 TBT $R0 SVNTN) IS THIS SENSOR I/O DI/PI 001F34 C725 1C06 693 MNVBZ RECCS,R7 WAS CSS RECEIVED 
OO1EOC 1216 578 JON nTLB J-YES 001F38 1032 694 JZ PRN J-NO 
OO1EOE 579 INT Bog * OO1F3A C520 1BE9 695 MVB BYCNT+ONE, R5 NUMBER OF CSS BYTES 
OO1EOE 4124 0005 580 MVWI FIVE,R1 ERROR TYPE OOIF3E 350A 696 SRL ONE, BS CSS WORDS 
001E12 4524 1810 581 MVWL OPTN2, RS ADR OF OPTION BITS OO1F4O 75c4 697 MVW R5,k6 SAVE RS 
001E16 4D00 582 TBT (R5,STERR) IS STOP ON ERROR ON OO1F42 4024 1833 698 MVA CMG2-ONE, RO ADR OF THE CSS DATA 
001E18 1287 583 JON stpkT J-YES 001F46 699 PRI FOU * 
OO1E1A 584 INTLO EQU * OO1TF46 7801 0005 700 AWL FIVE,RO BUMP BY FIVE 
OO1E1A 4DU1 585 TBT (R5,BYPAS) IS BYPASS ERROR ON OO1F4A BEFD 701 JCT PR1,R6 
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CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 


N CSECT (03421 


IN 
IN 
IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 


IN. 


IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
55 
IN 
IN 


89 
I 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 


CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 


1447 
N CSECT (03421 


CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 


CSECT (03421 
CSECT (03421 


W443) WY 


N CSECT (03421 


CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 
CSECT (03421 


ww eee eee eee eee eee 


i A i 


ww eee ee 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH ( 2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH ( 2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (5) 
LENGTH (5) 


LENGTH (12) 


LENGTH (4) 
LENGTH (1) 
LENGTH (2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (4) 


LENGTH(11) 


LENGTH ( 2) 


LENGTH (2) 
LENGTH (2) 


LENGTH(11) 


LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 


LENGTH (2) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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03421 - INTERRUPT ROUTINE TO SUPPORT FRIEND 
CROSS-~REFERENCE LISTING 


P/N= 


G4TK045 


EC=754882 


COPYRIGHT IBM 


DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
86 HEXFF ABSOLUTE. HEX VALUE (00001828) 808 MASK3 paupnees: HEX aA NR a eee ie ) eae 
336 HEX03 ADDRESS. HEX LOCATION (00001C09) IN CSECT(03421 ) LENGTH(1) 809 MASK4 V2 Tho Tug tiga 1218 i A) ok 5. i233, 4240 12 woh7 Fenn 
337 HEXO4 ADDRESS. HEX LOCATION(00001COA) IN CSECT(03421 ) LENGTH(1) 792 MESAG core - HEX spike ere: ; a saad ) ee 
338 HEX0O7 ADDRESS. HEX LOCATION (00001COB) IN CSECT(03421 ) LENGTH(1) 10 16 MG1 ade HEX LOCATI ee N ee ah ) 7 toate 
Q7 HTOE ABSOLUTE, HE gh ALUE (00000012) ai oe Sai ear 1024 MG2 soot HEX LOCATION ( 22C6) EIN CS (Oo ) N (15) 
688 714 38 67440 76300 7650S 767) 7730S 775 1027 MG3 ADDRESS. HEX LOCATION(000022D8) IN CSECT(03421 ) LENGTH(18) 
1389 1383 \ 9? Anoe foes) sea ieee Tan. ieee 1030 MG4 ADDRESS. HEX LOCATION(000022EE) IN CSECT(03421 ) LENGTH(17) 
Wet: EOE? Bae oe een ROMEO ONO OAL SE ESRC TOON E. EENG THe) 1033. MGS ADDRESS. HEX LOCATION (00002302) IN CSECT(03421 ) LENGTH(16) 
1342 IDCB1 ADDRESS. HEX LOCATION(00002710) IN CSECT(03421 ) LENGTH(1) ais eer ADDRESS, HEX LOCATION (0000208C) IN ceEcT (03421 sagEENGTH (2) 
1351 IDCB2 ADDRESS. HEX LOCATION (00002732) IN CSECT(03421 ) LENGTH(1) 1143 1150 1156 116i 1170 1176 1182 1188 1133 
79 IDCPr Pe tage nets alae ie all oe 1243 1251 1258 1265 1272 1278 1282 1283 1282 
06 roe «SR nese Puen” SScanSou coda 609 MELA ABER, PPA /ROCATEGH (O9QG2O0H TH CSET (GINA? bg FEMSTB(a 
1006 ID MG ADDRESS. HEX LOCATION(0000227C) IN CSECT(03421 ) LENGTH(12) ‘oun 4953 4 4Gt a — 
1036 IDMG1 ADDRESS. HEX LOCATION (00002316) IN CSECT(03421 ) LENGTH(19) 804 MK FL3 OPS te LOCATION (00002090) IN renee ) in nt 
1037 IDMG2 ADDRESS. HEX LOCATION(00002329) IN CSECT(03421 ) LENGTH(14) 1494 MKQES RE DAESS HEX Ce ee a meters: ) sen ) 
1038 IDMG3 ADDRESS. HEX LOCATION (00002337) IN CSECT(03421 ) LENGTH(18) 1489 MKQUS Soe ee eee ee ey . oo ) pees 
1004 IDMSG BBDRESS. HEX LOCATION (00002278) IN CSECT(03421 ) LENGTH(2) 1469 MKRIN ep EESS: HEX senna eat Heit : span ) — 
138 INERR ABSOLUTE. HEX VALUE (00000002) 1480 MK RO1 jioee HEX LOCATION ( ) IN ( ee ) S 
579 INT ADDRESS. HEX LOCATION (OO001EQOE) IN CSECT(03421 ) LENGTH(1) 1482 MK RO2 joe HEX LOCATION (00002894) IN CSECT (034 ) LENGTH (1) 
567 INTL ADDRESS. HEX LOCATION(00001DF2) IN CSECT(03421  ) LENGTH(1) 14 86 MKR15 Meee: HEX LOCATION (0000289C) IN eee ) pian 
595 INTLA ADDRESS. HEX LOCATION (0000 1E32) IN CSECT(03421 ) LENGTH(1) 794 MSG LA haa HEX ee IN aac ) cresiies ) 
599 INTLB ADDRESS. HEX LOCATION (00001E3A) IN CSECT(03421 ) LENGTH(1) 980 MSG1 Ft a HEX LOCATION (00002248) IN sae i ) sea 
604 INTLC ADDRESS. HEX LOCATION (00001E48) IN CSECT(03421 ) LENGTH(1) 1142 MVA1 ae HEX ae Naar wn reeate i kus ) se 
584 INTLO ADDRESS. HEX LOCATION(O0001E1A) IN CSECT(03421 ) LENGTH(1) 1149 MVA2 AE ORES?: HEX LOCATION ( ) ( ) (1) 
588 INTL1 ADDRESS. HEX LOCATION(00001E22) IN CSECT(03421  ) LENGTH(1) 1227 MVB2 Beet ere nee LOCATION(O00025AC) IN CSECT(O3421  ) LENGTH (1) 
i i eee ee ee fe ee Mee oem beens ee 
os eee 387 eT ae 1214 MVW3 One ec: HEX eseuntencosb07e7 a IN CSECT(03421 ) LENGTH(1) 
761 IOER1 ADDRESS. HEX LOCATION (00002008) IN CSECT(03421 ) LENGTH(1) Tt aan Cait Ss ik aaahlae 
771 IOER2 ADDRESS. HEX LOCATION (00002022) IN CSECT(03421 ) LENGTH(1) 1 M free rer ( : 
1180 JcT1 ADDRESS. HEX LOCATION (O00QO24FE) IN CSECT(03421 ) LENGTH(1) 133 M10 ingen oscs HEX VALUE (FFFFFFF6) 
1249 JICT2 ADDRESS. HEX LOCATION(000025FA) IN CSECT(O3421 ) LENGTH(1) Les ae Hi wee ee 
1256 JCT3 ADDRESS. HEX LOCATION(00002610) IN CSECT(03421 ) LENGTH(1) 135 M20 ee HEX VALUE (FFFFFFEC) 
1263 Jc TY ADDRESS. HEX LOCATION (00002626) IN CSECT(03421 ) LENGTH(1) 132 m4 Woeot HEX VALUE (FFFFFFFC) 
1097 JNE1 ADDRESS. HEX LOCATION(000023EC) IN CSECT(03421 ) LENGTH(1) 518 NCCD1 oe laa HEX LOCATION(O0001D8C) IN CSECT(03421 ) LENGTH(1) 
1103 JNE2 RBDRESS. HEX LOCATION(000023FE) IN CSECT(03421  ) LENGTH(1) 506 NCC7 io LOCATION (00001D68) IN CSECT(03421 ) LENGTH(1) 
1156 JzZ1 ABDREsS. HEX LOCATION (000024B6) IN CSECT(03421 } LENGTH (1) 540 NCD7A oe HEX LOCATION (00001DC6) IN CSECT(03421 ) LENGTH(1) 
1162 JZ 2 ADDRESS. HEX LOCATION(000024C8) IN CSECT(03421  ) LENGTH(1) 347 NCD7B yee aes LOCATION (O0001DD6) IN CSECT(03421 ) LENGTH(1) 
1168 JZ 3 ADDRESS. HEX LOCATION(000024DA) IN CSECT(03421  ) LENGTH(1) a9 eure ioa HEX LOCATION (QOOO1DBE) IN CSECT(03421 ) LENGTH(1) 
1174 JZ 4 ADDazss. HEX LOCATION(O00024EC) IN CSECT(03421 ) LENGTH(1) 524 NCD71 ADDRESS. HEX LOCATION (00001D9C) IN CSECT(03421 ) LENGTH(1) 
1115 a1 ADDRESS. HEX LOCATION (00002422) IN CSECT(O3421 ) LENGTH(1) oe tae see ee LOCATION (QO001DE0) IN CSECT(03421 ) LENGTH(1) 
1186 J2 ADDRESS. HEX LOCATION(00002512) IN CSECT(O342%t ) LENGTH(1) 556 NCD73 ee HEX LOCATION (O0001DEC) IN CSECT(O3421 ) LENGTH(1) 
1270 J3 aaneeee: HEX LOCATION (0000263C) IN CSECT (03421 } LENGTH(1) 1021 NDCB io HEX LOCATION (000022B6) IN CSECT(03421 ) LENGTH(12) 
Ss ee te “Se ae eee ee 
81 KMODE ABSOLUTE. HEX VALUE (00001816) 33% NOCSS ae @50 651 Rae eaece ane ) a 
84 KY MOD ABSOLUTE. HEX VALUE(00001824) 1019 NODCB "368 HEX LOCAT ; ee : oe ne ) So 
142 LOP MK pBSOLUTE. HEX VALUE (0000000E) 988 NODEV sop HEX ee a eae ) ee 
266 LOSTC ADDRESS. HEX LOCATION (00001862) IN CSECT(03421  ) LENGTH(53) vee ae 1 870 *) ( ) (1) 
267 LosT1 ADDRESS. HEX LOCATION (00001A97) IN CSECT(03421 ) LENGTH(2) 347 NOTC FGeo oe HEX LOCATION (O00001C0C) IN CSECT(O03421 ) LENGTH (1) 
311 LSR ADDRESS, HEX LOCATION (00091BC2) IN CSECT(O3421  ) LENGTH(2) sed uCe! 303.00 ee Snes cane ie adam ate ) qa 
ie cae 19 200 eI oe ee ee ae eee ree ; eee tes IN ee ns | a 
282 LSTMG ADDRESS. HEX LOCATION (OOOO1AFC) IN CSECT(O3421 ) LENGTH (2) 27 NOT7B pepe eora MER ee Eon ) ( se ) : : ) 
285 LSTM1 ADDRESS. HEX LOCATION (00001B17) IN CSECT(03421 ) LENGTH(2) 278 NOT7C UE RE Ds HEX LOCATION (OOOO1AF7) IN CSECT (0342 ). LENGTH (2) 
284 LTMSG ADDRESS. HEX LOCATION(00001B00) IN CSECT(03421 ) LENGTH(23) 303 NOT7M tele. HEX LOCATION (OO001B7A) IN CSECT(03421 ) LENGTH (2) 
805 MASKO ADDRESS. | HEX LOCATION (00002092) IN CSECT(03421 ) LENGTH (2) 68 NUMDV Ean ngage $O0 988) bbe. wie 
806 MASK1 pADDRESS: HEX LOCATION (00002094) IN CSECT(03421 ) LENGTH (2) 95 ONE NeDOeUTe Bee Anne ee 522 571 632 638 
807 MASK2 ADDRESS. HEX LOCATION(00002096) IN CSECT(03421 ) LENGTH(2) 4aok 483 4308 1340 so78 1383 ons 163 He 
eee ~te7e 1314 1319 1403 1414 1417 1434 1436 
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DECLARED NAME DECLARED NAME 


” eee Moe 40D ieat'y eee) tee 581 601 622 #42780 159 RIDC3 ADDRESS. HEX LOCATION(00001925) IN CSECT(03421 ) LENGTH(1) 
1472 235 ROMSG ADDRESS. HEX LOCATION (000019FC) IN CSECT(03421 ) LENGTH(2) 
ae eee p37 735) 7334832. 1993, 1101 07 1142 aie 815 ROREG  RRDRESS. HEX LOCATION (0Q0020A4) 1 IN CSECT(03421 ) LENGTH(2) 
1178 1183 1190 1194 1195 1200 1205 1219 121) 236 ROSAV ADDRESS. HEX LOCATION (000019FE) iN CSECT(03421 ) LENGTH(2) 
1277 1283 1284 1296 1331 1344 1348 1377 «1381 237 R1SAV jADDRESS. HEX LOCATION (00001A00) IN CSECT(03421 ) LENGTH(2) 
244 OP 2FL ADDRESS. HEX LOC ATION (0000 1A0E) IN CSECT(03421  ) LENGTH(2) 813 R2REG ADDRESS. | HEX LOCATION (000020A0) IN CSECT(03421 ) LENGTH(2) 
42 OUT ABSOLUTE. HEX VA LUE (00000000) Get. Sy: abe age 238 R2SAV ADDRESS. HEX LOCATION(00001A02) IN CSECT(03421 ) LENGTH (2) 
aCe) 1383 ae ee 1051 1071 1326 1339 1359 814 R3REG jADDRESS; | HEX LOCATION (000020A2) IN CSECT(03421 ) LENGTH(2) 
43 OUTIN ABSOLUTE. HEX VAL UE (00000001) 239 R3SAV ADDRESS. | HEX LOCATION (00001A04) IN CSECT(03421 ) LENGTH(2) 
3 03421 CSECT. START (00001900) LENGTH(4046) ESDID(0) 8 16 R7 REG QenO  aRhe NAGA” Nae eee G on CSECT(03421 ) LENGTH(2) 
817 PARN2 {BRDRESS. HEX LOCATION(000020A8) IN CSECT(03421 ) LENGTH(4) 241 R7SAV face shoe LOCATION(O0001A08) IN CSECT(03421 ) LENGTH (2) 
304 PREPA ADDRESS. HEX LOCATION(00001B7C) IN CSECT(03421 ) LENGTH(10) 1287 SECON ATERESDs HEX LOCATION (00002670) IN CSECT(03421 ) LENGTH (1) 
620 PRNT ADDRESS. HEX LOCATION (OO0O01E5A) IN CSECT(03421 }) LENGTH(1) 973 SECO1 goog here HEX LOCATION (00002236) IN CSECT(03421 ) LENGTH(4) 
631 PRNT1 ADDRESS. HEX LOCATION(O0001E7C) IN CSECT(03421 ) LENGTH(1) 974 SECO2 Weep ote HEX LOCATION (0000223A) IN CSECT(03421 ) LENGTH (2) 
637 PRNT2 ADDRESS. HEX LOCATION (O00001E8A) IN CSECT(03421 ) LENGTH (1) 101 SEVEN rE C ee EP oy sae eee 554 1129 
644 PRNT3 ADDRESS. HEX LOCATION(00001EA2) IN CSECT(03421 ) LENGTH(1) 100 SIX ABSOLUTE. HEY VALE B t08 4466 1355 1388 
655 PRNT4 ADDRESS, HEX LOCATION (OO001ECC) IN CSECT (03421 ) LENGTH (1) 109 SIXTN ABSOLUTE, HEX VALUE (00000010) 
666 PRNTS ADDRESS. HEX LOCATION (OOOO1TEE8) IN CSECT(03421 ) LENGTH(1) 122 SIXT4 uae ee a bas 
732 PRNT6 ADDRESS. HEX LOCATION(OQOO1FAC) IN CSECT(03421 ) LENGTH(1) 93 SM Ca paar er Neer eee coy 
755 PRNT7 ADDRESS. HEX LOCATION(OOOO1FFA) IN CSECT(03421 ) LENGTH(1) 799 SPLAT gooc sees: ates LOCATION (00002086) IN CSECT(03421 LENGTH (1) 
662 PRN3 ADDRESS. HEX LOCATION(Q0001EDE) IN CSECT(03421 ) LENGTH(1) 136 STERR eee ar EEE OE Ao e ceo 
664 PRN ADDRESS. HEX LOCATION (OOOO1EE4) IN CSECT(03421 ) LENGTH(1) 477 STPRT hao eae eno oa een IN CSECT (03421 LENGTH (1) 
727 PRNS ADDRESS. HEX LOCATION(QO001F9E) IN CSECT(03421 ) LENGTH(1) 1109 SVC1 BDDEES HEX LOCATION (00002410) IN CSECT(03421 LENGTH (1) 
312 PRPCD ADDRESS. HEX LOCATION (00001BC4) IN CSECT(O3421 ) LENGTH(1) 110 SVNIN EBSOLUTE- HEX VALUE (00000011) 
218 PRTLN ADDRESS, HEX LOCATION (000019B4) IN CSECT(03421 ) LENGTH(2) 129 SXTNK ABSOLUTES ear tales Ca ter 
1299 PRTNO ADDRESS. HEX LOCATION (00002695 IN CSECT (03421 sg eENSTEC) 1192 TBT 1 ADDRESS, HEX LOCATION (00002524) IN CSECT(03421 ) LENGTH(1) 
1435 1164 1167 1173 1179 1185 1194 1197 1202 1198 TBT2 RODRRSS: HEX LOCATION (0000253C) IN CSECT(03421 ) LENGTH (1) 
1306 PRIN1 \ABDRESS, HEX -LOCATTOR (OOGOS6AE) IN CSECT(03421  ) LENGTH(1) ae pis Sos er ee ee te Cee 
1311 PRIN2 ADDRESS. HEX LOCATION (000026B8) IN CSECT(03421 ) LENGTH(1) a oe $39. he ee ee ee ee tee 
1318 PRTN3 ApbREss. HEX LOCATION (000026C8) IN CSECT(03421 ) LENGTH(1) bee ai SBlocueg, ang.ratya gocooc0n) | esa ipegreie> Gh SR Neaes 
1323 PRTNG ADDRESS. HEX LOCATION (000026D2) IN CSECT(03421 ) LENGTH(1) We mere Pecanauee Ee ALUE (00000007) 
221 PRTO6 ADDRESS, HE X LOCATION (OOQQI9BE) IN CSECT (03421 ) LENGTH (4) 97 menue Me ame: HEX VALUE (00000003) 
222 PRT10 ADDRESS. HEX LOCATION(000019C2) IN CSECT(03421 ) LENGTH(2) 106 ae ABSOLUTE, HBY VaLue (60000000) 
= a eae asaeee fate ay mano fasta Ebeaosorouvonay nv cmnconezy 3 tavernas 
225 PRT18 "ADDRESS, (HEX LocatToN(OO9Q19CA) 1 IN CSECT(03421 _) LENGTH (6) aoe uae 609. Se ee ee 
1348 1333 116 1133 384 126 1204 1206 1212 288 TIME1 BEDRE SS: HEX LOCATION(00001B1C) IN CSECT (03421 ) LENGTH (13) 
226 PRT24 ADDRESS. HEX LOCATION (006019D0) IN CSECT(03421 ) LENGTH (6) 202 TIMOT Boyne HEX DOCREEON (OC OCT TAY TN, CSBCE(OIG2)) |): LENGTH C2) 
227 PRT30 ADDRESS. HEX LOCATION (000019D6) IN CSECT(03421  ) LENGTH(6) 220 TNIRP 4oG oO ota aon ron aa CSR T(OF8 ZT 3b g EENGTH CE) 
acs eee aa5n0 fe epee eee ern eee care <b ENC THES) 401 TTYNG RODRESS- HES LOCATION (00001C8E) IN CSECT(03421 ) LENGTH(1) 
$23 pene ro aaa CSR CLONE OURS Ey. AN CORETIOSN 21“): LENGENG) 406 TTYNO ADDRESS. HEX LOCATION(00001C9E) IN CSECT(03421 ) LENGTH(1) 
a Peto" 90000 TER POCA TON COD Oe ay aN COROT OSNeL ©) LENGTH CTO) 413 TTYN1 ADDRESS. HEX LOCATION (OOO01CAE) IN CSECT(03421 ) LENGTH(1) 
nae ee one ee eet re eee ee nage era: Aye near) 394 TT 100 ADDRESS. HEX LOCATION (00001C7A) IN CSECT(03421 ) LENGTH(1) 
sae TOR eo re eon) -ENVESECE (ONE: <) SERSTECY) 354 TT50 ADDRESS. HEX LOCATION (00001C1E) IN CSECT(03421 ) LENGTH(1) 
ine ca ape ie aac ae sid seer ) mein es 359 TT55 ADDREss. HEX LOCATION (00001C28) IN CSECT(03421 ) LENGTH(1) 
ADDRESS. HEX ATION F IN CSECT(O LENGTH 
843 RDADR ADDRESS. HEX et eseiseee aa IN ee unin se ee sor oe a ee eee 
844 RDCOD "ADBRESS. HEX LOCATION (000020DE) IN CSECT(O3421 ) LENGTH(2) i ak s28 ee ee! ee 
837 1416 1421 370 TT58 ADDRESS. HEX LOCATION(00001C3A) IN CSECT(03421 ) LENGTH(1) 
es ae Wwe. oreo Mor eron esos eon: cu CSBem(Oetey ) BENGTaCY) 380 TT60 RDDRES HEX LOCATION(00001C52) IN CSECT(03421 ) LENGTH(1) 
— naere Boe ea tecaee eter aat ae Reece (Oaket: d-JbERCrN el) 382 TT8O ABBress. "wEx LOcATIGN (00001c54) IN CSECT(03421 ) LENGTH(1) 
1485 153 TWADR ADDRESS. HEX LOCATION(0000191F) IN CSECT(03421  ) LENGTH(1) 
ai eee CoB E82 EO IN oa) ch Vener ieee aan a 152 TWDCB ADDRESS. HEX LOCATION(0000191E) IN CSECT(03421 ) LENGTH(1) 
161 RETSV eet eee aS eS CSECT (03421 sub eEneta (2) <5 re AggoLuTE. HEX VALUE (00000016) 
156 RIDCB ADDRESS. HEX LOCATION (00001922) IN CSECT(03421 ) LENGTH(1) 96 TWO Ane aaa ee ag ekg ae) 745 1092 1350 
noe ace ao Eee pee nnaes OUOCI ead eh Cnet lGabet oy RENeLE OY) 975 UBUFR "ADDRESS. HEX LOCATION (0000223C) IN CSECT(03421 ) LENGTH(2) 
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996 1056 
472 UEXIO neg nae one pol Oe ea eae CSECT (03421 ) LENGTH(1) 
139 UXERR hoe eco HEX VALUE (00000008) 
256 UXIMG aa HEX LOCATION (00001A26) IN CSECT (03421 ) LENGTH (2) 
800 WORKA ponte eng eae ange IN CSECT (03421 ) LENGTH (2) 
319 XPIND ADDRESS. HEX LOCATION (00001BCB) IN CSECT (03421 ) LENGTH (1) 

426 G44 652 657 660 
94 ZERO ABSOLUTE. HEX VALUE (00000000) 

371 381 4a 456 557 596 751 


TRAE IK CCC IC eX af ie ie 2c aie a ae 2 Re ae he 2c fe 2 ice afc ok a of ak ie oie ok ake ke eek ok PAST PA GR i Be 2 oe Be ale oe he 2 i ake he fe a 2h a he he ate he ate ec ae 2h 2 ac 2c kc ae ae fe akc a he ae ake 2 ee 2k 2 ok ac oc 


03428 - FRIEND MODULE FOR TEST 00 P/N=4414046 EC=754882 PASE 01 03428 - FRIEND MODULE FOR TEST 00 P/N=4414046 EC=754882 PAGE O1A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
001900 3 03428 START x'1900! DECLARED NAME ATTRIBUTES AND REFERENCES 
THES SSS SLES ES SESE SES ESE SSE SE SSS TTT STE LETS SSE SS SSS SPST TTS STS TTS SS SS SSS SS 
5 * * 0 R11. ABSOLUTE. HEX VALUE (00000001) 
6 * ak PREREQUISITES 40k 64 65 69 0 70 70 70 71 72 
7 * * 74 15 77 78 80 81 83 
8 * NONE ‘ ~R2. ABSOLUTE, HEX VALUE 60000902) 
10 PSSST SSE SSL SSS LSS SSS SS LS SSS SESE LS SSS SL SS SSSES SSS STE SS SES SS StS SSS SS SS SS ES FS 3 0 eR7. ABSOLUTE. HEX VALUE 00000007) 83 
11 * * 62 66 &5 67 67 67 68 73 
12 * 4% MODIFICATIONS 440% * 76 79 82 
13 * * 44 DEVC1 ABSOLUTE. HEX VALUE (0000182E) 
14 * 1. MODIFICATIONS TO SUPPORT SENSOR I/O. * 6 
RM LSE SSL ESE SST SS ES TS SS ETS SETS SF FS STF TTS STF STS TT ST TF FFT STS TSS TSS STS SS STS TSS 85 INSTR Meee HEX LOCATION (00001968) IN CSECT (03428 ) LENGTH (1) 
17 * x 43 NUMDV ABSOLUTE. HEX VALUE (0000182A 
18 * 44 REA'S INCORPORATED 40 * 66 ( ) 
19 * nee 7 42 OPTN1 ABSOLUTE. HEX VALUE (0000180) 
21 * xx Z 
22 PSS SSS SSS SSS SSS SS SSS SSS SSS SSS STS SSS FESS SSSSLS SS SESS SSL St SSS SS SL STS LS SES SS Fs 102 OVLBT rt hii HEX LOCATION (00002900) IN CSECT (03428 ) LENGTH (1) 
23 * * 101 OVLND ADDRESS. HEX LOCATION (00002868) IN CSECT(03428 LENGTH (1 
24 * 454 3 SPECIAL INSTRUCTIONS kk * 103 ( ) ( ) NGTEL) 
25 * aes 60 OVSTR ADDRESS. HEX LOCATION(0000191A) IN CSECT(03428 ) LENGTH(1) 
27 * * = 
28 PSSST ESS SCL SS SSE S SEL SSS SSS SSS SS SSS SSL SSS ESL SSS SS SS SSS SSS SS FSS STEFF SSS SES 3 03426 Cea START (00001900) LENGTH (4096) ESDID (0) 
29 * * 48 PID ADDRESS. HEX LOCATION (00001900) IN CSECT (03428 LENGTH (2 
30 + 40 E. C. HISTORY He * zs 102 ( ih ( ) (2) 
RETSV ADDRESS. HEX LOCATION(00001918) IN CSECT (03428 LENG 
32 * DATE O6MAY77 DATE 15SEP77 DATE DATE * 61 84 ( ( ) MAG! 
33 * E.C. 578756 E.C. 754882 £E.C. E.C. * 51 SvVTS1 ADDRESS. HEX LOCATION (00001908) IN CSECT(03428 ) LENGTH(2) 
5 PSSST SS SSS LS SSS LSS ELSES STE SS SE SSE SES SSE TSS SSS SSS SS SSE SPS SS TSS SS SS SESS St SS SS z 
33 Me HME He ae HC Ie fe fe Ae MC HE eK IK HE fe Mc He eK fe Ke fe hc ke 3 he fc ae fc ee ae fc hc i af ae fc ah ae afc ae afc he he af ake hc dhe she afc alee fe he ae He fc aye ade afc fe afc ai he He ae ae oe 32 SVTS2 noUReSS HEX LOCATION (0000190A) IN CSECT (03428 ) LENGTH (2) 
38 * ¥ 53 SVTS3 ADDRESS. HEX LOCATION(0000190C) IN CSECT (03428 LENGTH (2 
39 EQUATE TABLE : 75 ( ) ( ) (2) 
4 PSS SSS SS SSS SS SES SS SS ES SSL SSS SESS SS SET LS SS TS SESS SSS TS SS SPSS StS SS FS SSS oF 3S F | 34 SvTS4 yas HEX LOCATION (0000190E) IN CSECT (03428 ) LENGTH (2) 
001805 42 OPTN1 EQU  X'180E* 55 SVTSS ADDRESS. HEX LOCATION (00001910) IN CSE 
31834 a2 BUNDY BRE 41838 . (eunsisidy ah cack AAA: {ASA 
56 SVTS ADDRESS. HEX LOCATION (0000191 
90983 ts THREE F i 3 a D ION ( 912) IN CSECT(03428 ) LENGTH(2) 
57 SVTST7 ADDRESS. HEX LOCATION (00001914 34 
91300 3428 | WS PED. DC X43u20" BEOGRAN, IDENTIETER | 5 lf Scie ai ae 
5 SVTS ADDRESS. HEX LOCATION (00001916) IN CSECT(03 
001906 1968 50 SINST DC A(INSTR) ( ) (Ost28° -) -PENGEHC2) 
001908 0000 51 SvTsi pe A (#~ INSTRUCTION STREAM START 46 THIR4 ABSOLUTE. HEX VALUE(00000022) 
00190A 0000 52 SVTS2 DC A k-* LENGTH 
00190c 00060 53 SvtTs3 pc A (*-* IDCB TABLE START 45 THREE ABSOLUTE. HEX VALUE (00000003) 
00190E 0000 54 SVTS4 DC A (*-* LENGTH 68 
001910 0000 55 SvTSS DC A (*-* DCB TABLE START 
001912 0000 56 SVTS6 DC h (*-%* LENGTH 
00171914 0000 57 SVTS7 DC Rh (*-* DATA AREA So 222 SPs eS SSS St Se SL SLES S SSL SSS SSL SS SSS SSS 2 Se 2 LAST PAGE PPS SESS SS SSS SPSL ESE SE SSeS SSCS SS SCLC SS SS SS SL SL SS SS 
001916 0000 58 SvTS8 DC A (#-* LENGTH 
001918 0000 59 RETSV DC A (*-* 
00191A 60 OVSTR EQU ¥* 
00191A 6FOD 1918 61 MYW  R7,RETSV SAVE REG 7 
00191E OF22 62 MVBI THIR4G,RT NUMBER OF BYTES TO MOVE 
001920 4224 1968 63 MVA INSTR, R2 AREA TO RESTORE 
001924 4124 180F 64 MVWI OPTN1.R1 WHERE TO PUT THE DATA 
001928 2aA24 65 MVEN (R2) (R1) VE IT 
00192A 4724 182A 66 MVWI NUMDY,R7 
00192E 6FES 0000 67 MVW (R7) h7 
001932 3719 68 SLL HREE, R7 
001934 4124 182k 69 MVWI DEVC1.R1 
001938 C940 70 MVW R1),&1 
00193A 2a24 71 MVFN (R2)¢ (RI) 
00193c 6908 1908 72 MVW VTS4,R1 THE FOLLOWING 
001940 6F08 190A 73 MVW SVTS2~R7 SET UP 
001944 2A24 74 MVFN (R2) (R1) IDCB'S 
001946 6908 190c 75 MVW VTS3,R1 pes §, 
00194A 6F08 190E 16 MVW 9 SVTSG<RT7 AND 
OOTS4E 2ZA24 V7 MVEN 82) (R1) THE AREA 
901950 6908 1910 78 MVW vTS§,R1 TO RESTORE 
001954 6F08 1912 79 MVW  «©6SVTS6,R7 THE TEST 
901958 2A24 80 MVFN (R2), (R1) PREVIOUSLY 
00195a. 6908 1914 81 MVW SVTS7,R1 WAS 
00195z 6F08 1916 82 MVW SVTS8/R7 
001962 2A24 83 MVFN (R2),(R1) 
001964 6812 1918 84 B RETS(* 
001968 85 INSTR EQU * 
001968 00000000000000000 86 DC 128A (*-* 
001A68 00000000000000000 87 DC 128A (*-* 
001B68 00000000000000000 88 DC 128A (*-* 
001C68 90000000000000000 89 DC 128A (*-* 
001D68 00000000000000000 90 DC 128A (*-* 
901B68 00000000000000000 91 DC 128A (*-* 
001F68 00000000000000000 92 DC 128A (*—* 
002068 00000000000000000 93 DC 128A (*-* 
002168 00000000000000000 94 DC 128A (*-* 
002268 00000000000000000 95 DC 128A (*-* 
002368 00000000000000000 96 DC 128A (*-* 
002468 00000000000000000 97 DC 128A (*-* 
002568 00000000000000000 98 DC 128A (*-* 
002668 00000000000000000 99 DC 128A (*-* 
002768 00000000000000000 100 DC 128A (*-* 
002868 101 OVLND EQU * 
002900 102 OVLBT EQU PID+4096 
002868 00000000000000000 103 DC (OVLBT-OVLND) x'008 
000000 104 END 


03429 - FRIEND MODULE FOR TEST 01 P/N=4414047 EC=754882 PAGE 01 93429 - FRIEND MODULE FOR TEST 01 P/N=4414047 EC=754882 PAGE O1A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
001900 3 03429 START x'1900! DECLARED NAME ATTRIBUTES AND REFERENCES 
YOO III I II JO IO IOI a ik i aK 2 2k i fc ak ak ak ake ak af ak ai ak ake ak ak af fc 
5 * * 0 eR1. Hono eUnee nO WE 70 70 44 12 
6 * KK PREREQUISITES aK * 
7 x Q a 74 715 77 78 80 81 83 
8 * NONE x 0 ~R2. RES OUUTE: HEU NLUE 00000002) ae a3 
* x ; 
+6 BIC IG III IOI ICI OI OK ICI I ICICI II II I OK Ok kar ia a ak akc ak af ak ak ac ake ok ak ake ake ake ak ae 0 eR Ps ABSOLUTE. HEX a at 
11 * Bn B of 4s 7 67 67 67 68 73 
12 * KX MODIFICATIONS KK * é 
13 * * Gy DEVC1 Beaute: HEX VALUE (0000182E) 
* i O FICA S TO SUPP NSOR I/0. * 
ig ¥ 1 pope Pe ee ONS. a BEE eye i: * 85 INSTR ADDRESS. HEX LOCATION (00001968) IN CSECT (03429 ) LENGTH(1) 
16 OREO II RO IO IOIOR I I III IO i OR IG Ri i ak ik ake ake ak aka ak ake ake af afc ake ake ak ak af ake ake ake ae aie ae ak 50 63 
17 * * 4 3 NUMDV needa HEX VALUE (0000182A) 
18 * KK ok REA*S INCORPORATED % He * 
19 * - * 42 OPTN1 pe anees HEX VALUE (0000180E) 
* 
25 x NONE x 102 OVLBT ADDRESS. HEX LOCATION (00002900) IN CSECT (03429 ) LENGTH (1) 
22 CIC OI IOI OCI IGOR I ICIOR IOI III III I IO a IG Ia a ai ake ak ic ai ak ak af ak ak lke ak ake 2 ake 103 
23 * *x 101 OVLND Se ea HEX LOCATION (00002868) IN CSECT (03429 ) LENGTH (1) 
y * HK OK SPEC INSTRUCTIO % KX * 
23 x ahh ss * 60 OVSTR ADDRESS. HEX LOCATION (0000191A) IN CSECT(03429  ) LENGTH(1) 
x * 
Z8 * BONE * 3 03429 CSECT. START(00001900) LENGTH(4096) ESDID(0) 
98 OO OI II II OIG I IOI II II IIR II Faia i ak ak ak ak kak ake ak ak a ake ake ake ake ae ae fe fe ake afe ake ae ake ake 3 
29 * * 48 PID ADDRESS. HEX LOCATION (00001900) IN CSECT (03429 ) LENGTH (2) 
30 * eS E. C. HISTORY * * 102 
31 * x 59 RETSV ADDRESS. HEX LOCATION (00001918) IN CSECT (03429 ) LENGTH (2) 
32 * DATE O6MAY77 DATE 15SEP77 DATE DATE * 61 84 
33 * E.C. 578756 E.C. 754882 E2Cg BE. C: * 51 SVTS1 sa aoa HEX LOCATION (00001908) IN CSECT (03429 ) LENGTH (2) 
x a 
Et ROI OOK IGG III IOI II OR IOI IOI III II II I ka ak ge ak fe ak ac 52 SVTSZ ADDRESS. HEX LOCATION (O000190A) IN CSECT (03429 ) LENGTH (2) 
377 GRO IO OI I GIO II I I aI GIO IG ROR kk kk ak ake ak ak ake ak 7 
38 * * 53 SVTS3 ADDRESS. HEX LOCATION(0000190C) IN CSECT(03429 ) LENGTH(2) 
39 * EQUATE TABLE * 75 
“uo * * 54 SVTS4 ADDRESS. HEX LOCATION (O0000190E) IN CSECT (03429 ) LENGTH (2) 
17 IO IO OIC IOI III IO II IG OR ok I I a I CK ak ak ak af akc ake ak ak ake ako ake ie ak ak 76 
OO180E 42 OPTN1 EQU X*180E! 55 SVTS5 ADDRESS. HEX LOCATION (00001910) IN CSECT (03429 ) LENGTH (2) 
00182A 43 NUMDV EQU xX‘'182At 78 
00182E 44 DEVC1 EOU X'182E¢ 56 SVTS6 ADDRESS. HEX LOCATION {00001912) IN CSECT (03429 ) LENGTH (2) 
000003 45 THREE EQU 3 3 79 : 
ORT one 3 46 THIRG EQU ae 34 57 SVTS7 a eh HEX LOCATION (00001914) IN CSECT (03429 ) LENGTH (2) i 
01 429 48 PID DC X'*'34298 PROGRAM IDENTIFIER 
991302 6802 191A 49 OVLST B OVSTR BRANCH TO PGM START 58 SVTS8 ene HEX LOCATION (00001916) IN CSECT (03429 ) LENGTH (2) 
1 SINST DC A(INSTR 
901908 9999 21 svisi De A et ) TNSTRUCTION STREAM START 46 THIR4 peor veo HEX VALUE (00000022) 
00190C 0000 53 svts3 Dc A (*-%* IDCB TABLE START 45 THREE ABSOLUTE. HEX VALUE (00000003) 
J0190E 0000 54 SvTS4 DC A (*-* LENGTH 68 
001910 0000 55 sSvVTS5 DC A (*-* DCB TABLE START 
001912 0000 56 SVTS6 DC A (*-* LENGTH 
001914 0000 57 SVTS7 DC A lx-* DATA AREA FIIC IO I GIO CO CC aE LAST DA GE OR IO OI I IOI I IOI kak i ir Ig kk RICO ak ake ak 
001916 0000 58 SVTS8 DC A (*—* LENGTH 
001918 0000 59 RETSV DC A (*-* 
QO0191A 60 OVSTR zou * 
OQOO191A 6FOD 1918 61 , MVW R7,RETSV SAVE REG 7 
Q0191E OF22 62 MVBI THIRU,RT NUMBER OF BYTES TO MOVE 
001920 4224 1968 63 MVA INSTR, R2 AREA TO RESTORE 
001924 4124 180E 64 MVWI OPTN1,R1 WHERE TO PUT THE DATA 
001928 2A24 65 MVFN fR2) (R1) MOVE IT 
00192A 4724 182A 66 MVWI NUMDY,R7 
OO192E O6FE8 0000 67 MVW Any R7 
001932 3719 68 SLL HREE,R7 
001934 4124 182E 69 MVWI DEVC1,R1 
001938 c940 70 MVW R1),R1 
00193A 2A24 71 MVFN R2), (R1) 
00193C 6908 1908 72 MVW VTS{,R1 THE FOLLOWING 
001940 6F08 150A 73 MVW SVTS2,R7 SET UP 
001944 2A24 74 MVFN §R2) (R1) IDCB'S 
001946 6908 190C 75 MVW VTS 3 R1 pest §, 
QO0194A 6F08 190E 716 MVW SVTS4,R7 AND 
OO194E 2A24 77 MVFN Seat (R1) THE AREA 
001950 6908 1910 78 MVW vTs5 ,R1 TO RESTORE 
001954 6F08 1912 79 MVW SVTS6,R7 THE TEST 
001958 2A24 80 MVFN (82), (R1) PREVIOUSLY 
00195A 6908 1914 81 MVW VTS7,R1 WAS 
Q0195E 6FO08 1916 82 MVW SVTS8,R7 
001962 2A24 83 MVFN (R2), (R1) 
001964 6812 1918 84 B RETS (x 
00196E 85 INSTR EQU * 
001968 00000000000000000 86 DC 128A (*-* 
001A68 00000000000000000 87 Dc 128A (*-* 
001B68 00000000000000000 88 DC 128A (*-* 
001C68 00000000000000000 89 DC 128A (*-* 
001D68 00000000000000000 90 DC 128A (*-* 
001E68 00000000000000000 91 DC 128A (*-* 
0O01F68 00000000000000000 92 DC 128A (*-* 
002068 00000000000000000 93 DC 128A (*-* 
002168 00000000000000000 94 DC 128A (*-* 
002268 00000000000000000 95 DC 128A (*-* 
002368 0Q0000000000000000 96 DC 128A (*-* 
002468 00000000000000000 97 DC 128A (*-* 
002568 00000000000000000 98 DC 128A (*-* 
002668 00000000000000000 99 DC 128A (*-* 
002768 00000000000000000 100 DC 128A (*-* 
002868 101 OVLND EQU * 
002900 102 OVLBT EQU PID+4096 
002868 00000000000000000 103 D (OVLBT~OVLND) x'00° 
000000 104 END 
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FRIEND MODULE FOR TEST 02 


P/N=44 14048 
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ATTRIBUTES AND REFERENCES 
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HEX VALUE (0000182E) 


HEX VALUE (0000182A) 
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O342B - FRIEND MODULE FOR TEST 03 P/N=4414049 EC=754882 PAGE 01 O342R - FRIEND MODULE FOR TEST 03 P/N=4414049 EC=754882 PAGE O1A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
001900 3 0342B START x'1900! DECLARED NAME ATTRIBUTES AND REFERENCES 
Lye a a aK ae 2 he he 2 2 fe Xe he ae ie 2 a af fe fe af ae fe ofc ake he ake a af ie 2h ac ae ae ae ak ae 2c ate ie oe fe ae oe 2c ae 2c ae 2k of 2c ac 2 ae af 2k oe afc ak ak ik afc ofc ak ak ok oie fe 
5 * * 0 -R1. ABSOLUTE. HEX VALUE (00000001) 
6 * 2 ak PREREQUISITES 2 tC * 64 65 69 0 70 70 70 71 72 
7 * 74 75 77 78 80 81 83 
8 * NONE * SRO: ABSOLUTE. HEX VALUE (00000002) 
9 * * 63 65 71 4 77 80 83 
10 Oe Re ae she He oe aie 2h oe afc afc oe ae 2 ak ale a ake oie ake ic oe ie of ake oe ke oe ote ok ofe ae ate ate fe ae ak ae akc af ke ake ate oie ae fe ofc afk ak afc ake ake afc ake afk afk afk ofc ake of ake ake ae ake ake af akc ofc ote afc ote 0 R77. ABSOLUTE. HEX a ee 
11 * * 61 62 66 7 67 67 67 68 73 
12 * eke MODIFICATIONS 40K * 16 79 82 
13 * * 44 DEVC1 ABSOLUTE. HEX VALUE (0000182) 
1g * 1. MODIFICATIONS TO SUPPORT SENSOR I/O. x 69 
15 * * 85 INSTR ADDRESS, HEX LOCATION (00001968) IN CSECT(0342B ) LENGTH(1) 
16 ae ate dhe afc afc afc ake afe ake ac afe fe afc ate ofc ake ofc of afc sfe fe ote ofc ade ofc ofe ake of ake fe abe fe afe ofc he oe ae ae ae ake she afk fe ake ake ai ae ae ae fe ale ade ate ae ake ake ate 3k ake of ake ake ake afc ofc fe ake ok afk ok ote 50 6 
17 * * 43 NUMDV ABSOLUTF. HEX VALUE (0000182A) 
18 * $e ok REA'S INCORPORATED eK * 6 
19 * * 42 OPTN1 ABSOLUTE. HEX VALUE (0000180E) 
20 * NONE x 64 
241 * * 102 OVLBT ADDRESS. HEX LOCATION(00002900) IN CSECT(O342B ) LENGTH(1) 
22 WK fe 2K fc ae 2 ah ae ie oie ake eae aK ofc ae ok oe 2K af oie ok ak ok ofc ofc ak aie ake oe ae ke oe ah aie ofc 2 ak ok aie fe ake afc oe ae ok ok of of ake age af alk afc ake ak ake afc ofc ake af ake ok ofc ok afc of aie ake 2k afc 103 
23 * * 101 OVLND ADDRESS. HEX LOCATION(00002868) IN CSECT(0342B ) LENGTH(1) 
24 * ek SPECIAL INSTRUCTIONS eK * 103 
25 : ae * 60 OVSTR ADDRESS. HEX LOCATION(0000191A) IN CSECT(0342B  ) LENGTH(1) 
27 * x 3 0342B CSECT. START(00001900) LENGTH(4096) ESDID(0) 
28 DK He He Hc i 2 ke ae ofc i ae a ae ah ok ae fe ae ae af ake he oe ote 2 ae ac ate ote ake ake afc afc ake 2c ok ak 2k oe akc fc ote he age ake ok afk aie afc fe aie ofc ake ote ake ate ae ake ofe akc afc afc ak ake akc ae ofc ate af 3 
29 * * 48 PID ADDRESS. HEX LOCATION (00001900) IN CSECT(0342B ) LENGTH(2) 
30 * OK E. C. HISTORY 4K x 102 
31 * * 59 RETSV ADDRESS. HEX LOCATION (00001918) IN CSECT(0342B  ) LENGTH(2) 
32 * DATE O6MAY77 DATE 15SEP77 DATE DATE * 61 84 
33 . E.C. 578756 §E.C. 754882 &£E.C. ELC. : 51 SVTS1 ADDRESS. HEX LOCATION (00001908) IN CSECT(0342B ) LENGTH(2) 
35 Me RE ee ee ake oe oe Ne ae ae ae 3 ae 2c 3K ae of ae ae a 3 ake ake fe 2c ate ae Xk aie fe he ae ie fe fe ae he ae afc 2 it ae ate he ae fe ake ake ae ate oe afc ate afc ake ake ake ate af ake ake af ae 2k ake ok ok 52 SVTS2 ADDRESS. HEX LOCATION (0000190A) IN CSECT (O0342B ) LENGTH (2) 
37 LoS S SSeS SS SS FSS SSS SS LSS SS SL SL SSS SL SS SSL SSS SESS SS SS SP StS T SS SS SSL Se SLES SSS 2.53 73 
38 * * 53 SVTS3 ADDRESS. HEX LOCATION(0000190C) IN CSECT(0342B ) LENGTH(2) 
39 * EQUATE TABLE X* " 75 
40 * * 54 SVTS4 ADDRESS. HEX LOCATION (0000190E) IN CSECT(0342B ) LENGTH(2) 
RPS SSS SS PS SPT SS SS SSS LSS SSS SS SS SES SL SETS SS TS SSS LSS SS SSS SSS TS SSS SL SS SS SSS SS 76 
00180B 42 OPTN1 EQU X*180E* 55 SVTS5 ADDRESS. HEX LOCATION (00001910) IN CSECT(0342B ) LENGTH(2) 
00182A 43 NUMDV EGU xX*182A;A* 78 
00182E 44 DEVC1 EOU X*'182E 56 SVTS6 ADDRESS. HEX LOCATION (00001912) IN CSECT(0342B  ) LENGTH(2) 
000003 45 THREE EOU 3 3 719 
600022 46 THIRG EQD 34 34 57 SVPST ADDRESS. HEX LOCATION (00001914) IN CSECT(0342B  ) LENGTH(2) 
001900 3428 48 PID Dc X'342B¢ PROGRAM IDENTIFIER 81 
001902 6802 191A 49 OVLST B OVSTR BRANCH TO PGM START 58 SVTS8 ADDRESS. HEX LOCATION(00001916) IN CSECT(0342B  ) LENGTH(2) 
001906 1968 50 SINST DC A (INSTR) 8 
001908 0000 51 Ssvtsi DC A (*-* INSTRUCTION STREAM START 46 THIRG ABSOLUTE. HEX VALUE (00000022) 
00190A 0000 52 SVTS2 DC A (*—* LENGTH | 6 
00190c 0000 53 Svts3 DC A (*-* IDCB TABLE START 45 THREE ABSOLUTE. HEX VALUE (00000003) 
00190E 0000 54 SVTS4 DC A (*~ LENGTH 68 
001910 0000 55 svtss Dc A (*-* DCB TABLE START 
001912 0000 56 SVTS6 DC BR (*-* LENGTH 
001914 0000 57 SVTS7 DC A (*-* DATA AREA XC Ke FC ok of ie oe ae ae ake oie ae oi a ak KK ae 2k ke ok aie ok oe ae ok 2k ake a ake ae ade aie he oe he he ae i ok ok of ake af ok oe LAST PAGE IK He oe ae of oe ae ae ae oe ahe ofc ae Ske ae ake ae ade ate ae ae ae ae ake of ake ake afc adc ak afc ote ake oe fe of ake ofc ak ak ade ake ake ae ok ofc ae 
001916 0000 58 SVTS8 DC A (*-* LENGTH 
001918 0000 59 RETSY DC A (*-* 
00191A 60 OVSTR EQU * 
OO191A 6FOD 1918 61 MVH R7,RETSV SAVE REG 7 
0O0191E OF22 62 MVBI THERG,R? NUMBER OF BYTES TO MOVE 
001920 4224 1968 63 MVA INSTR, R2 AREA TO RESTORE 
601924 4124 180E 64 MVWI OPTN1,R1 WHERE TO PUT THE DATA 
001928 2A24 65 MVEN R2) (R1) MOVE IT 
00192A 4724 182A 66 MVWE NUMDY,R7 
00192E 6FE8 0000 67 MVW ARTY £7 
001932 3719 68 SLL HREE,R7 
001934 4124 182E 69 MVWI DEVC1.R1 
001938 c94Oo 70 MVW R1),k1 
00193A 2a24 71 MVFN (R2$- (R41) 
00193c 6908 1908 72 MVW vTs4i,R1 THE FOLLOWING 
001940 6FO8 190A 73 MVW SVTS2>R7 SET UP 
001944 2A24 74 MVFN (82) (R1) IDCB'S 
001946 6908 190C 15 MVW VTS43,R1 pcp, 
O0O194A 6FO08 1908 16 MVW  SVTS4OR7 AND 
00194B 2A24 17 MVEN (82) (R1) THE AREA 
001950 6908 1910 78 MVW vTS5,R1 TO RESTORE 
001954 6F08 1912 79 MVW  SVTS6,R7 THE TEST 
001958 2A24 80 MVFN (82) (R1) PREVIOUSLY 
00195A 6908 1914 81 MVW VTS7,R1 WAS 
00195E 6F08 1916 82 MVW  SVTS8,R7 
001962 2a24 83 MVFN R2) (R1) 
001964 6812 1918 84 B ETSV* 
001968 85 INSTR EQU- * 
001968 000L.0000000000000 86 DC 128A (*-* 
001A68 00000000000000000 87 DC 128A (#-* 
001B68 00000000000000000 88 DC 128A (*-* 
001C68 00000000000000000 89 DC 126A (*-* 
601D68 00000000000000000 90 Dc 128A (*-* 
001E68 00000000000000000 91 DC 128A (*-* 
001F68 00000000000000000 92 DC 128A (*-* 
002068 00000000000000000 93 DC 128A (*-* 
002168 00000000000000000 94 DC 128A (*—* 
002268 00000000000000000 95 DC 128A (*-* 
002368 00000000000000000 96 DC 1288 (*-* 
002468 00000000000000000 97 DC 128A (*-* 
002568 00000000000000000 98 DC 128A (*-* 
002668 00000000000000000 99 DC 128A (*-* 
002768 00000000000000000 #100 DC 128A (*-* 
002868 101 OVLND EQU- * 
002900 102 OVLBT EOU PID+4 
002868 00000000000000000 103 D (OVLBT-OVLND) X00! 
000000 104 END 


O0342C - FRIEND MODULE FOR TEST O4 P/N=4414050 EC=754882 PAGE 01 O342C - FRIEND MODULE FOR TEST 04 P/N=4414050 EC=754882 PAGE O1A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
001900 3 0342C START x*19008 ( DECLARED NAME ATTRIBUTES AND REFERENCES 
UCR OI OR RG IO IC IO” II IR III OI II I i OK kg kK akc ak 
2 : ~ . 0 eR. ea ee Ra 40 a6 a . 
a PREREQUISITES * 2 
7 * 0 * 74 15 77 78 80 81 83 
g : NONE ; ~R2. oe at HER ues peo0lee2) 50 53 
10 OR ROI iO IOI OR IOI io IG I KCI I iI I a a fake ake akc ak ake ate ak ok ak ak oc akc ak : 0 -R7. ABSOLUTE. HEX ee 
11 * * 61 62 66 7 67 67 67 68 73 
12 * a 3c 2k MODIFICATIONS OK * 76 79 82 
13 * * Gy DEVC1 ABSOLUTE. HEX VALUE (0000182E) 
14 * 1. MODIFICATIONS TO SUPPORT SENSOR I/0. * 69 
15 * * 85 INSTR ADDRESS. HEX LOCATION(00001968) IN CSECT(0342C ) LENGTH(1) 
16 FOO OIG I GIR IG IOI IOI I RII dR a aI I gk i afk akc ak ak ak ak akc ake ak ak co oc oe 50 
17 * * 43 NUMDV ABSOLUTE. HEX VALUE (0000182A) 
18 * * & & REA'*S INCORPORATED a eK * 6 
19 * * 42 OPTN1 ABSOLUTE. HEX VALUE (0000180E) 
20 * NONE * 64 
31 * * 102 OVLBT ADDRESS. HEX LOCATION(00002900) IN CSECT(O342C ) LENGTH(1) 
22 [OO OOOO IC OO IO OR Ri OR I i IRR I a ak ilk ak ak ak ak ik ak ak ake ak ak ak ak a 103 
23 * * 101 OVLND ADDRESS. HEX LOCATION (00002868) IN CSECT(0342C ) LENGTH(1) 
24 * x SPECIAL INSTRUCTIONS * * 103 
2> ‘ ae = 60 OVSTR Mago HEX LOCATION(O000191A) IN CSECT(0342C ) LENGTH (1) 
57 * * 3 0342C CSECT. START(00001900) LENGTH (4096) ESDID(0) 
28 OO OOO GIO I II IC IOI IO IORI GOR IOI ROR I I Ik aoa i ack ak akc ak ak 3 
29 * * 4g PID ADDRESS. HEX LOCATION (00001900) IN CSECT(0342C ) LENGTH (2) 
30 * alas E. C. HISTORY * * 102 
31. * * 59 RETSV ADDRESS. HEX LOCATION(00001918) IN CSECT(0342C ) LENGTH (2) 
32 * DATE O6MAY77 DATE 15SEP77 DATE DATE * 61 84 
33 * E.C. 578756 EC. 754882 &E.c. E.C. ‘ 51 SVTS1 ADDRESS. HEX LOCATION (00001908) IN CSECT(0342C ) LENGTH(2) 
35 2 ok oo OR I I OR OR OK OR om RR I I OI I IOr ior ak kc akoik ak ak tok aka akc ak ak oe 52 SVTS2 ADDRESS. HEX LOCATION (O000190A) IN CSECT(O0342C ) LENGTH (2) 
37 ORO I IO FG I I I I II OR i kak ake ai ake ak ak 73 
38 * * 53 SVTS3 ADDRESS. HEX LOCATION(0000190C) IN CSECT (0342C ) LENGTH (2) 
39 * EQUATE TABLE * 75 
uo * x 54 SVTS4 ADDRESS. HEX LOCATION(0000190E) IN CSECT(0342C ) LENGTH (2) 
11 OR KOI RII IG OI IOI I i kok ia aR ak ak a ak 76 
Aole oR ig onan E : ee 55 SVTS5 aaa HEX LOCATION (00001910) IN CSECT(0342C }) LENGTH (2) 
ae ae ea EQU pace 56 SVTS6 apa cnee HEX LOCATION (00001912) IN CSECT (0342C ) LENGTH (2) 
Sodeaa ie ae oo EQU ae ynses meoeeae eoeaeieren 57 SVTS7 ADDRESS. HEX LOCATION (00001914) IN CSECT (0342C ) LENGTH (2) 
Oe 6802 191A ne ue ie ae BRANCH TO PGM START 58 SVTS8 ADDS EOS HEX LOCATION (00001916) IN CSECT(0342C ) LENGTH (2) 
o0 1208 9900 2] SY is) He A =" TRSTRUCTION STREAM START ; 46 THIRY BpsonUees HEX VALUE (00000022) 
09139¢ 9990 22 SVTS3 Dc A ape IDCB TABLE START . 45 THREE EBSCeUre: HEX VALUE (00000003) 
001910 Q000 55 SVTS5 DC A (¥*-% DCB TABLE START 
001912 0000 56 SVTS6 DC A (*-* LENGTH 
001914 9000 of SvTS7 D¢ A *-# DATA AREA PEGI GIGCI BIC a BI io ai a I Gi ce aa iaiggcaor LAST PAGE GOGO OO ii i ioiaio a RO ICO IOI i tok io dict ik 
001918 0000 59 RETSV DC A (*-* 
OO0191A 60 OVSTR EQU * 
O0191A 6FQD 1918 61 MVW R7,RETSV SAVE REG 7 
OO191E OF22 62 MVBI THIRG, RT NUMBER OF BYTES TO MOVE 7 
001920 4224 1968 63 MVA INSTR, R2 AREA TO RESTORE 
901938 3ad4 e3 MVEN (R2) 0 (EA) MOVE IT OO 
00192A 4724 182A 66 MVWI NUMDYV,R7 
QO07192E 6FE8 0000 67 MVW Ane R7 
001932 3719 68 SLL HREE, R7 
001934 4124 182E 69 MVWI DEVC1,Rt 
001938 C940 70 MVW R1),81 
O00193A 2A24 71 MVFN R2), (R1) 
00193C 6908 1908 72 MVW vTS{,R1 THE FOLLOWING 
001940 6F08 190A 73 MVW SVTS2,R7 SET UP 
001944 2A24 74 MVFN R2) , (R1) IDCB'S, 
001946 6908 190C 75 MVW vVTS43,R1 DCBtS, 
QOO194A O6FOB 190E 76 MVW SVTS4,R7 AND 
OOT94E 2A24 TT MVFN R2) , (R1) THE AREA 
001950 6908 1910 78 NVW vTs5,R1 TO RESTORE 
001954 6F08 1912 19 MVW SVTS6,R7 THE TEST 
001958 2A24 80 MVFN (R2), (R1) PREVIOUSLY 
00195A. 6908 1914 81 MVW SVTS7,R1 WAS 
OO0195E 6F08 1916 82 MVW SVTS8,R7 
001962 2A24 83 MVFN AEZ) (R1) 
001964 6812 1918 8g B ETS{* 
001968 85 INSTR EQU * 
001968 00000000000000000 86 DC 128A (*-* 
OOTA68 00000000000000000 87 DC 128A (*-* 
001B68 00000000000000000 88 DC 128A (*-* 
001C68 00000000000000000 89 DC 128A (*-* 
001D68 00000000000000000 90 DC 128A (*-* 
001F68 00000000000000000 91 DC 128A (*-* 
001F68 00000000000000000 92 DC 128A (*-* 
002068 00000000000000000 93 DC 128A (*-* 
002168 00000000000000000 o4 DC 128A (*-* 
002268 00000000000000000 95 DC 128A (*-* 
002368 00000000000000000 96 DC 128A (4#-* 
002468 00000000000000000 97 DC 128A (*-* 
002568 00000000000000000 98 DC 128A (*-* 
002668 00000000000000000 99 DC 128A (*-* 
002768 00000000000000000 100 DC 128A (*-* 
002868 101 OVLND EQU * 
002900 102 OVLBT EQU PID+4096 
002868 00000000000000000 103 DC (OVLBT-OVLND) x00! 
000000 105 END 


O0342D - FRIEND MODULE FOR TEST 05 P/N=4414051 EC=754882 PAGE 01 0342D - FRIEND MODULE FOR TEST 05 P/N=4414051 EC=754882 PAGE O1A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
001900 3 0342D START xX*1900! DECLARED NAME ATTRIBUTES AND REFERENCES 
Uy He He he he 3 3 ee he ae 3h 2 eae af ie ah oe ik ae oc he oi fe ake he fe fe 2 ae oe fe ok ae fe cafe 2 fe ate ae of ate aye ak aie afe af ae afc ake ak ae ake ake af ate af afe ofc afc akc afc af ae afc ate ate ak akc oe 
5 * x 0 -R1. ABSOLUTE. HEX VALUE (00000001) 
6 * ee a PREREQUISITES ek K * 64 65 69 0 70 70 70 71 72 
7 * * 75 76 77 78 80 81 83 
8 * NONE + Ro ABSOLUTE, HEX, VALUE (00000092) a ~ 
10 2K HC ake ie he Xe ae ae af ofc ke af ae he ake ae ok ae ake ie fe ak ake 2k oe af abe ade ak akc oft aft afc oe afc a afk aft fe of afc af afc ae ofc ak ake af afc ae ofc afk ake af ale ale of ate afc ae ok afc ake afc ake ok ofc oe ake eR4. ABSOLUTE. HEX VALUE (00000004) 
11 * * 74 
12 * ees MODIFICATIONS OK * We ABSOLUTE. HEX VALUE (90000007) 
13 * * 61 62 66 7 67 67 67 68 73 
14 * 1. MODIFICATIONS TO SUPPORT SENSOR I/O. xx 79 8 
15 * * 4 y DEVC1 ABSOLUTE. HEX VALUE (0000182) 
16 ae He fe oe 2 fe ake fe he 3h ae ah fe ae he ake ae aK ake oe ak aie ok af ofc ak ok ake ofc ofc afc ok ate ofc ae oe fe af akc ake ofc ae 2k ake ak ofc ake ake ake ake abe ofe ote of ake ake ake ake ake ote ake ofc ok ae ae ake afc ake ake fe ok 69 
17 * * 85 INSTR ADDRESS. HEX LOCATION (00001968) IN CSECT(O342D ) LENGTH(1) 
18 * CK REA'S INCORPORATED OK K * 5 6 
19 * * 43 NUMDV ABSOLUTE. HEX VALUE (0000182A) 
20 * NONE * 
21 * * 42 OPTN1 ABSOLUTE. HEX VALUE (0000180E) 
DD He He eK ae he ic He he ae ae 2 2 ae 2K fe a fc ae oe oe ie ke fe ate oe ae he ae a fe fe ate ah af aie ae ae ok fe ae ae ake ode ake ke ae ok oe oe ae aie ak afc ofc ofc afc ake ofc ae af ate af ake oe ok ok 4 
33 x 102 OVLBT ADDRESS. HEX LOCATION(00002900) IN CSECT(0342D ) LENGTH(1) 
24 x Fok SPECIAL INSTRUCTIONS OOK * 103 
25 * aes * 101 OVLND ADDRESS. HEX LOCATION(00002868) IN CSECT(0342D ) LENGTH(1) 
37 * x 60 OVSTR ADDRESS. HEX LOCATION(0000191A) IN CSECT(0342D ) LENGTH(1) 
28 He Oe He oe fe he fe fe 2c he ae ae ate a sie fe ae ake af te hc ake aie ae oie ake ake ae ak ate afc ake kc ake ale ate af af abe ae ae afc aie afc ake afc 2k ale ae afc ae ae fe afc afc ofc ake ake ake ade ake afc ofc abe ake ate ake ake afk kc af 49a 
29 * x 3 0342D CSECT. START(00001900) LENGTH(4096) ESDID(0) 
30 * 40k E, C. HISTORY 4% * 3 
31 * * 48 PID ADDRESS. HEX LOCATION (00001900) IN CSECT(O342D ) LENGTH(2) 
32 * DATE O6MAY77 DATE 15SEP77 DATE DATE * 102 
33 + E.C. 578756 §.C. 754882 #££E.C. E.C. : 59 RETSV ADDRESS. | HEX LOCATION (00001918) IN CSECT(0342D ) LENGTH(2) 
35 FAR IC OI IG OO IG GOI I iG I kk ak kk i 2 afc ak ak ak 2k a ak ak 51 SVTS1 ADDRESS. HEX LOCATION (00001908) IN CSECT(0342D ) LENGTH (2) 
CWE DES Le TLS ttt es fet StS SSS STS SS Se SSL SSS PST SSS SSL SSS SL SS SSS SSS SSS S22 2 2 2 2 2 8 28 3 72 
38 * x 52 SVTS2 ADDRESS. HEX LOCATION (0000190A) IN CSECT(0342D ) LENGTH(2) 
39 * EQUATE TABLE * 73 
40 * x 53 SVTS3 ADDRESS. HEX LOCATION(0000190C) IN CSECT(0342D ) LENGTH (2) 
Ub 2 he ae oh 2 i 2 Ne 2 ok 2 2k ak ake 2k af ok 2c oh 2 fe a oe fe afc a ak a ie 2c ofc fe fe ake fe of ac af of afc ake 2c af aie of ok 2 ate aie oe afk abe ake ae afc afc ake kk af afc ae akc afc ac af ae ale of ak of 716 
00 180 42 OPTNt EQU xX" 1808" 55 SVTSS ADDRESS, HEX LOCATION (00001910) IN CSECT(0342D ) LENGTH(2) 
E DEVC1 FOU <X* E Ss. x ATION IN CSECT(0342D LENGTH 
00182: 4 DEVC1 Eoy x 182Et ‘ 56 SYTS6 ADDRE HEX LOC 00001912) IN 342 2 
990022 ot 46 THIRG EQU eee eee 2: eee 57 SVTS7 ADDRESS. HEX LOCATION(00001914) IN CSECT(0342D ) LENGTH(2) 
091902 6802 191A 49 OVLST B OYSTER) BRANCH TO PGM START 58 SVTSB ADDRESS. HEX LOCATION (00001916) IN CSECT(O0342D ) LENGTH(2) 
001908 0000 D4 SvIs1 He A 2 ; INSTRUCTION STREAM START 46 THIRG ABSOLUTE. HEX VALUE (00000022) 
90 190¢ 9009 53 SvTS3 DC A ae IDCB TABLE START 45 THREE ABSOLUTE. HEX VALUE (00000003) 
001910 0000 55 SvtTs5 DC A (*- DCB TABLE START 
001912 0000 56 SVTS6 DC A (*-* LENGTH 
podete Reap ee auitee ee s ieee a HE HC AE AC OKC ea ie aie he ie ae age ate ade ok ake ate ode ake ae ake af ake fe ake afc ate ale ae ae ae oe ake ofc ake ake ate ale ake ate ae ale afc ate LAST PAGE  % % % 26 x 3 2 oe Me of fe he he oe He eae ae fe ff ae ae fe ake of 2 ae ae akc afc ake ade afc ake ake ake ale ae ae ate ak ae ae ake ake ae ae 
001918 0000 59 RETSV fC A (¥-* 
00191A 60 OVSTR EQU * 
00191A 6FOD 1918 61 MVW R7,RETSV SAVE REG 7 
00191E OF22 62 MVBI THERYG,R7 NUMBER OF BYTES TO MOVE 
001920 4224 1968 63 MVA INSTR, R2 AREA TO RESTORE 
BB 1338 Sn2e 1802 ge GBF, oe iil 
00192A 4724 182A 66 MVWI ihaby R7 
00192E 6FE8 0000 67 MVW fF?) k7 
001932 3719 68 SLL HREE, R7 
001934 4124 182E 69 MVWI DEVC1-R4 
001938 C940 70 MVW R1),h1 
00193A 2A24 71 MVFN (R2)- (R1) 
00193C 6908 1908 72 MVW vTSi,R1 THE FOLLOWING 
001940 6F08 190A 73 MVW  SVTS2/R7 SET UP 
001944 4424 1968 74 MVA INSTR? RU INSTRUCTIONS, 
001948 2A24 715 MVFN $82) (R1) IDCBTS 
00194A 6908 190C 76 MVW vT§ 3, R1 pcp'§, 
O0O194E 2A24 V7 MVEN §R2) (R1) THE AREA 
001950 6908 1910 78 MVW vT55,R1 TO RESTORE 
001954 6F08 1912 79 MVW SVTS6,R7 THE TEST 
001958 2A24 80 MVFN §R2) (R1) PREV LOUSLY 
00195A 6908 1914 81 MVW vT57,R1 WAS 
00195E 6F08 1916 82 MVW SVTS8>RT7 
001962 2A24 83 MVFN (R2) (R1) 
001964 6812 1918 84 B ETS(* 
001968 85 INSTR EQU * 
001968 00000000000000000 86 D 128A (*-* 
001A68 00000000000000000 87 DC 128A (*-* 
001B68 00000000000000000 88 DC 128A (*-* 
001C68 00000000000000000 89 DC 128A (*-* 
001D68 00000000000000000 90 DC 128A (*-* 
001F68 00000000000000000 94 DC 128A (*-* 
001F68 00000000000000000 92 DC 128A (*-* 
002068 00000000000000000 93 DC 128A (*-* 
002168 00000000000000000 94 DC 12BA (*-* 
002268 00000000000000000 95 DC 128A (*-* 
002368 00000000000000000 96 DC 128A (*-* 
002468 00000000000000000 97 DC 128A (*-* 
002568 00000000000000000 98 DC 128A (*-* 
002668 00000000000000000 99 DC 128A (*-* 
002768 00000000000000000 #100 DC 128A (*-* 
002868 101 OVLND EQU- * 
002900 102 OVLBT EOU PID+4096 
002868 00000000000000000 #103 D (OVLBT-OVLND) X'00' 
000600 104 END 


O342E - FRIEND MODULE FOR TEST 06 P/N=4414052 EC=754882 PAGE 01 O342E - FRIEND MODULE FOR TEST 06 P/N=4414052 EC=754882 PAGE O1A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
001900 3 O342E START x'1900! DECLARED NANE ATTRIBUTES AND REFERENCES 
TU SSS PFET SES TS STS SES TS ST SSE SCT SST SS SESS S SS TSS PSSST SSS SS LSPS TESS STS SSeS TSS Ss 
2 * ee ERE ITE rn x : ae Men ee seca? iad (facie | 70 70 71 72 
PREREQUIS Ss * 
7 * Q * 74 75 78 80 61 83 
8 * NONE : ~R2. ABSOLUTE, HEX VALUE (90000002) a 
10 32k to ak kkk a ake afr ake a keke aie aka ok ke ak gk a ake ak ake akc ake keke ae te oe ake a a ak ae fe ae ae aie a ac a ate abe aie ake age ake ae ake ak te akc ak ake fe ax 0 -R7. ABSOLOTE. HEX ee ee 
11 * ' * 61 62 7 67 67 67 68 73 
12 * ek MODIFICATIONS eK * 76 19 82 
13 * * 4 DEVC1 ABSOLUTE. HEX VALUE (0000182E) 
14 * 1. MODIFICATIONS TO SUPPORT SENSOR I/O. * 69 
15 * ¥ 85 INSTR ADDRESS, HEK LOCATION (00001968) IN CSECT(0342E ) LENGTH (1) 
916 ae ae ae a oe he 2 ake a 2K 2 ae a ec a a 2K a a ae afe oa fe fe ae ae ake a 2 a af ak ae af ae ae i af a8 af ak ae ade oe ae fe ae fe af af a ae ak ae ae ae ate ae fe af afc afc ae ate ake 50 63 
17 * # 43 NUMDV ABSOLUTE. HEX VALUE (0000182A) 
18 x He ok REA'*S INCORPORATED * eK # 66 
19 : eae . 42 OPTN1 ABSOLUTE. HEX VALUE (0000180E) 
E 
71 * * 102 OVLBT ADDRESS. HEX LOCATION(00002900) IN. CSECT(0342E ) LENGTH (1) 
DD AH he he Ae a ae ee ae a 2 a fe 2k ae fe ae aie ae ic 2h he ah ai 2 ah 2 fe ae ae he ae a oe ate 8c a 2K a fe ae ah ae ee a fc 2c hc ake ke ae ak af oe ake ke he ak ake af ake afc af ke fe 103 
33 * 101 OVLND ADDRESS. HEX LOCATION (00002868) IN CSECT(0342E ) LENGTH(1) 
24 * kk SPECIAL INSTRUCTIONS eH * 103 
25 eee : 60 OVSTR ADDRESS. HEX LOCATION(0000191A) IN CSECT(0342E ) LENGTH (1) 
27 * * 3 0342E CSECT. START (00001900) LENGTH(4096) ESDID(0) 
DB HR aK ae a ake ak ai ae fe 2k ie ah he ae 2 ae 2 2K a eo 2h ee 2 ae ae of 2 fe ake afc 2c 2c fe fe 9 ake ake fe af ae af 2c ade ae a ak af ae afc ofc ak ae ake ak age af af ale of af ake fe ok 3 
29 * * 4g PID ADDRESS. HEX LOCATION (00001900) IN CSECT(0342E ) LENGTH(2) 
30 * kK E. C. HISTORY #0 * 102 
34 * * 59 RETSV ADDRESS. HEX LOCATION (00001918) IN CSECT (0342E ) LENGTH (2) 
32 * DATE O6MAY77 DATE 15SEP77 DATE DATE * 61 84 
33 : E.C. 578756 E.C. 754882 E.C. E.C. 51 SVTS1 ADDRESS. HEX LOCATION (00001908) IN CSECT(0342E ) LENGTH (2) 
35 RO RI GI OR OI ROI OI ROI I IOI ROK IR RR ik i 080 ok ai ak ak 52 SVTS2 ADDRESS. HEX LOCATION (0000190A) IN CSECT(O342E ) LENGTH (2) 
37 3 ok ok iio i tok iokiokoioiok io iok iii koi kok i ia k kk aii ak ak ak age ak ike ea ake ake ake ae ae ake a 73 
38 * * 53 SVTS3 ADDRESS. HEX LOCATION(0000190C) IN CSECT (0342E ) LENGTH (2) 
39 * EQUATE TABLE * 75 
uo * * 54 SVTS4 ADDRESS. HEX LOCATION (0000190E£) IN CSECT(0342E ) LENGTH (2) 
pe He 2 a ke ake ee 2 hee 2 2 2K a OK oe ke fe a 2 hc a 2c ic 2 i fe ah ae ae ae Ke a oR 2 i ee ae oe oe a aie ake fe fe 2 ak ie hc a ate 2k ate afc ate ate afc ake ake ale fc af ae ae ake a ae 16 
O0180E 42 OPTN1 EQU X'180E8 55 SVTS5 ADDRESS. HEX LOCATION (00001910) IN CSECT(0342E ) LENGTH (2) 
00182A 43 NUMDV EOU X'182A° 78 
00182E G4 DEVC1 EQU X'182R! 56 SVTS6 ADDRESS. HEX LOCATION (00001912) IN CSECT(0342E ) LENGTH (2) 
000003 4S THREE EOU 3 3 79 
000022 46 THIRYG £QU 34 34 57 SVTS7 ADDRESS. HEX LOCATION (00001914) IN CSECT(0342E ) LENGTH (2) 
001900 342R 48 PID D X'342R' PROGRAM IDENTIFIER 81 
001902 6802 191A 49 OVLST B OVSTR BRANCH TO PGM START 58 SVTS8 ADDRESS. HEX LOCATION (00001916) IN CSECT(0342E ) LENGTH(2) 
001906 1968 50 SINST DC A (INSTR) 
001908 0000 51 SVTS1 DC A (%~ * INSTRUCTION STREAM START 46 THIRY ABSOLUTE. HEX VALUE (00000022) 
00190A 0000 52 SVTS2 DC A (*-% LENGTH 62 
00190C 0000 53 svTs3 DC A (*-* IDCB TABLE START 45 THREE ABSOLUTE. HEX VALUE(00000003) 
00190E 0000 54 SVTS4 DC A (*-* LENGTH 68 
991310 0999 2? SVTSS DC A *- : DCB TABLE START 
oo1e46 ttf 28 svaes ne ; ae HK Chern BR fe 3K Ce ae oe fe 2 ae ake ae ake af ae ak ai ae abe af ae ae ae fe ae ate oe ai fc a ac ok ate ofc ae ale ae aie age ake ofc ake ac afc 2c LAST PAGE  % % % 2 He 2 2 2 he oe ae ae he he He oe fe aK a ke ake ke 2 aK a tek ok oe ok te te oe eke ae ote akc ake ake ak 
001916 0000 58 SVTS8 DC A (*-* LENGTH 
001918 0000 59 RETSV DC A (*-* 
00191A 60 OVSTR EQU * 
00191A 6FOD 1918 61  MVW R7,RETSV SAVE REG 7 
00191E OF22 62 MVBI THIRG,R7 NUMBER OF BYTES TO MOVE 
001920 4224 1968 63 MVA INSTR, R2 AREA TO RESTORE 
001924 4124 180E 64 MVWI OPTN1,R1 WHERE TO PUT THE DATA 
001928 2A24 65 MVFN (R2) (R1) MOVE IT 
00192A 4724 182A 66 MVWI NUMDY,R7 
00192F 6FE8 0000 67 MVW (87) R7 
001932 3719 68 SLL HREE,R7 
001934 4124 182E 69 MVWI DEVC1,R1 
001938 c940 70 MVW R1),81 
00193A 2A24 71 MVFN R2), (R1) 
00193C 6908 1908 72 MVW vTS4,R1 THE FOLLOWING 
001940 6F08 190A 73 MVW SVTS2,R7 SET UP 
001944 2aA24 74 MVFN §R2) (R1) IDCBIS, 
001946 6908 190C 715 MV W VTS3,R1 DCBtS, 
00194A 6F08 1908 76 MVW SVTS4,R7 AND 
OO194E 2A24 17 MVFN (82) (R1) THE AREA 
001950 6908 1910 78 MVW vTS5,R1 TO RESTORE 
001954 6F08 1912 79 MVW SVTS6,R7 THE TEST 
001958 2A24 80 MVFN 682) (R1) PREVIOUSLY 
00195A. 6908 1914 81 MVW vVT57,R1 WAS 
00195E 6F08 1916 82 MVW SVTS8,R7 
001962 2A24 83 MVFN (R2) (R1) 
001964 6812 1918 84 B RETS V* 
001968 85 INSTR EQU * 
001968 00000000000000000 86 DC 128A (*-* 
001268 00000000000000000 87 pc 128A (*-* 
001868 00000000000000000 88 DC 128A (*-* 
001C68 00000000000000000 89 DC 128A (*-* 
001D68 00000000000000000 90 DC 128A (*-* 
001E68 00000000000000000 91 DC 128A (*-* 
OO1F68 00000000000000000 92 DC 128A (*~-* 
002068 00000000000000000 93 DC 128A (*-* 
002168 00000000000000000 94 DC 128A (*-* 
002268 00000000000000000 95 DC 128A (*-* 
002368 00000000000000000 96 DC 128A (*~* 
002468 00000000000000000 97 DC 128A (*-* 
002568 00000000000000000 98 DC 128A (*-* 
002668 00000000000000000 99 DC 128A (*-* , 
002768 00000000000000000 100 DC 128A (*-* 
002868 101 OVLND EQU * 
002900 102 OVLBT EQU PID+4096 
062868 00000000000000000 103 Dc (OVLBT-OVLND) X*008 
000000 104 END 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
001900 3 O342F START X'1900° DECLARED NAME ATTRIBUTES AND REFERENCES 
TP SSS PSS EES SES ES SEES TPE TET ESTE STS SSS ESTES ETE ST SES STE SS TTS TS TS SS SS ES TS SS FS 
5 * * 0 .R1. ABSOLUTE, HEX VALUE (00000001) 
6 * 4 ok PREREQUISITES 4 * 64 65 g 0 70 70 70 71 72 
7 * * 74 75 78 80 81 83 
8 x NONE * .R2. ABSOLUTE. HEX VALUE (00000002) 
9 * * 63 65 4 77 80 83 
1Q he a a ee he ea ek he aK eK a ah a Me he Oe ake ae 2 a ee 2 Ke eK a a a ee Oe eae a ae a ee i a ea a ee ke a OK KK 0 Ri. ABSOLUTE. HEX be 
11 * * 61 62 6 7 67 67 67 68 73 
12 * a & MODIFICATIONS %e kk * 76 719 82 
13 * * 44 DEVC1 ABSOLUTE. HEX VALUE (00001828) 
14 * 1, MODIFICATIONS TO SUPPORT SENSOR I/O. * 6 
15 * * 85 INSTR ADDRESS. HEX LOCATION (00001968) IN CSECT(0342F ) LENGTH(1) 
16 PES SS SST SESS SSE CSS SSCS ESS SSPE SSS SSS SSE SPSS SSS SPL SSS SL SS SSS LSS ES-ES S55 2 SE FY 50 6 
17 * * 43 NUMDV ABSOLUTE. HEX VALUE (0000182A) 
18 * km REA'S INCORPORATED + * 66 
19 * er ¢ 42 OPTN1 ABSOLUTE. HEX VALUE (0000180E) 
21 * * 102 OVLBT ADDRESS. HEX LOCATION(00002900) IN CSECT(0342F ) LENGTH(1) 
22 PS SSS ELS S SLPS SS SSL S SSS SSS SSE SESS SSS STS SST SETS SSS SESS SESS PS SSPE STS SESS SES FF | 103 
23 * * 101 OVLND ADDRESS. HEX LOCATION(00002868) IN CSECT(O342F ) LENGTH(1) 
24 * eK SPECIAL INSTRUCTIONS aK * 103 
25 * cous * 60 OVSTR ADDRESS. HEX LOCATION(0000191A) IN CSECT(0342F ) LENGTH(1) 
27 * * 3 0342F CSECT. START(00001900) LENGTH(4096) ESDID(0) 
28 PSPSPS SLL SSCS SSS SSL ESSE SE SESE SSS SSSESLSESSL SSS LSSSESSSSSSSSLS SSS SES ES SSL ST SSS SF | 3 
29 * * 4s PID ADDRESS. HEX LOCATION (00001900) IN CSECT(O342F ) LENGTH (2) 
30 * 440 E. C. HISTORY 14K * 102 
31 * * 59 RETSV ADDRESS. HEX LOCATION (00001918) IN CSECT (0342F ) LENGTH (2) 
32 * DATE O6MAYTT7 DATE 15SEP77 DATE DATE * 61 84 
33 : E.C. 578756 E.C. 754882 E.C. E.C. 6 51 SvVTS1 eile HEX LOCATION (00001908) IN CSECT (O342F ) LENGTH (2) 
35 PS SSP SES SSS SS SSS SSS SSE S SES SSS SSS SSE SS SSS SESS SSS SSS SSSES SSL SSES SES SSIES ES S 52 SVTS2 ADDRESS. HEX LOCATION (0000190A) IN CSECT (0342F ) LENGTH (2) 
37 PSeS SSS LS SSPE SSEL ES SSS SL SS SESS SS SSS SSS SSS SESS SESE SES SSL SES SPSS ESF SSS SES SS SF 7 
38 x * 53 SVTS3 ADDRESS. HEX LOCATION(0000190C) IN CSECT(0342F ) LENGTH(2) 
39 * EQUATE TABLE * 75 
RO * * 54 SVTS4 ADDRESS. HEX LOCATION(0000190E) IN CSECT(0342F ) LENGTH(2) 
Uh Ye he i 2h 2h oe 2h ae 2 ae 2K a 2K a aie 2 2 ae ae 2c 2k he 2 2c a 2 Ke fe ie fe 2 2k 2c af 2 oe fc ake kc a cae ake 2h af kc fc cic ac aye ac akc of ok ak 2 oe ak ak 2k a ak ak ocak 2k 2 2 76 
OO180E 42 OPTNT EQU X'180E® 55 SVTS5 ADDRESS. HEX LOCATION (00001910) IN CSECT (O342F ) LENGTH (2) 
00182A 43 NUMDV EOU X'182A° 78 
001825 4a DEVC1 EOU X'182E! 56 SVTS6 ADDRESS. HEX LOCATION(00001912) IN CSECT(0342F ) LENGTH(2) 
000003 45 THREE EOU 3 3 79 
000022 46 THIR& EOU 34 34 57 SVTS7 ADDRESS. HEX LOCATION (00001914) IN CSECT (0342F ) LENGTH (2) 
001900 342F 48 PID D X'342F! PROGRAM IDENTIFIER g 
001902 6802 191A 49 OVLST B OVSTR BRANCH TO PGM START 58 SVTS8 ADDRESS. HEX LOCATION (00001916) IN CSECT(0342F ) LENGTH (2) 
001906 1968 50 SINST Dc A (INSTR) 
001908 0000 51 SVTS1 DC A (¥— * INSTRUCTION STREAM START 46 THIRG ABSOLUTE. HEX VALUE (00000022) 
00190A 0000 52 SVTS2 DC A *-* LENGTH 62 
00190c 0000 53 svTs3 DC A (*-* IDCB TABLE START 45 THREE ABSOLUTE. HEX VALUE (00000003) 
OO190E 0000 54 svTs4 DC A (*-* LENGTH | 68 
001910 Q000 55 svTss DC A (*— * DCB TABLE START ; 
001912 0000 56 SVTS6 DC A (*-* LENGTH 
001914 0000 57 SVTS7 pc A (*-* DATA AREA 22 eS tee eer eLe see SSS SSL SS SESS SS SSS SESS SSS ES S LAST PAGE PEL SS SSS SSS LSS SSE SS LESS SSS SSS SSS SSeS SSeS SSS SSeS SS 
001916 0000 58 svTss DC A (*—* LENGTH 
001918 0000 59 RETSV DC A (*—* 
00191A 60 OVSTR EQU- * 
00191A 6FOD 1918 61 “" MVW ORT,RETSV SAVE REG 7 
OOTSTIE OF22 62 MVBI THERG, RT NUMBER OF BYTES TO MOVE 
001920 4224 1968 63 MVA  INSTR,R2 AREA TO RESTORE 
001924 4424 180E 64 MVWI OPTN1,R1 WHERE TO PUT THE DATA 
001928 2A24 65 MVFN (R2) (R1) MOVE 
00192A 4724 182A 66 MVWI NOMDY,R7 
00192E 6FE8 0000 67 MVW 87) 87 
001932 3719 68 SLL HREE,R7 
001934 4124 182E 69 MVWI DEVC1,R1 
001938 c94O0 70 MVW R1),R1 
00193A 2A24 71 MVFN (R2$¢ (R1) 
00193c 6908 1908 72 MVW vTsi,R1 THE FOLLOWING 
001946 6F08 190A 73 MVW SVTS2-R7 SET UP 
001944 2Z2A24 74 MVFN §82) (R1) IDCBs 
001946 6908 190c 75 MVW vTS3,R1 pcp §, 
00194A 6F08 190E 16 MVW SVTSUCRT AND 
OO0194UB 2A24 17 MVFN acel (R1) THE AREA 
001950 6908 1910 78 MVW vTs§,R1 TO RESTORE 
001954 6FO08 1912 719 MVW SVTS6,R7 THE TEST 
001958 2A24 80 MVFN §R2) (R1) PREVIOUSLY 
00195A- 6908 1914 81 MVW VTS4 ,R1 WAS 
00195E 6F08 1916 82 MVN  SVTS8,R7 
001962 2A24 83 MVFN (R2) (R1) 
001964 6812 1918 84 B ETS (* 
001968 85 INSTR EQU- * 
001968 00000000000000000 86 DC 128A (*-* 
001A68 00000000000000000 87 DC 128A (*-* 
001B68 00000000000000000 88 DC 128A (*-* 
001C68 00000000000000000 89 DC 128A (*-* 
001D68 00000000000000000 90 DC 128A (*-* 
001E68 00000000000000000 91 DC 128A (*-* 
001F68 00000000000000000 92 DC 128A (*-* 
002068 00000000000006000 93 DC 128A (*-* 
002168 000C0000000000000 94 DC 128A (*-* 
002268 00000000000000600 95 DC 128A (*-* 
002368 00000000000000000 96 DC 128A (*-* 
002468 00000000000000000 97 DC 128A (*-* 
002568 00000000000000000 98 DC 128A (*-* 
002668 00000000000000000 99 DC 128A (*-* 
002768 00000000000000000 100 DC 128A (*-* 
002868 101 OVLND FOU. * 
002900 102 OVLBT EQU  PID+4096 
002868 00000000000000000 103 DC (OVLBT—-OVLND) X'00° 
000000 104 END 
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ATTRIBUTES AND REFERENCES 


PAGE OSA 
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DECLARED NAME DECLARED NAME 


0 -RO. ABSOLUTE. HEX VALUE (00000000) 237 
151 152 153 154 155 163 274 275 276 BOT CNVA2 ADDRESS. HEX LOCATION (00001D50) IN CSECT(OA8E8 ) LENGTH (1) 
334 346 355 356 357 366 368 370 371 520 525 
375 376 377 381 382 383 383 386 389 532 CNVA3 ADDRESS. HEX LOCATION(00001D5C) IN CSECT(OA8E8 ) LENGTH (1) 
391 392 392 393 396 397 400 401 402 529 539 59 
422 427 4 30 432 435 44g 454 460 461 540 CNVA4 ADDRESS. HEX LOCATION(00001D70) IN CSECT (OA8E8 ) LENGTH(1) 
466 475 476 481 481 48 1 507 508 513 536 
516 518 519 526 530 541 543 548 549 542 CNVAS ADDRESS. HEX LOCATION (00001D72) IN CSECT(OASES8 ) LENGTH (1) 
554 557 558 562 563 570 571 572 575 531 598 
Bae 212 280 284 585 585 587 591 592 390 COMCD ADDRESS. HEX LOCATION (O00001BA8) IN CSECT(OA8E8 ) LENGTH(1) 
0 -R1. ABSOLUTE. HEX VALUE (90000001) 222 CONAI ADDRESS. HEX LOCATION(000019DD) IN CSECT (OA8E8 ) LENGTH (1) 
262 263 263 263 265 265 265 268 269 47 
270 271 271 272 273 273 289 292 294 211 CON1 ADDRESS. HEX LOCATION (000019CA) IN CSECT(OA8E8 ) LENGTH (2) 
300 302 343 344 345 345 503 
0 -R2. ABSOLUTE. HEX VALUE {0000900 2) _ 215 CON2 ADDRESS. HEX LOCATION(000019D2) IN CSECT(OA8E8 ) LENGTH (2) 
263 264 265 266 267 290 323 328 333 500 
338 423 424 426 430 431 450 451 453 75 CPUTP ABSOLUTE. HEX VALUE (00000232) 
460 465 509 510 512 516 517 413 498 
0 -R3. ABSOLUTE. HEX VALE $90000003) 244 CVADR ADDRESS. HEX LOCATION(00001A00) IN CSECT (OA8E8 ) LENGTH (2) 
162 166 322 325 340 425 426 427 428 278 
452 493 454 &55 456 457 458 511 512 245 CVAD1 ADDRESS. HEX LOCATION (00001A02) IN CSECT(OA8E8 ) LENGTH (2) 
0 -R4. ABSOLUTE. HEX VRLTE (00000004) 227 CVTCD ADDRESS. HEX LOCATION (000019E2) IN CSECT(OAS8E8 ) LENGTH(1) 
280 285 325 327 330 332 333 335 335 595 
335 335 336 547 548 552 554 556 557 594 CVTDG ADDRESS. HEX LOCATION(00001E1A) IN CSECT (OA8E8 ) LENGTH (1) 
583 584 585 605 606 606 607 608 612 240 
619 590 CVTZO ADDRESS. HEX LOCATION(OQOO01EOE) IN CSECT(OA8E8 ) LENGTH (1) 
0 eRDe ABSOLUTE. HEX VALUE (90000005) 239 
277 298 408 409 41 412 416 443 444 226 CVOCD ADDRESS. HEX LOCATION(000019E1) IN CSECT (OAS8E8 ) LENGTH (1) 
446 Gy7 479 481 500 503 505 506 609 591 
610 611 612 616 618 405 DELAY ADDRESS. HEX LOCATION(00001BDA) IN CSECT(OA8E8 ) LENGTH (1) 
0 -R6. ABSOLUTE, HEX YALU E (90000006) 234 
ooh 398 399 576 577 578 613 614 617 224 DELCT ADDRESS. HEX LOCATION(000019DF) IN CSECT(OA8E8 ) LENGTH (1) 
0 ~R7. ABSOLUTE. HEX VALUE (00000007) 92 DEVC1 ABSOLUTE. HEX VALUE(0000182E) 
159 167 179 181 187 188 190 192 193 151 
261 278 281 284 286 288 307 314 321 625 DHSAV ADDRESS. HEX LOCATION (00001F68) IN CSECT(OA8E8 )} LENGTH (2) 
329 339 341 348 350 357 359 361 362 605 61 
363 364 365 371 372 373 374 375 376 183 DLADR ADDRESS. HEX LOCATION(0000198C) IN CSECT (OA8E8 ) LENGTH (1) 
395 396 400 401 406 410 G14 415 416 428 51 
419 421 429 437 444 445 459 463 470 418 DLAY1 ADDRESS. HEX LOCATION(00001C00) IN CSECT(OA8E8 ) LENGTH (1) 
477 480 482 485 490 494 496 497 505 414 
515 522 528 533 535 537 541 546 549 420 DLAY2 ADDRESS. HEX LOCATION (00001C04) IN CSECT (OA8E8 ) LENGTH (1) 
550 551 553 555 564 571 574 575 579 G17 
580 581 600 604 615 616 184 DLCNT ADDRESS. HEX LOCATION(00001994) IN CSECT (OA8E8 ) LENGTH (2) 
255 ALBRT ADDRESS. HEX LOCATION (00001A14) IN CSECT (OA8ES8 ) LENGTH (1) 179 G21 42 
413 498 180 DLIST ADDRESS. HEX LOCATION(0000198E) IN CSECT(OASES8 ) LENGTH (2) 
82 BADCC ABSOLUTE. HEX VALUE(0000181C) ; 181 
159 658 DLMSG ADDRESS. HEX LOCATION (OOOO1EAA) IN CSECT(OA8E8 ) LENGTH (2) 
225 BASAD ADDRESS. HEX LOCATION(000019E0) IN CSECT (OA8E8 ) LENGTH (1) . 406 
267 563 592 596 179 DLNST ADDRESS. HEX LOCATION(0000198A) IN CSECT (OA8E8 ) LENGTH (4) 
131 BASOF ABSOLUTE. HEX VALUE (QOQOOOFOO) 183 24 51 
264 751 DMSGL ADDRESS. HEX LOCATION(O0O001FEE) IN CSECT(OA8ES8 ) LENGTH (32) 
158 CCCHK ADDRESS. HEX EOCAT TON (On Cot? 5e IN CSECT(OA8E8 ) LENGTH(4) 658 
161 373 37 51 52 578 203 DTCSS ADDRESS. HEX LOCATION (000019BC) IN CSECT(OA8E8 ) LENGTH (2) 
161 CCDCP ABSOLUTE. HEX VALUE (90000008) 271 
372 398 5 577 603 DTOH ADDRESS. HEX LOCATION(00001E32) IN CSECT(OA8ES8 ) LENGTH (1) 
58 CD1B ABSOLUTE. HEX VALUE (0000349B) 410 4 
744 74 3 DUM ADDRESS. HEX LOCATION(0O0001FB4) IN CSECT(OA8E8 ) LENGTH(1) 
55 CD10 ABSOLUTE. HEX VALUE (00003490) 653 
785 653 DUMMY ADDRESS. HEX LOCATION (OO001FA0) IN CSECT (OASE8 ) LENGTH (2) 
56 CD11 ABSOLUTE. HEX VALUE (00003491) 286 
782 91 DVPNT ABSOLUTE, HEX VALUE (0000182C) 
57 CD12 ABSOLUTE. HEX VALUE (00003492) 262 343 
7179 103 EIGHT ABSOLUTE. HEX VALUE (00000008) 
59 CD22 ABSOLUTE. HEX VALUE (000034A2) 266 610 
747 112 EIGTN ABSOLUTE. HEX VALUE (00000012) 
60 CD23 ABSOLUTE. HEX VALUE (00003443) 546 
750 106 ELEVN ABSOLUTE. HEX VALUE (0000000B) 
61 CD26 ABSOLUTE. HEX VALUE (000034A6) 330 
7153 93 EPRNT ABSOLUTE. HEX VALUE (00001830) 
62 CD27 ABSOLUTE. HEX VALUE (000034A7) 190 
756 187 ERTST ADDRESS. HEX LOCATION(0000199A) IN CSECT (OA8E8 ) LENGTH (4) 
63 CD41 ABSOLUTE. HEX VALUE (000034C1) 556 
794 191 ERTS1 ADDRESS. HEX LOCATION(000019A6) IN CSECT(OA8E8 ) LENGTH (1) 
64 CD42 ABSOLUTE. HEX VALUE (000034C2) 189 
791 100 FIVE ABSOLUTE. HEX VALUE (00000005) 
65 CD43 ABSOLUTE. HEX VALUE (000034C3) 153 
788 99 FOUR ABSOLUTE. HEX VALUE (00000004) 
66 CD45 ABSOLUTE. HEX VALUE (000034C5) ee ie aon 378 403 456 487 559 588 
67 CD48 ABSOLUTE. HEX VALUE (000034C8) 160 GODCC ADDRESS. HEE LOCATION (00001964) IN CSECT(OAS8E8 ) LENGTH (1) 
68 CD49 ABSOLUTE. HEX VALUE (000034C9) 88 HEXFF ABSOLUTE. HEX VALUE {90001828) 
803 296 304 47 568 
54 CD7 ABSOLUTE. HEX VALUE (00003487) 136 HEX01 ABSOLUTE. HEX VALUE (00000001) 
250 CLPEN BDDRESS HEX LOCATION(OOOO1A0C) IN CSECT (OA8E8 ) LENGTH (2) 45 HTOE RESOLUTE. HEY VALVE COOON00TR) 
247 CLPST ADDRESS: HEX LOCATION (OOO0O1A06) IN CSECT(OA8E8 ) LENGTH (2) 622 HUN ADDRESS. HEX LOCATION(OO001E64) IN CSECT(OA8E8 ) LENGTH (1) 
489 CNAAA ADDRESS. HEX LOCATION (00001CE6) IN CSECT(OA8E8 ) LENGTH(1) 717 IDCPT ABSOLUTE. HEX VALUE (00001812) 
495 334 369 378 394 403 544 545 559 573 
175 CNTAD ADDRESS. HEX LOCATION(00001976) IN CSECT (OA8E8 ) LENGTH (1) 588 
455 Ky IDLE ABSOLUTE. HEX VALUE (00000002) 
170 CNTST ADDRESS. HEX LOCATION (00001974) IN CSECT(OA8E8 ) LENGTH (6) 165 180 
175 176 716 <NCMD ADDRESS. HEX LOCATION(OOOO1F1E) IN CSECT(OA8E8 ) LENGTH (2) 
173 CNTWD ADDRESS. HEX LOCATION (00001980) IN CSECT(OA8E8 ) LENGTH (2) 600 
170 178 9 745 INCMG ADDRESS. HEX LOCATLON(00001FB8) IN CSECT(OA8E8 ) LENGTH (29) 
484 CNVAA ADDRESS. HEX LOCATION(00001CD8) IN CSECT (OAS8E8 ) LENGTH (1) 716 
492 151 INCOA ADDRESS. HEX LOCATION (0000194A) IN CSECT(OA8E8 ) LENGTH (4) 
493 CNVAB ADDRESS. HEX LOCATION(OOO01CEE) IN CSECT(OA8E8 ) LENGTH (1) 269 47 
488 152 TNcCO1 ADDRESS. HEX LOCATION (OO00194E) IN CSECT(OAS8E8 }) LENGTH (2) 
502 CNVAC ADDRESS. HEX LOCATION(00001D08) IN CSECT(OA8E8 ) LENGTH (1) 545 
499 163 INCO2 ADDRESS. HEX LOCATION(00001968) IN CSECT (OA8F8 ) LENGTH (2) 
504 CNVAD ADDRESS. HEX LOCATION(00001D0C) IN CSECT(OA8E8 ) LENGTH(1) 166 
501 137 INERR ABSOLUTE. HEX VALUE(00000002) 
521 CNVAE ADDRESS. HEX LOCATION(00001D40) IN CSECT(OA8E8 ) LENGTH (1) 188 
483 157 IOADR ADDRESS. HEX LOCATION (0000195A) IN CSECT(OA8E8 ) LENGTH(1) 
474 CNVAL ADDRESS. HEX LOCATION(OOO01CBA) IN CSECT(OA8ES8 ) LENGTH (1) 154 369 394 S44 573 
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ABSOLUTE. 


AND REFERENCES 
HEX LOCATION (00001974) 


HEX LOCATION (00001958) 
0 395 574 


HEX LOCATION (00001996) 
HEX LOCATION (000019A6) 
HEX VALUE (00001826) 
HEX LOCATION (00001C40) 
HEX LOCATION (00001EBE) 
HEX LOCATION (00001C30) 
HEX LOCATION (00001CA4) 
HEX VALUE (00001832) 
HEX LOCATION (0000197) 
HEX LOCATION (00001982) 
HEX LOCATION (0000206A) 


HEX LOCATION (000019BA) 
1 462 


HEX LOCATION (00001F1A) 
HEX LOCATION (00002078) 
HEX_ VALUE (0000181F) 
HEX LOCATION (00002030) 
HEX LOCATION (0000197C) 
HEX LOCATION (00002052) 
HEX LOCATION (00001F12) 
HEX LOCATION (00002062) 
HEX LOCATION (00001E6C) 
HEX LOCATION (00001A15) 
HEX VALUE (FFFFFFFF) 
HEX LOCATION (0000208E) 
HEX LOCATION (00002080) 
HEX LOCATION (00002095) 
HEX LOCATION (000020BC) 
HEX VALUE (FFFFFFFC) 
HEX VALUE (FFFFFFFB) 
HEX VALUE (FFFFFFFA) 
HEX LOCATION (00001F22) 
HEX LOCATION (00001F3B) 
HEX LOCATION (0000 1F42) 
HEX LOCATION (00001F58) 
HEX LOCATION (00001F70) 
HEX LOCATION (00001F7E) 
HEX LOCATION (00001F8A) 
HEX LOCATION (00001F96) 
HEX LOCATION (00001FA6) 
HEX LOCATION (00001E28) 
HEX VALUE (00000009) 
HEX LOCATION (00002012) 
HEX, LOCATION (00001A12) 
EX LOCATION (00001EC8) 
HEX LOCATION (00001£E9C) 
HEX LOCATION (00001ED2) 
HEX LOCATION (000020DC) 
HEX LOCATION (0000210A) 
HEX LOCATION (00002136) 
HEX LOCATION (00002146) 
HEX LOCATION (00002166) 
HEX LOCATION (0000217A) 
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CSECT (OAS8E8 
CSECT (OA8E8B 
CSECT (OA8E8 
CSECT (OAS E8 
CSECT (OAS E8 
CSECT (OA8E8 
CSECT (OA8E8 
CSECT (OA8E8 
CSECT(OA8E8 
CSECT (OASE8 
CSECT (OA8SE8 


CT. START(00001900) LENGTH (2313) ESDID(0) 


A i nn Oe a ed 


ww Pee ee —_—__ we were es el 


a wr lel 


Et i al 


Se A a 


EC=754882 
COPYRIGHT IBM CORP 1976 


LENGTH (1) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (2) 
LENGTH (14) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 


LENGTH (31) 
LENGTH (4) 
LENGTH (16) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (1) 


LENGTH (13) 
LENGTH (11) 
LENGTH (26) 
LENGTH (29) 


LENGTH (25) 
LENGTH (3) 
LENGTH (19) 
LENGTH (20) 
LENGTH (10) 
LENGTH (8) 
LENGTH (8) 
LENGTH (13) 
LENGTH(11) 
LENGTH (1) 


LENGTH (27) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (43) 
LENGTH (40) 
LENGTH (13) 
LENGTH (28) 
LENGTH (17) 
LENGTH (21) 
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76 
42 
43 


748 
367 
354 
663 
219 
693 
561 
205 
569 
5 86 
206 
204 
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AO ROUTINE TO SUPPORT FRIEND P/N=4414322 EC=754882 PAGE 04 OA9E8 - AO ROUTINE TO SUPPORT FRIEND P/N=4414322 EC=754882 PAGE O4A 


COOCOOo 
olaleolalele) 


OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
RSD6D3E3CACTCSHOD 695 VOLTS DC C VOLTAGE RANGE +10 TO -10! DECLARED NAME ATTRIBUTES AND REFERENCES 
Sone eae De (0) : ce 463. 4k ae) eet eet ta 287 330 334 .339 
' -5?t 2 
E D6 D3E3C1C7C540D 6 g C OLTAGE RANGE +5 TO -5 Le at 483 sho. 985) 482 389334 338 
700 372 391 96 399 401 404 418 423 #429 
430 435 444 445 469 470 £538 #£=538 °& 538 
0 shite ABSOLUTE. HEX VALUE (00000001) 
278 279 +280 281 £=282 282 =283 284 & 284 
301. 302 354 355 356 356 503 513 
0 ~R2. ABSOLUTE. HEX VALUE (00009002) 
319 324 329 349 392° 393 395 399 400 
449 420 422 429 434 494 496 499 504 
0 RS: ABSOLUTE. HEX VALUE (00000003) 
318 321 351 394 +395 396 397 421 #4422 
423 424 425 426 #427 42.492 493 500 501 
501 509 514 
0 ~R4, ABSOLUTE. HEX VALUE (90000904) 
291 296 321 323 326 328 ©6329 331 331 
331 331 332 338 339 S02 502 #517 ~ #519 
522 526 532 535 537 #4538 542 543 #543 
544 545 549 556 
0 ~R5. ABSOLUTE. HEX VALUE {00000005) 
288 299 371 377 #£«x°9378 380 384 #=$%}389 412 
413, 415 416 446 447 454 471 472 «479 
505 507 507 +512 545 515 546 S47 548 
549 553 555 
0 -R6, ABSOLUTE. HEX VALUE (90000006) 
466 490 550 551 554 ~~ 555 
0 ~R7. ABSOLUTE. HEX VALUE (00000007) 
169 181 183 277 4289 ° 292 295 297 304 
305 307 309 325 $337 340 341 1«%\.342 343 
344 345 350 352 359 361 # £375 #=%379 #380 
383 384 387 390 398 406 410 414 428 
432 439 450 457 461 464 475 482 #486 
431 423 497 499 520 524 526 #528 #£541 
272 ALBRT ADDRESS. HEX LOCATION(00001A66) IN CSECT(OASE8 ) LENGTH(1) 
243 AOOCD ADDRESS. HEX LOCATION (00001A35) IN CSECT(OA9E8 ) LENGTH(1) 
244 AO1CD ADDRESS. HEX LOCATION (00001A36) IN CSECT(OA9E8 ) LENGTH(1) 
97 BADCC ABSOLUTE. HEX VALUE (0000181C) 
168 CCCHK ADDRESS, HEX LOCATION (00001968) IN CSECT(OA9E8 ) LENGTH(4) 
171 CCDCP ABSOLUTE. HEX VALUE (00000008) 
55 CD1B ABSOLUTE. HEX VALUE (0000349B) 
56 CD20 ABSOLUTE. HEX VALUE (000034A0) 
57 CD23 ABSOLUTE. HEX VALUE (000034A3) 
58 CD26 ABSOLUTE. HEX VALUE (000034A6) 
59 CD27 ABSOLUTE. HEX VALUE (000034A7) 
61 CD4B ABSOLUTE. HEX VALUE (000034CB) 
60 CD47 ABSOLUTE. HEX VALUE (000034C7) 
54 cD8 ABSOLUTE. HEX VALUE (00003488) 
264 CLPEN ADDRESS. HEX LOCATION(00001A58) IN CSECT(OA9E8 ) LENGTH(2) 
261 CLPST ADDRESS. HEX LOCATION (00001A52) IN CSECT(OA9E8 ) LENGTH(2) 
177 CNTAD ADDRESS. HEX LOCATION (00001972) IN CSECT(OA9E8 ) LENGTH(1) 
172 CNTST ADDRESS, HEX LOCATION (00001970) IN CSECT(OA9E8 +) LENGTH(6) 
175 CNTWr ADDRESS. HEX LOCATION (0000197C) IN CSECT(OA9E8 ) LENGTH (2) 
370. COMCD ADDRESS. HEX LOCATION(00001B94) IN CSECT(OA9E8 ) LENGTH(1) 
224 CONO1 ADDRESS. HEX LOCATION(00001A16) IN CSECT(OA9E8 ) LENGTH(2) 
90 CPUTP ABSOLUTE. HEX VALUE (00000232) 
258 CVADR ADDRESS. HEX LOCATION(00001A4C) IN CSECT(OA9E8 ) LENGTH (2) 
259 CVAD1 ADDRESS. HEX LOCATION(OOO01A4E) IN CSECT(OA9E8 ) LENGTH(2) 
267 CVRID ADDRESS. HEX LOCATION(00001A5E) IN CSECT(OA9E8 ) LENGTH(2) 
154 DATIN ADDRESS. HEX LOCATION (0000194A) IN CSECT(OA9E8 ) LENGTH(2) 
607 DATRQ ADDRESS. HEX LOCATION(00001DFC) IN CSECT(OA9E8 ) LENGTH(2) 
374 DELAY ADDRESS. HEX LOCATION(00001B9C) IN CSECT(OA9E8 ) LENGTH(1) 
245 DELCT ADDRESS. HEX LOCATION (00001A37) IN CSECT(OA9E8 ) LENGTH(1) 
107 DEVC1 ABSOLUTE. HEX VALUE(0000182E) 
562 DHSAV ADDRESS: HEX LOCATION(00001DA2) IN CSECT(OA9E8 ) LENGTH (2) 
185 DLADR ADDRESS. HEX LOCATION (00001988) IN CSECT(OA9E8 ) LENGTH(1) 
386 DLAY1 ADDRESS. HEX LOCATION (O0001BBE) IN CSECT(OA9E8 ) LENGTH (1) 
388 DLAY2 ADDRESS. HEX LOCATION (00001BC2) IN CSECT(OA9E8 ) LENGTH(1) 
186 DLCNT ADDRESS. HEX LOCATION (00001990) IN CSECT(OA9E8 ) LENGTH(2) 
182 DLIST ADDRESS. HEX LOCATION (0000198A) IN CSECT(OA9E8 ) LENGTH(2) 
597 DLMSG ADDRESS. HEX LOCATION (00001DE8) IN CSECT(OA9E8 ) LENGTH(2) 
181 DLNST ADDRESS. HEX LOCATION (00001986) IN CSECT(OA9E8 ) LENGTH(4) 


OAQE8B - 


DECLARED 


658 
232 
664 
540 
489 
495 
498 
506 
510 
518 
523 
534 
5 36 
653 
592 
106 
118 
115 
142 
124 
114 


170 
103 
45 
559 
92 
44 
678 
680 
612 
6 26 
655 
163 
165 
167 
166 


187. 


102 
4O9 
602 
403 
437 
179 
176 
674 
231 
6 24 
675 
99 
667 
174 
670 
622 
671 
564 
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NAME 


DMSGL 
DTCSS 
DTINN 
DTOH 
DTOHM 
DTOHO 
DTOH1 
DTOH2 
DTOH4 
DTOHS 
DTOH6 
DTOH7 
DTOH8 
DUM 
DUMMY 
DVPNT 
EIGHT 
FIVE 
FIVTh 
FORTN 
FOUR 


GODCC 
HEXFF 
HTOE 
HUN 
IDCPT 
IDLE 
IDMG1 
IDNG3 
IDMSG 
INCMD 
INCMG 
INCOA 
INCO1 
IOADR 
IONST 
JINST 
LOOPS 
LOOP1 
LOPMG 
LOPND 
LOPST 
LPADR 
LPCNT 
LPEN 
LPEND 
LPENM 
LPEN1 
LPIND 
LPMSG 
LPNST 
LPST 
LPSTM 
LPST1 
MG8 
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185 393 
ADDRESS. 
597 
RESS. 
RESS. 
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RESS. 
RESS. 
RESS. 
RESS. 
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417 
Se 


430 


OLUTE, 
404 


FRIEND 
CROSS-REFERENCE LISTING 


AND 


HEX 
HEX 
HEX 


HEX 
4 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


REFERENCES 


LOCATION (00001EDE) 
LOCATION (00001A26) 
LOCATION (00001F20) 
LOCATION (00001D6C) 
LOCATION (00001CFA) 
LOCATION (00001D08) 
LOCATION (00001D0E) 
LOCATION (00001D20) 
LOCATION (00001D26) 
LOCATION (00001D3A) 
LOCATION (00001D44) 
LOCATION (00001D62) 
LOCATION (00001D64) 


HEX LOCATION (00001EBA) 
HEX LOCATION (00001DDE) 
HEX 
HEX 


HE 


HEX 


X 


HEX 
X VALUE (90000004) 
347 


HE 
295 


VALUE (0000182C) 
VALUE (00000008) 
VALUE (00000005) 
VALUE (00000200) 
VALUE (0000000) 


P/N=44 14 322 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


425 472 


HEX LOCATION (00001970) IN 
HEX VALUE (00001828) 
45 474-481 
HEX VALUE (00000014) 

433 440 
HEX LOCATION (00001D9E) 
HEX VALUE (00001812) 
3 347 
HEX VALUE (00000002) 


HEX 
HEX 
HEX 
HEX 


HEX 
HEX 


LOCATION (00001F86) 
LOCATION (00001FA3) 
LOCATION (00001E06) 
LOCATION (00001E22) 
LOCATION (00001EBE) 
LOCATION (00001952) 
LOCATION (00001960) 
LOCATION (00001966) 
LOCATION (00001964) 
LOCATION (00001992) 


HEX VALUE (00001826) 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


LOCATION (00001C02) 
LOCATION (00001DF2) 
LOCATION (0000 1BF2) 
LOCATION (00001C66) 
LOCATION (0000197A) 
LOCATION (0000197E) 


HEX LOCATION (00001F70) 


HEX 


LOCATION (00001A24) 


HEX LOCATION (00001E1E) 
HEX LOCATION (00001F7E) 
HEX VALUE (0000181F) 

44 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


LOCATION (00001F 36) 
LOCATION (00001978) 
LOCATION (00001F58) 
LOCATION (00001E1A) 
LOCATION (00001F68) 
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CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES 
363 SI026 ADDRESS. HEX LOCATION (00001B86) IN CSECT(OA9E8 ) LENGTH(1) 
116 SIX ABSOLUTE. HEX VALUE (00000006) 
239 STATS ADDRESS, HEX LOCATION (00001A30) IN CSECT(OA9E8 ) LENGTH(2) 
ae ae tiene ts iar TS inne tee ET 346 356 391 401 
418 435 438 
190 TABLE ADDRESS. HEX LOCATION (00001996) IN CSECT(OA9E8 ) LENGTH(1) 
120 TEN ABSOLUTE, HEX VALUE (0000000) 
560 TENS ADDRESS. HEX LOCATION(00001D9F) IN CSECT(OA9E8 ) LENGTH(1) 
133 THIR2 ABSOLUTE. HEX VALUE (00000020) 
558 THOUS ADbrzss. HEX LOCATION (00001D9C) IN CSECT(OA9E8 ) LENGTH(2) 
113 THREE ABSOLUTE. HEX VALUE (00000003) 
247 TTTBL ADDRESS. HEX LOCATION(00001A38) IN CSECT(OA9E8 ) LENGTH(1) 
122 TWELV ABSOLUTE, HEX VALUE (0000000C) 
129 TWEN2 ABSOLUTE. HEX VALUE (00000016) 
a — eR aay ieee Cee 1. 188 280 283 336 
152 UBUFR ADRESS. HEX LOCATION (00801906) IN CSECT(OA9E8 ) LENGTH (2) 
5 86 VOLT1 ADDRESS, "HEX LOCATION (00001DD2) IN CSECT(OA9E8 ) LENGTH (2) 
588 VOLT2 ADDRESS. HEX LOCATION (00001DD6) IN CSECT(OA9E8 ) LENGTH(2) 
590 VOLT3 ADDRESS. HEX LOCATION (00001DDA) IN CSECT(OA9ES ) LENGTH (2) 
692 VOLT4 ADDRESS. HEX LOCATION (00002000) IN CSECT(OA9E8 ) LENGTH(22) 
695 VOLTS ADDRESS. HEX LOCATION(0000201A) IN CSECT(OA9E8 ) LENGTH (24) 
698 VOLT6 ADDRESS. HEX LOCATION (00002036) IN CSECT(OA9E8 ) LENGTH(22) 
44 3 WAOPO ADDRESS. HEX LOCATION (00001C7C) IN CSECT(OASE8 ) LENGTH(1) 
468 WAOP1 ADDRESS. HEX LOCATION(00001CCO) IN CSECT(OA9E8 ) LENGTH(1) 
225 WORKA ADDRESS, HEX LOCATION (00001A18) IN CSECT(OA9E8 ) LENGTH(2) 
153 WORK1 ADDRESS. HEX LOCATION(00001946) IN CSECT(OA9E8 ) LENGTH(2) 
378 530 598 618 
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CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
583 M8 ADDRESS. HEX LOCATION(0O0001DD6) IN CSECT(OBOES8 ) LENGTH (25) 320 
517 294 SIO020 ADDRESS. HEX LOCATION(OOOO1ABE) IN CSECT (OBOES8 ) LENGTH (1) 
584 MBA ADDRESS. HEX LOCATION (OOOO1DEF) IN CSECT (OBOES8 ) LENGTH (3) 372 4g 
227 313 SIO022 ADDRESS. HEX LOCATION (OOOOTAFA) IN CSECT(OBOE8 ) LENGTH (1) 
587 M9 ADDRESS. HEX LOCATION (00001DF6) IN CSECT(OBOES ) LENGTH (19) 309 
519 316 ST023 ADDRESS. HEX Of oe ee IN CSECT(OBOE8 ) LENGTH (1) 
590 MOA ADDRESS. HEX LOCATION(OOOO1TEOC) IN CSECT (OBOES8 ) LENGTH (20) 357 401 407 435 Gut 80 
521 321 SIT025 ADDRESS. HEX LOCATION(00001B12) IN CSECT(OBOES8 ) LENGTH (1) 
593 M9B ADDRESS. HEX LOCATION (OOO01E24) IN CSECT(OBOES8 ) LENGTH (10) 283 
523 331 SI026 ADDRESS. HEX LOCATION (00001B30) IN CSECT(OBOESB ) LENGTH(1) 
596 MN9C ADDRESS. HEX LOCATION (00001E32) IN CSECT(OBOE8 ) LENGTH (8) 326 
525 94 SIX ABSOLUTE. HEX VALUE (00000006) 
599 M9D ADDRESS. HEX LOCATION(00001E3E) IN CSECT(OBOE8 ) LENGTH(8) 297 468 
527 71 STRTB ABSOLUTE. HEX ee ae, 
602 MIE ADDRESS. HEX LOCATION (OOOO1E4A) IN CSECT(OBOE8 ) LENGTH(13) 247 248 250 275 295 314 324 346 355 
529 390 400 417 434 437 466 478 
605 MOF A aa HEX LOCATION (OOOOTESA) IN CSECT(OBOE8& ) LENGTH(11) 98 TEN feec tee HEX VALUE (OOOQ0000A) 
489 NGOOD aaa HEX LOCATION (OOOO1DOE) IN CSECT (OBOE8 ) LENGTH (1) 513 TENS aN Sa HEX LOCATION (O0001D4B) IN CSECT (OBOES8 ) LENGTH (1) 
97 NINE Apeorure. HEX VALUE (00000009) 111 THIR2 Reso eee HEX VALUE (00000020) 
619 NLOOP ae HEX LOCATION (QOOO01EC6) IN CSECT(OBOES ) LENGTH (27) 511 THOUS fgg tne: HEX LOCATION(00001D48) IN CSECT(OBOES8 ) LENGTH (2) 
234 NO ADDRESS. HEX LOCATION(00001A04) IN CSECT(OBOE8 ) LENGTH(1) 101 THRIN ABSOLUTE. HEX VALUE (0000000D) 
567 NODIC Be a HEX LOCATION (0O0001DB6) IN CSECT(OBOES8 ) LENGTH (2) 208 TTTBL Bane HEX LOCATION (000019D2) IN CSECT(OBOES ) LENGTH (1) 
545 NOLOP hoe HEX LOCATION (O0OO0001D8A) IN CSECT(OBOES8 ) LENGTH (2) 100 TWELV apgoLure. BER DP EUB OSU CONee) 
628 NOTDI eee HEX LOCATION (00001F34) IN CSECT (OBOE8 ) LENGTH (42) 106 TWENY soa HEX VALUE (00000014) 
3 OBOES ae ta START (00001900) LENGTH(1785) ESDID(0O) 107 TWEN2 et males HEX VALUE (00000016) 
89 ONE ABSOLUTE. HEX eto a 90 TWO ABSOLUTE. HEX a nee ee 
242 24 289 319 38 150 160 162 1608 170 171 243 246 265 
69 OPTN2 ABSOLUTE. HEX VALUE (00001810) 304 351 370 425 426 464 G74 
172 129 UBUFR ADDRESS. HEX LOCATION (00001906) IN CSECT(OBOES8 ) LENGTH (2) 
42 OUT ABSOLUTE. HEX apg y Paueaa ta 279 548 
257 328 330 406 494 358 UN PRP ADDRESS. HEX LOCATION(00001B82) IN CSECT (OBOE8 ) LENGTH (1) 
43 OUTIN ABSOLUTE. HEX VALUE (00000001) 210 
261 272 338 40 483 130 WORK1 ADDRESS. HEX poeta oan ey IN CSECT(OBOE8 L LENGTH (2) 
613 PMSGR BEER ESD: HEX LOCATION(OQOOO1E8C) IN CSECT (OBOE8 ) LENGTH (18) ae 233 341 342 344 77 484 553 558 
345 PREPB ADDRESS. HEX LOCATION (00001B56) IN CSECT(OBOES8 ) LENGTH (1) 237 WRITE AOR nae LOCATION (00001A07) IN CSECT(OBOES8 ) LENGTH (1) 
333 PREPR Aas HEX LOCATION (00001B34) IN CSECT(OBOE8 ) LENGTH(1) 622 WRLIT BDERESS- HEX LOCATION (QOOOTEE4S) IN CSECT(OBOES ) LENGTH(43) 
557 PRMSG EUDREDS: HEX LOCATION(OOOOTDA2) IN CSECT (OBOE8 ) LENGTH (2) 572 WRLTS hageeee HEX LOCATION(00001DCO) IN CSECT(OBOES8 ) LENGTH (2) 
197 PRPCD pope eeee HEX LOCATION (000019C8) IN CSECT(OBOE8 ) LENGTH(1) 88 ZERO peo ae HEX VALUE (00000000) 
487 QUESR Paseo es HEX LOCATION (OO0001D0C) EN CSECT(OBOES8 ) LENGTH(1) 
481 QUEST tae Re Bee cor Te On (ON OUNre) IN CSECT (OBOES8 ) LENGTH (1) ARI CK a ok ook a ak ka ok ick ick loktkktgoksk LAST PAGE OO OK ok i ioioioioio kok fa tok gal ak akoak oof ake ake ak fe ate ake ae ae 
ay 1 
190 RDADR a HEX LOCATION (0O00019BD) IN CSECT(OBOE8 ) LENGTH (1) 
191 RDCOD SST kee LOCATION (OOO019BE) IN CSECT(OBOES8 ) LENGTH (2) 
200 RDICD Ri peene: HEX LOCATION (OQ00019CB) IN CSECT (OBOE8 ) LENGTH (1) 
189 RDID Bee eee HEX LOCATION (O000019BC) IN CSECT(OBOESB ) LENGTH(1) 
453 RDPIR ala HEX LOCATION (QOOO0TCA2) IN CSECT(OBOES8 ) LENGTH(1) 
442 RDSTA BURRESS: HEX LOCATION (00001C82) IN CSECT (OBOE8 ) LENGTH (1) 
Q&S REDDI pees HEX LOCATION (QOOO1C8A) IN CSECT (OBOES ) LENGTH(1) 
363 REDID pete: HEX LOCATION (QOOOOTBS8C) IN CSECT(OBOES ) LENGTH(1) 
44g REDPI BURRESS: HEX LOCATION (00001C96) IN CSECT (OBOES8 } LENGTH (1) 
366 RESET OT aaa HEX LOCATION (00001B92) IN CSECT(OBOES8 ) LENGTH (1) 
163 RESTR Rope ep aguee LOCATION (00001982) IN CSECT (OBOE8 ) LENGTH (6) 
186 RETSV HO He ee IN CSECT (OBOE8 ) LENGTH (2) 
198 RIDCD aa HEX LOCATION (000019€9) IN CSECT(OBOE8 ) LENGTH(1) 
460 RMDIE UDR EOS: HEX LOCATION(QOOO01CB4) IN CSECT (OBOE8 } LENGTH (1) 
201 RPICD nh eae HEX LOCATION (000019CC) IN CSECT(OBQE8 ) LENGTH (1) 
202 RPWCD hee HEX LOCATION (000019CD) IN CSECT(OBOES8 ) LENGTH(1) 
206 RSACD Hr pias HEX LOCATION (000019D1) IN CSECT(OBOES8 ) LENGTH(1) 
199 RSTCD SP DRES>: HEX LOCATION (O00019CA) IN CSECT(OBOE8 ) LENGTH (1) 
514 RT RIN HTT gla or aes LOCATION (O0001D4C) IN CSECT(OBOE8 ) LENGTH (2) 
182 R2SAV poe aa aba ee aa ay CSECT (OBO E8 }) LENGTH (2) 
184 R5OSAV Ave see aa ee IN CSECT (OBOES8 } LENGTH (2) 
185 R7SAV wake Phil LOC RTE aceon aes) IN CSECT (OBOE8 ) LENGTH (2) 
95 SEVEN eee ee HEX VALUE (00000007) 
192 SIOID Se HEX LOCATION (000019C0) IN CSECT(OBOES ) LENGTH(2) 
239 SI000 st aaa HEX LOCATION (00001A08) IN CSECT (OBOE8 ) LENGTH(1) 
256 SI003 ADDRESS. HEX LOCATION (00001A46) IN CSECT(OBOE8 ) LENGTH(1) 
277 $1012 A eee HEX LOCATION (QOQO1A8C) IN CSECT(OBOES ) LENGTH(1) 
281 SI0O15 ADDRESS. HEX LOCATION (00001A98) IN CSECT (OBOES ) LENGTH (1) 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
001900 3 OBUES START x*1900' 00 1C00 120 STH68 EQU 7168 7168 
Roo ROO gkko kok mo ik OR ROR OR RRO OR qk OR IOI OK ik it ik kk i fa ai kok ke ke ote ak ak 2c akc FFFFFF 121 41 EQU - -1 
ae : FFFFPA 133 He EU =6 “6 
6 * slabs PREREQUISITES slaalad * = = 
_ 7 * 000002 124 INERR EQU 2 
8 * NONE x 001900 B4EB 126 PID D X' BYES PROGRAM IDENTIFIER 
9 * * 001902 6802 19E4 127 OVLST B SI000 BRANCH TO START OF OVERLAY 
10 sep RO IO IO II III IOI IO HOI Iai i qOK 001906 00000000000000000 128 UBUFR DC 32A (*-*) 
11 * * 001946 00000000 129 WORK1 DC 2A (*-* 
12 * ek MODIFICATIONS Kk * 00194A 00000000 130 DATIN D 2A (*-* 
13 * * 132 PEXEEL SS EAESS CRASS UESCTS TENSE ROLE SACR SRSA U ET SL NES ETN OL OT ETT ereree et: 
Ty * ONE * < 
15 * ahi * 134 * THE FOLLOWING INSTRUCTIONS WILL BE MODIFIED FOR TESTING. * 
16 UG IIR IORI II IR IO OR do IO RR tok Rik ito tok ok 135 * CARE SHOULD BE TAKEN TO ENSURE THE INSTRUCTIONS MAINTAIN * 
17 * * 138 . THE SAME RELATIVE POSITION IN THE INSTRUCTION STREAM. . 
* OK ‘ * 4K * 
We * REA'S INCORPORATED os 138 3 RRR OI IO III IOI IOI OR IOI II fo i tok Hoi 
20 * NONE * OO1T94E 4024 182E 139 INCOA MVWI DEVC1,R0 
31 * 001952 0005 140 ABI FIVE, 0 
22 [RRO OO oI OR GOO IO GI rR OR aR Ola a ii oii ite dete ak 001954 4000 195A 141 INCO1 MVA IOADR, (RO) 
re" ; 00198, ee 143 TOADR EQU TONST#T¥O 
y * #2 Pp CTIO at. * + 
ae te aca sa as a * 00198c 6F04 1964 144 CCCHK BCC SEVEN,GODCC 
56 * NONE & 001960 6F13 181C 145 BAL BADCC*,R7 
27 * * 001964 146 GODCC EQU * 
98 SOROS OR IO OR OR IO OI II I IO Rk atk i 4 ki 000008 147 CCDCP EQU GODCC-CCCHK 
29 * * 001964 4029 1970 FFFF 148 CNTST AWI M1,CNTWD 
30 * #0 E. C. HISTORY kk * 00196A 1004 149 JZ #4 TEN 
aS : -B81895 8883 196° 129 LENSE Bo Rta 
32 * DATE 15SEP77 DATE DATE DATE * 
33 * E.C. 754882 #££E.C. E.C. E.C. * 001972 0000 152 LPCNT DC A (sa 
34 * * 001966 153 CNTAD EQU CNTST+tTWO 
35 SRS iio ado tag OI OIG IOI IORI I I GK ai ek 001968 154 JENST EQU CNTST+FOUR 
377 RRO KORO ORR IRI IO IGRI II IORI IR IO RII ROR RO ek ok QO196E ot 155 LPADR EQU LPNST#TWO 
2: : G8ISIR 838 1932 1970 as BEaaE vy ecu? 
39 * EQUATED NAMES FOR REQUIRED SVC! * ’ 
it Q 2 > ; 00197E 6002 158 DLIST SVC IDLE 
U1 cgi a ok GO I IO OR OR OR II ICO a na aC dak 2k ak 2 2 ee 001980 BFFE 159 JCT DLIST,R7 
000000 42 OUT EQU O ouUT SVC 001982 5001 160 J *+FOUR 
000001 43 OUTIN EQU 1 OUTIN SVC 00197C 1617 DLADR EQU  DLNST+THWO 
000002 44 IDLE EQU 2 IDLE SVC 901984 0000 162 DLCNT DC A (*-* 
283818 do uroe Hoy 38 EE Do RES EE ovc sora ts B31ge8 3800 135 eee HENS 
YQ ARR DH AEE H EOE EE IEEE IO EE a GOES EES 2 EEE aa Io Q0198A 4724 1810 165 ERTST MVWI OPTN2,R7 
at : $81385 4532 tr wee ae 
* EQU OP L MONITOR * 
29 * 2 ATES NORMAL AND ERROR) Be Oe eee ae * 001992 6F13 1830 168 BAL EPRNT*,R7 
52 * . 001996 169 ERTS1 EQU * 
53 pO IAI IORI OIG IG dat d lok dot ick Cotaee a Abe se ae ve aie 
OO348A 54 CDA EQU  xX*348A' COMMANDS FOR 4982-D0 7“ 
003498 55 CD1B EQU xX*'349Be INVALID COMMAND 00199A 0000 173 R3SAV DC A (*—* 
0034A0 56 CD20 EQU X'34A0 READ I.D. MISMATCH 00199C 0000 174 RSSAV DC Ae=* 
0034A3 57 CD23 EQU X'34A3" LENGTH OF DELAY 00199E 0000 175 RISAV DC Avs * 
OO34A4 58 CD24 EQU X'34AQ" DATA TO BE USED FOR THIS TEST 9019A0 0000 176 RETSV DC A (*-* 
0034A6 59 CD26 EQU xX*'34A6° LOOP NOT STARTED 0019A2 0000 177 LPEND DC A (¥=* 
0034A7 60 CD27 EQU X'34a7° NUMBER OF TIMES THRU LOOP Q019A4 B4B0 178 DICSS DC X* B48? 
62 FRR RR OIA III IIR II IGOR IOI IO ICI I I ICI IK A RK 1k kak 0019A6 20 179 RDID_ DC X*20¢ 
63 * — * 0019A7 00 180 RDADR DC X'00® 
64 * EQUATE TABLE * 001948 0000 181 RDCOD Dc X*0000! 
65 * * OOT9AA 8018 182 SIOID DC X'8018! DIGITAL OUTPUT 
66 ROR OR III IOI ROI IR IG I II I RCH Kk 0019AC 60 183 PRPRE DC x'60° 
000232 67 CPUTP EQU xX'0232! CPU TYPE OO019AD 00 184 PRADR DC X'00° 
001810 68 OPTN2 EQU X"'1810! POINTER TO OPTION WORD 2 OO019AEB 9005 185 DC X10005 
001812 69 IDCPT EQU X*1812! POINTER TO IDCB BUILD AREA O0713B0 60 186 PRPCD DC x1 60° 
001814 70 STRTB EQU xX*1814' POINTER TO I STREAM BUILD AREA O019B1 20 187 RIDCD DC Xt 208 
001816 71 DTENT EQU  xX'1816! POINTER TO DATA BUILD AREA OO19B2 48 188 DOCMD DC x48" 
001818 72 DVCNT EQU x'1818° POINTER TO DEVICE UNDER TEST Q0019B3 O6F 189 RSTCD DC XI6F! 
OO181A 73 DCBPT EQU xX*tT81At POINTER TO DCB BULLD AREA Q019B4 05 130 DELCT DC X*05 
00181C 74 BADCC EQU x*181C* POINTER TO BAD CODE ROUTINE 0079B5 00 131 ALIGN WORD 
OO181E 75 KMODE EQU X‘'181E* POINTER TO DEVICE KEYING IN 0012 B6 192 TTTBL EQU * 
00181F 76 LPIND EQU X'18iFe LOOP INDICATOR Q019B6 AFA 193 DC A (REDID 
001820 77 KEYMD EOU xX*1820' ADDRESS OF DEVICES KEYING 0019B8 13800 194 DC A SRESET 
001824 78 KYMOD EQU X*'1824" INDICATOR A DEVICE IS KEYING IN OO19BA 1B0C 195 DC A (DELAY 
001826 79 LOOPS EQU xX*1826! ADDRESS OF LOOP START OO19BC 1BD6 196 DC A (LOPST 
001828 80 HEXFF EQU xX'18288 OO19BE 1B62 197 DC A (LOPND 
001829 81 ZEROS EOU x¥'18298 0019CO 1BEC 198 DC A (DORTN 
0018 2A. 82 NUMDV EOO X'1B2At 0019C2 0000 199 AECVT DC A (0 
00182C 83 DVPNT EOU x'182c! 0019C4 0000 200 AETCV DC A (0 
00182E 84 DEVC1 EQU X¥'182Et 0019C6 09000 201 AECTV DC A (0 
0018 30 85 EPRNT EOU x¥'18308 0019C8 0001 202 CVADR DC A (1 
001832 86 LOST EOU %¥*1832¢ QO19CA 9000 203 CVADT DC A (*-* 
000000 87 ZERO EO (O VALUE OF 0 Q019Cc 4cC5 204 CVAD2 DC = A(MBA 
000001 88 ONE EQU 1 1 QOO19CE 0002 205 CLPST DC A 2). 
000002 89 TWO EOU 2 2 Q0019D0 1826 206 DC A (LOOPS 
00000 3 90 THREE EOU 3 3 Q019D2 1DB2 207 DC A(LPST1 
000004 97 FOUR EOU mt 4 0019D4 0002 208 CLPEN DC A 2) 
000005 92 FIVE EON 5 5 0019D6 19A2 209 DC A (LPEND 
500002 44 SIx EOU é 2 0019D8 1DCB 210 DC  A(LPEN1 
000007 94 SEVEN EOU 7 7 QOQO19DA 0002 211 CVRIB DC A 2), 
000008 95 BIGHT EQU g 8 0O019DC 19A8 212 DC A (RDCOD 
000009 96 NINE EOU 9 9 0019DE t1DED 213 DC A (IDMG3 
OOOO0A 97 TEN EQU- 10 10 Q019E0 D5 2714 NO DC Cin’ 
00000B 98 ELEVN EQU- 11 11 O019E1 40 215 EBCBK DC cts 
00000c 99 TWELV EOU 12 42 O019E2 23 216 ALBRT DC x*23° 
ttt 100 THRIN EON 43 44 0019E3 00 217 ALIGN WORD 
OO000E 101 FORTN EQU 14 14 Q019B4 218 SI000 EQU) * 
00000F 102 FIFTN EOU 15 15 0019E4 6FOD 19A0 219 MVW R7,RETSYV SAVE THE RETURN ADDRESS 
0000 10 103 SIXTN EOU 16 16 0019F8 6908 182C 220 MVW DVPNT,R1 DEVICE PARAMETERS UNDER TEST 
000012 104 EIGIN FOU 18 18 0019EC 7921 0001 221 AWI ONE,R4 BUMP POINTER 
000014 105 TWENY FOU 20 20 0019FO 690D 1950 222 MVW R1,£NCOA+TWO PUT IN THE INSTR STREAM 
000016 106 TWEN2 EOU 22 52 Q0019F4 7921 0001 223 AWI ONE,R1 BUMP THE ADR 
QOOOTA 107 TWENG EQU 26 26 QOO019F8 8860 19A4 224 MVW prcss (R1) IND THE TYPE OF DEVICE 
0000 1B 108 TWEN7 EOU 27 37 O019FC 7921 0002 225 AWI TWO,RI BUMP POINTER 
00001C 109 TWENS EQU 28 28 001800 8860 1814 226 MVH STREB, (R1} START ADR FOR THIS TEST 
000020 110 THIR6 EOU 32 32 CO1A04 6808 1814 227 MVW STRTB, RO SET RO 
000028 111 FORTY EOU T 74) 80 OO1A08 9024 1986 228 MVD JINST ABUEe MOVE IN DUMMY INSTR'S 
00003c 112 SIXTY EOQU 60 60 OO1A0C 680D 1814 229 MVW RO,STRTB SAVE THE INSTR STREAM POINTER 
0000 3F 113 SIXT3 EOU 63 63 Q001A10 6DOD 19CA 230 MVW R5,CVAD1 PREPARE TO CONVERT 
000040 114 SIXT4 EQU 64 64 QOOTA14 4724 19C8 231 MVA cVADR, R? CONTROL BLOCK ADDRESS 
000041 115 SIXT5 EOQU 65 65 O0O1A18 601A 232 SVC HTO GO CONVERT 
O0007F 116 ONE27 EOQU 127 127 QOO1TA1TA 4424 0005 233 MVWI NINE, RY NUM OF POSSIBLE MESSAGES 
000080 117 ONE28 EOU 128 128 OOTATE 4724 1C46 234 MVA MGB, RT START ADR OF MESSAGES 
000100 118 TWO56 EQU 256 256 OO1A22 235 SI003 EQU * 
000400 119 OTH24 EOU 1024 1024 001A22 6000 236 Svc OUT OUTPUT THE MESSAGE 
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OBYE8 - DO ROUTINE TO SUPPORT FRIEND P/N=4414326 EC=754882 PAGE 03 OB4E8 - DO ROUTINE TO SUPPORT FRIEND P/N=4414326 EC=754882 PAGE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-~-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
001CA6 00CO 465 DC X*Qocot DECLARED NAME ATTRIBUTES AND REFERENCES 
QOO1CA8 1D14 &66 INCMD DC R(T NCHS) 
QOOTCAA 0000 467 DC A au 0 -ROQ. ABSOLUTE. HEX VALUE (00000000) 
OOTCAC E2C5D3C5C3E340C3D 468 M8 DC C*SELECT COMMAND(S) FOR DA ! 139 140 141 227 228 229 269 273 278 
001cCC5 404040 469 M8A DC ct t 279 283 284 285 296 305 308 310 311 
001CC8 900 470 DC K'OOF 311 330 335 338 349 343 357 362 368 
OOICCA 0000 G71 DC A (0) 369 374 383 384 387 387 
001CCC FOFT4OD9C5SCIC4H4OC 472 M9B DC C*Q1 READ ID? 0 Rte ABSOLUTE. HEX ee ae 
001CD6 00 473 DC X*'O0* 220 221 222 223 224 224 225 226 226 
001CD8 0000 G74 DC AG 243 244 293 294 295 295 
OO1CDA FOF240D9CS5E2C5E3 475 MOC DC C'Q2 RESET! 0 wRZs ABSOLUTE. HEX eee ae 
O001CE2 00 476 DC X*008 258 263 268 288 331 332 334 338 339 
OO1CE4Y 0000 477 DC AO 358 359 361 368 373 
QOO01CE6 FOF340C4C5D3C1E8 478 MID DC C'O3 DELAY' 0 -R3. ABSOLUTE. HEX Cee eee en 
QOO1CEE 00 479 DC x'oo? 257 260 290 oe fe 334 335 336 360 361 
OO1CFO 0000 480 DC ah 362 363 364 365 366 
OO1CF2 FOF4UOD3DED6DT4OE 481 MIE DC C*O4 LOOP START! 0 - R4. ABSOLUTE. HEX ee eee eet 
QO1CFF 00 482 DC X'00° 233 238 260 262 265 267 268 270 270 
001D00 0000 483 DC RO) 270 270 271 277 278 395 396 396 397 
O001D02 FOFS40OD3DED6D740C 484 MOF DC C*Q5 LOOP END'* 398 402 409 
Q0O01D0D 00 485 DC X'OO! 0 eno. ABSOLUTE. HEX ee 
QOOIDOE 348A 4 86 DC A (CDA) 230 241 310 316 317 319 323 328 351 
0O01D1O0 00 487 DUM DC x*00! 352 354 355 399 400 401 402 406 408 
001D12 349B 488 DC aan | -R6. ABSOLUTE. HEX eR EUE Coe ee: 
OO1DI4 E6D9IDEDSCTEUOCSC4&C 489 INCNG DEC C'WRONG IDCB COMMAND,START OVER' 403 GO4 GO7 Gos 
001D31 00 490 DC x'OO! Rds ABSOLUTE. HEX nee eee tee 
Q001D32 34A3 491 DC ag tre | 145 157 159 165 166 168 219 231 234 
001D34 D3C5SD5C7E3C840DEC 492 DMSGL DC C*LENGTH OF DELAY (IN MILLISECONDS) ! 237 239 246 247 249 251 264 276 279 
001D54 00 493 DC x*o0o? 280 281 282 283 284 289 291 298 300 
001D56 34A6 494 DC A (CD26) 314 318 319 322 323 326 329 337 345 
001D58 D3D6D6ED740D5D6E34 495 NLOOP DC C*LOOP NOT STARTED,START OVER! 349 353 367 371 378 385 390 394 405 
001D73 00 496 DC X"00* 406 
QOO1D74 34A4 497 DC A (CD24) 216 ALBRT ADDRESS. HEX LOCATION (000019E2) IN CSECT (OB4E8 ) LENGTH (1) 
001D76 C4&C1TE3C1I40C9E2 498 DTINN DC C*DATA Is* 320 
001D7D 00 499 DC X'OO? 74 BADCC ABSOLUTE. HEX VALUE (0000181C) 
QOOID7E 34A7 500 DC aera 145 
001D80 C8D6E640 D4&C1ID5SE84 501 LPMSG DC C'HOW MANY TIMES THROUGH THE LOOP'* 144 CCCHK ADDRESS. HEX LOCATION(0000195C) IN CSECT (OB4YE8 ) LENGTH (4) 
OO1D9F O00 502 DC x'oo! 147 281 28 
QO1DAO 0000 503 DC A (0) 147 CCDCP ABSOLUTE. HEX VALUE (00000008) 
QOIDA2Z D3D6D6D740E2E3C1D 504 LPST DC C*LOOP STARTED AT * 280 
QO1DB2 FOQOFOFOFO 505 LPST1 DC C*00008 54 CDA ABSOLUTE. HEX VALUE (0000348A) 
QOO01DB6 O00 506 DC x*'oo? Wu 86 
001DB8 0000 507 DC ant 55 CD1B ABSOLUTE. HEX VALUE (0000349B) 
QOO1DBA D3D6DEDT74OCS5D5CueC 508 LPEN DC CY*LOOP ENDED AT * 488s 
Q0071DC8 FOFOFOFO 509 LPEN1 DC c'o000* 56 CD20 ABSOLUTE. HEX VALUE (000034A0) 
001DCC 900 510 DC X*00Q* 511 
OOI1DCE 34A0 511 A (CD20) 57 CD23 ABSOLUTE. HEX VALUE (000034A3) 
OO01DDO D9YC5CIC4YOCIC4HHOC 512 IDMG1 C*READ ID EXPECTED * 494 
OOIDE1 F8FOF1F84 0C9C4UOE 513 IDMG2 C*8018 ID WAS * 58 CD24 ABSOLUTE. HEX VALUE (O00C34A4) 
OOIDED EVE7VETETUOCIE2Z4OE 514 IDMG3 C*xXxxx IS THIS O.K.?! 497 
OOIDFF 00 515 x*oo* 59 CD26 ABSOLUTE. HEX VALUE (000034A6) 
0O01E00 0000 516 AO) G94 
QOO1TEO2 FOF640E6D9C9E3C5S4 517 M16A C'0O6 WRITE DOS 60 CD27 ABSOLUTE. HEX VALUE (00003437) 
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TTY ROUTINE TO SUPPORT FRIEND P/N=4414054 EC=754882 PAGE O4 O4OE8 - TTY ROUTINE TO SUPPORT FRIEND P/N=4414054 EC=754882 PAGE OWA 


OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
D3D6D6D740E2E3C1D 693 LPST DC C{LOOP STARTED AT ' DECLARED NAME ATTRIBUTES AND REFERENCES 
ee poaceere Be: eee O° -Ridn ABSOLUTE, HEX, VALUE (00000000) 
0000 Ede fe 4 (0) 148 149 154 155 156 265 266 £267 °&#308 
D3D6D6D74HOC5D5C4C 697 LPEN DC C'LOOP ENDED AT ! 312 317 8318 86319 =9323 «324 869325 ©6336 0345 
POFOFOFO 698 LPEN1 DC C'00008 346 347 350 360 362 364 365 369 370 
00 699 DC X'008 371 375 376 377 #29377 #42380 £383 £385 #8386 
349 198 ougt BE ANGER) ae HOS dad He te lg dae 
DICSCICU“OCIC4H4OC 701 IDMG1 DC C'READ ID EXPECTED * 
BTETETET4OCICHNOE 702 IDNG2 DC = C'XXXX ID WAS * aa te4g, 2 ae eee: - Peg eae ase. “Ba 
Boe rere ae eee ee. ogee oe Pees 0 RI. ABSOLUTE, HEX VALUE (00000001) 
705 END 258 259 260 261 £4262 £4262 #«263 «2:2264 #& 264 
333. 334 335 335 458 459 #460 
0 ~R2. ABSOLUTE. HEX VALUE (00009092) 
163 164 165 297 421302 307 #42°328 #406 # 407 
409 413 414 «42.4433 434 436 443 448 472 
484 485 486 502 503 #504 #505 506 515 
516 517 518 519 520 521 #£«2+522 523 £42528 
525 526 536 538 °&540 
0 .R3. ABSOLUTE. HEX VALUE (00000003) 
147 152 168 170 296 299 330 408 #409 
410 411 #4435 436 4637 4438 439 4u4o 441 
483 485 493 495 
0 RG. ABSOLUTE. HEX VALUE (00009004) 
271 276 299 301 £304 4306 £307 + #2309 ~=# 309 
309 309 310 316 317 #42510 511 #42+513 514 
528 529 +553 #554 +554 #555 556 560 #567 
0 -RS. ABSOLUTE. HEX VALUE (00000005) 
268 279 #346 376 £385 391 392 394 #398 
403 426 427 #4429 #430 459 # 466 086 6557~—~=6558 
559 560 564 £4566 
0 .R6. ABSOLUTE. HEX VALUE (00000096) 
492 496 497 42»561 562° 565 566 
-R7. ABSOLUTE. HEX VALUE (00000007) 
153. 160 187 189 195 196 198 257 #269 
272 275 $277 #21283 £2846 286 ©@©6©28806©6©6290~0=—s_:-»3303 
315 319 320 321 #322 323 #324 « &24329 331 
338 4 8=6p3340s 3470S 348) S353) 3550S 56) 857358 
359 365 366 367 #4368 369 #370 389 8393 
394 397 398 401 404 #%&412 42.4420 424 428 
442 446 453 475 4677 #+2+482 489 491 492 
496 500 506 509 £4512 #=527 #4530 531 #532 
933 534 535 536 537 #4545 548 =%‘§552 £44563 
236 AECTV ADDRESS. HEX LOCATION (00001A88) IN CSECT(O40E8 ) LENGTH(2) 
234 AECVT ADDRESS, HEX LOCATION (00001484) IN CSECT(O4OE8 ) LENGTH(2) 
235 AETCV ADDRESS. HEX LOCATION(00001A86) IN CSECT(OUOE8 ) LENGTH(2) 
254 ALBRT ADDRESS. HEX LOCATION(OOOO1AAA) IN CSECT(O4OE8 ) LENGTH(1) 
76 BADCC ABSOLUTE. HEX VALUE (0000181C) 
159 CCCHK ADDRESS. HEX LOCATION (000019EF) IN CSECT(O4OE8 ) LENGTH(4) 
162 | 321 7 68 32 533 
162 CCDCP ABSOLUTE. HEX VALUE (00000008) 
54 cD1 ABSOLUTE. HEX VALUE (00003481) 
55 CD1B ABSOLUTE. HEX VALUE (0000349B) 
56 CD20 ABSOLUTE. HEX VALUE (000034A0) 
57 CD21 ABSOLUTE. HEX VALUE (000034A1) 
58 CD22 ABSOLUTE. HEX VALUE (000034A2) 
59 CD23 ABSOLUTE. HEX VALUE (000034a3) 
60 CD24 ABSOLUTE. HEX VALUE (000034A4) 
61 CD26 ABSOLUTE. HEX VALUE (000034A6) 
62 CD27 ABSOLUTE. HEX VALUE (000034A7) 
243 CLPEN ADDRESS. HEX LOCATION(00001A96) IN CSECT(O4OE8 ) LENGTH(2) 
240 CLPST ADDRESS. HEX LOCATION (00001A90) IN CSECT(O4OE8 ) LENGTH(2) 
183 CNTAD ADDRESS. HEX LOCATION (00001A20) IN CSECT(ONOE8 ) LENGTH(1) 
178 CNTST ADDRESS. HEX LOCATION (00001A1E) IN CSECT(O4OE8 ) LENGTH(6) 
181 CNTWD ADDRESS. HEX LOCATION (0000 1A2A) IN CSECT(O4OE8 ) LENGTH(2) 
384 COMCD ADDRESS. HEX LOCATION(00001C38) IN CSECT(O40E8 ) LENGTH(1) 
69 CPUTP ABSOLUTE. HEX VALUE (00000232) 
138 CR ADDRESS. HEX LOCATION (000019CD) IN CSECT(O40E8 ) LENGTH(1) 
237 CVADR ADDRESS. HEX LOCATION(00001A8A) IN CSECT(O4OE8 ) LENGTH(2) 
238 CVAD1 ADDRESS. HEX LOCATION(OQOQ01A8C) IN CSECT(O40E8 ) LENGTH(2) 
249 CVEXP ADDRESS. HEX LOCATION (00001AA2) IN CSECT(O4OE8 ) LENGTH(2) 
246 CVRID ADDRESS. HEX LOCATION(00001A9C) IN CSECT(O40E8 ) LENGTH(2) 
617 DATER ADDRESS. HEX LOCATION (00001EE2) IN CSECT(O40E8 ) LENGTH(2) 
172 DATF1 ADDRESS, HEX LOCATION (00001A14) IN CSECT(O4OE8 ) LENGTH(2) 
173 DATF2 ADDRESS, HEX LOCATION(00001A16) IN CSECT(O4OE8 ) LENGTH(2) 
132 DATIN ADDRESS. HEX LOCATION (0000194A) IN CSECT(O40E8 ) LENGTH(2) 
622 DATRQ ADDRESS. HEX LOCATION(QOOO1EEC) IN CSECT(O4OE8 ) LENGTH(2) 
174 DAT1 ABSOLUTE. HEX VALUE (00000032) 


O4OE8 - TTY ROUTINE TO SUPPORT FRIEND 


DECLARED 
175 
388 
218 

86 
219 
542 
573 
687 
191 
400 
402 
192 
188 
602 
187 
678 
208 

73 
684 
551 
221 

74 

85 

97 

87 
195 
199 

46 
220 

94 
113 

93 


161 
82 
45 

570 
71 
4y 

701 

702 

703 

627 

6 36 

672 

148 

Va7 

154 

126 

158 

163 

165 

167 

169 

176 

157 


NAME | 


DAT2 

DELAY 
DELCT 
DEVC1 
DFALT 
DFLT1 
DHSAV 
DINNT 
DLADR 
DLAY1 
DLAY2 
DLCNT 
DLIST 
DLMSG 
DLNST 
DMSGL 
DTCSS 
DTENT 
DTINN 
DTOH 

DVALU 
DVCNT 
DVPNT 
EIGHT 
EPRNT 
ERTST 
ERTS 1 
ETOA 

FIVDF 
FIVE 

FORTY 
FOUR 


GODCC 
HEXYF 
HTOE 
HUN 
IDCPT 
IDLE 
IDMG1 
IDMG2 
IDMG3 
IDMSG 
INCMD 
INCMG 
INCOA 
INCOM 
INCO1 
INERR 
IOADR 
IODCO 
IODC1 
TODC2 
IODC3 
IoDc4 
IONST 
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P/N=44 14054 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


ABSOLUTE. HEX VALUE (00000034) 
ADDRESS. HEX LOCATION (00001C40) IN 
DDRESS. HEX LOCATION(00001A6B) IN 
OLUTE. HEX VALUE (0000182E) 
RESS, HEX LOCATION (QOOO1A6C) IN 
RESS. HEX LOCATION (00001E38) IN 
RESS, HEX LOCATION (OOOO1E8A) IN 
HEX LOCATION(00002056) IN 
RESS. HEX LOCATION (00001A36) IN 
RESS. HEX LOCATION (00001C62) IN 
RESS. HEX LOCATION(00001C66) IN 
ESS, HEX LOCATION (00001A3E) IN 
RESS. HEX LOCATION(00001A38) IN 
RESS. HEX LOCATION(00001EC4) IN 
RESS. HEX LOCATION (00001A34) IN 
RESS. HEX LOCATION(0000200A) IN 
RESS. HEX LOCATION(O0001A5E) IN 
OLUTE, HEX VALUE (00001816) : 
RESS. HEX LOCATION(0000204C) IN 
RESS, HEX LOCATION (00001E54) IN 
RESS. HEX LOCATION (00001A6E) IN 
OLUTE. HEX VALUE (00001818) 
OLUTE. HEX VALUE (0000182C) 
LUTE, HEX VALUE (00000008) 
OLUTE. HEX VALUE (00001830) 
RESS. HEX LOCATION (00001A44) IN 
RESS. HEX LOCATION (00001A50) IN 
OLUTE. HEX VALUE (0000001D) 
RESS. HEX LOCATION(00001A6D) IN 
OLUTE. HEX VALUE (00000005) 


OLUTE. HEX VALUE (00000028) 


eo) 
bd 
M 
1) 
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OLUTE. HEX PALue o000eeo 
J28 275 326 372 439 
ABQ a eae LOCATION (000019F6) IN 
ABSOLUTE. HEX VALUE (00001828) 
55 462 54 
ABSOLUTE. HEX et eae he 
285 287 Qu7 454 
ADDRESS. HEX LOCATION (OO0O01E86) IN 
ABSOLUTE. HEX eee eee 
08 313 314 326 363 372 
SOLUTE. HEX VALUE (00000002) 
1 169 188 
areas HEX LOCATION (000020D6) IN 
eat HEX LOCATION (000020E7) IN 
Bee HEX LOCATION (000020F3) IN 
DRE? HEX LOCATION (OOOO1EF6) IN 
PRES? HEX LOCATION (O0001F08) IN 
aoe HEX LOCATION (OOO01FD4) IN 


>a) 
by 
WN 
nun 
e 


2 HEX LOCATION (000019D2) IN 
RESS, HEX LOCATION (000019CE) IN 
RESS. HEX LOC ATION (000019E2) IN 

174017 70 28 
OLUTE. HEX VALUE (00000002) 
RESS. HEX LOCATION(000019EC) IN 

163 313 3 9 

X LOCATION (000019F6) IN 

HEX LOCATION (000019FE) IN 
HEX LOCATION (00001A04) IN 
HEX LOCATION (00001A0E) IN 
HEX LOCATION (00001A18) IN 


a et IN 


PNY YO A20UOODUID AO NOWOSOOOSoMonouit 
DODD OONG aHDOAEANOONGNY 
~m 
tt 
wn 
wn 
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MNOno~] 
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ty 
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CSECT (O4OEB 
CSECT (O40E8 


CSECT (OUOES8 
CSECT (O40E8 
CSECT (O4OE8 
CSECT (O40E8 
CSECT (O4OE8 
CSECT (OUOES 
CSECT (O4OE8 
CSECT (OUOES8 
CSECT (OWOESB 
CSECT (OUOE8 
CSECT (OUOES8 
CSECT (OUOE8 
CSECT (O4OE8 


515 
CSECT (O40E8 
CSECT(O40E8 
CSECT(O4OES 


CSECT (O40ES8 
CSECT (OU0E8 


CSECT (O40E8 


471 522 
CSECT (O40E8 


CSECT (O4OES8 
469 470 


CSECT (O4OE8 
CSECT (O4OES 
CSECT (O4OESB 
CSECT (O40E8 
CSECT (O40E8 


CSECT (O40E8 


CSECT (O40E8 
CSECT (O40E8 
CSECT (O40E8 


CSECT (O40E8 
CSECT (O40ES 
CSECT (O40EB 
CSECT (O4OESB 
CSECT (O4OES 
CSECT (O40ES8 
CSECT (O4OES 


~ i eeeeeeeeeeeeee 
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COPYRIGHT IBM CORP 1976 


LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (45) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (32) 
LENGTH (2) 


LENGTH (7) 


LENGTH (1) 
LENGTH (1) 


LENGTH (4) 
LENGTH (1) 


LENGTH (1) 


LENGTH (1) 


LENGTH (1) 


LENGTH (17) 
LENGTH (12) 


LENGTH (18) 
LENGTH (2) 
LENGTH (2) 


LENGTH (29) 


LENGTH (4) 
LENGTH (4) 
LENGTH (2) 


LENGTH (1) 
LENGTH (4) 


LENGTH (4) 


LENGTH (6) 
LENGTH ( 2) 
LENGTH (6) 
LENGTH (4) 


O4OEB - 


DECLARED 

193 

17 

80 
137 

B14 
423 
612 
417 
451 
88 
185 
182 
697 
207 
6 34 
698 
18 
690 
130 
693 
632 
694 
575 
123 
663 
606 
669 
124 
125 
638 
639 
642 
645 
648 
651 
654 
657 
660 
547 
98 
681 
252 
595 
90 


70 
121 
42 
43 
3 
675 
352 
361 
344 
607 
213 


TLY ROUTINE TO SUPPORT FRIEND 
CROSS~REFERENCE LISTING 


NAME 
JINST 
KMODE 
KYMOD 
LF 
LOOPS 
LOOP1 
LOPMG 
LOPND 
LOPST 
LOST 
LPADR 
LPCNT 
LPEN 
LPEND 
LPENM 
LPEN1 
LPIND 
LPUSG 
LPNST 
LPST 
LPSTM 
LPST1 
MG8 
M1 
M10 
M10A 
M11 
M4 

M6 

M8 
MBA 
M9 
MOA 
M9B 
MOC 
MID 
MIE 
MOF 
NGOOD 
NINE 
NLOOP 
NO 
NOLOP 
ONE 


OPTN2 
OTH24 
OUT 

OUTIN 
O40E8 
PMSGR 
PREPA 
PREPB 
PREPR 
PRMSG 
PRPCD 


ATTRIBUTES AND REFERENCES 


P/N=4414054 


A aia HEX LOCATION (O0001A40) IN CSECT(O4OES8 


2 ee oLure. HEX VALUE (0000181£) 
ABSOLUTE. HEX VALUE (00001824) 
RESS: HEX LOCATION (000019CC) 
OLUTE, HEX VALUE (00001826) 

RESS. HEX LOCATION (00001CA6) 
ESS. HEX LOCATION (00001ED8) 
ESS. HEX LOCATION (00001C96) 
RESS. HEX LOCATION (00001D0A) 
OLUTE. HEX VALUE (00001832) 

RESS. HEX LOCATION (00001A28) 
RESS, HEX LOCATION (00001A2C) 
ESS. HEX LOCATION (000020C0) 
ESS. HEX LOCATION (00001A5C) 
RESS$. HEX LOCATION (00001F04) 
RESS. HEX LOCATION (000020CE) 
OLUTE. HEX VALUE(0000181F) 

RESS. HEX LOCATION (00002086) 
RESS. HEX LOCATION (00001A26) 
RESS. HEX LOCATION (000020A8) 
RESS. HEX LOCATION (00001F00) 
ESS. HEX LOCATION (000020B8) 
ESS. HEX LOCATION (00001E8E) 
OLUTE. HEX VALUE(FFFFFFFF) 

RESS. HEX LOCATION (00001F9E) 
RESS. HEX LOCATION (00001FA8) 
RESS. HEX LOCATION (00001FB4) 
OLUTE. HEX VALUE (FFFFFFFC) 

OLUTE. HEX VALUE (FFFFFFFA) 

RESS. HEX LOCATION (00001F0C) 
RESS. HEX LOCATION (00001F25) 
RESS. HEX LOCATION (00001F2C) 
RESS. HEX LOCATION (00001F42) 
RESS. HEX LOCATION (00001F5A) 
RESS. HEX LOCATION (00001F68) 
RESS. HEX LOCATION (00001F74) 
RESS. HEX LOCATION (00001F80) 
RESS. HEX LOCATION (00001F90) 
RESS. HEX LOCATION (00001B4A) 
OLUTE, HEX VALUE (00000009) 

RESS. HEX LOCATION (0000202E) 
RESS. HEX LOCATION (00001AA8) 
RESS. HEX LOCATION (00001EB6) 
OLURES, HBR YATE {000gRe 


to Dw 


mam & 


mw w 


OLUTE. HEX VALUE (00001810) 
OLUTE. HEX VALUE (00000400) 
HEX VALUE (00000090) 
341 424 549 
LUTE. HEX VALUE (90000001) 
2 354 390 425 


oO Oo 
t 
[ow 
| 
ic3] 
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RESS. HEX LOCATION (00001FF4) 
RESS. HEX LOCATION (00001BDE) 
RESS. HEX LOCATION (00001BF8) 
RESS. HEX LOCATION (00001BCA) 
RESS. HEX LOCATION (00001ECE) 


BES Sees LOCATION (00001A66) 
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IN 
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IN 
IN 


IN 
IN 
IN 
IN 
IN 
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IN 
IN 
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IN 
IN 
IN 
IN 
IN 
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IN 
IN 
IN 
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CT. START (00001900) LENGTH (2054) 


IN 
IN 
IN 
IN 
IN 
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CSECT (O40E8 


CSECT (O40E8 
CSECT (O4OE8 
CSECT (O40E8 
CSECT (OUOES 


CSECT (O40E8 
CSECT (O4OE8 
CSECT (O4OES8 
CSECT (O40E8 
CSECT (O40E8 
CSECT (O40E8 


CSECT (O4OES8 
CSECT (O40E8 
CSECT (O40E8 
CSECT (O40E8 
CSECT (O40E8 
CSECT (O40E8 


CSECT (OSO0E8 
CSECT (O40E8 
CSECT (O4O0E8 


CSECT (O40E8 
CSECT (O40E8 
CSECT (O40E8 
CSECT (O40E8 
CSECT (O40E8 
CSECT (O4OE8 
CSECT (O4OES 
CSECT (O4OES 
CSECT(O40E8 
CSECT (O40EB 


CSECT (O4OES8 
CSECT (O40 ES 
CSECT(O40E8 


397 461 


490 
ESDID(0) 
CSECT (O4OES 
CSECT (O4OE8 
CSECT (OU0ES8 
CSECT (QUOER 
CSECT (O40E8 
CSECT (OOE8 
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wt eee 
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COPYRIGHT IBM CORP 1976 


LENGTH (2) 


LENGTH (1) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (2) 
LENGTH (14) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 


LENGTH (31) 
LENGTH (4) 
LENGTH (16) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 


LENGTH (7) 
LENGTH (8) 
LENGTH (28) 


LENGTH (25) 
LENGTH (3) 
LENGTH (19) 
LENGTH (20) 
LENGTH (10) 
LENGTH (8) 
LENGTH (8) 
LENGTH (13) 
LENGTH (11) 
LENGTH (1) 


LENGTH (27) 
LENGTH (1) 
LENGTH (2) 


LENGTH (18) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 


O40E8 - TTY ROUTINE TO SUPPORT FRIEND 


DECLARED 
210 
211 
209 
457 
379 
382 
186 
206 
214 
215 
572 
202 
204 
205 

96 
95 
116 
117 
122 
72 


99 
571 
569 

92 
597 
223 
133 
212 
256 
273 
295 
298 
311 
327 
332 
342 
101 
107 
108 

91 


130 
374 
201 
131 
464 
481 
488 
507 . 
217 
89 


NAME 
RDADR 
RDCOD 
RDID 
READ 
REDID 
RESET 
RESTR 
RETSV 
RIDCD 
RS TCD 
RTRTN 
R2SAV 
R5SAV 
R7SAV 
SEVEN 
SIX 

SIXTY 
SIXT5 
STH68 
STRTB 


TEN 
TENS 
THOUS 
THREE 
TMG2 
TTTBL 
TTYDT 
TIYID 
TTYOO 
TTY 10 
TTY 12 
TTY15 
TT Y20 
TTY 23 
TTY25 
TTY 26 
TWELV 
TWENY 
TWEN2 
TWO 


UBUFR 
UN PRP 
WORKA 
WORK1 
WRITE 
WR7 

WR710 
WR715 
W7OFC 
ZERO 


ATTRIBUTES 
ADDRESS. 
279 
ADDRESS. 
247 28 
ADDRESS. 
280 
ADDRESS. 
232 
ADDRESS. 
227 
ADDRESS. 
ADDRESS. 

39 Gu 

ADDRESS. 
7 29 

a alee 

ADDRESS. 


3 
DRES 


io] 

| 

Nn 
We Oe 
WwW 


io) 
t 
c& 


E 
6 
1 
E 
7 
RESS. 
RESS. 
OLUTE. 
RESS. 


DRESS. 
DDRESS. 


2 
D 
2 
D 
1 
D 
3 
Ss 
9 
Ss 
m1 
Ss 
91 
S 
2 
Ss 
7 
Ss 
rm 
5 
S 
9 
D 
5 
D 
6 
Ss 
u 
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AND 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 

HEX” 
HEX 
HEX 
HEX 


P/N=4414054 


CROSS-REFERENCE LISTING 


REFERENCES 
LOCATION (00001461) 
LOCATION (0000162) 
LOCATION (00001A60) 
LOCATION (00001D20) 
LOCATION (00001C2E) 
LOCATION (0000 1C34) 
LOCATION (00001A2E) 
LOCATION (00001A5A) 
LOCATION (00001A67} 
LOCATION (00001A68) 
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HEX VALUE (00000232) 


HEX 
HE X 
HEX 
HE X 
HEX 
HEX 
HEX 
HEX 
HE X 
HEX 
HEX 
HEX 
HEX 
5 


yi 


8 
904 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


5 
HEX 
6 


LOCATION (00001AB0) 
LOCATION (00001AB2) 
LOCATION (0000 1AC2) 
LOCATION (00002135) 
LOCATION (00002148) 
LOCATION (00002152) 
LOCATION (0000215C) 
LOCATION (00002166) 
LOC ATION (00002170) 
LOCATION (0000212A) 
LOCATION (00002134) 
LOCATION (0000210C) 
sgcarzgy (o0gg}944} 
93 599 605 
44854059 
LOCATION (00002116) 
LOCATION (00002402) 
LOCATION (00002498) 
LOCATEON (00002480) 
LOCATION (000024D2) 
LOCATION (000024 F4) 
LOCATION (0000250E) 
LOC ATION (00002526) 
LOCATION (00002534) 
LOCATION (00002416) 
LOCATION (0000242A) 
LOCATION (00002438) 
LOCATION (0000244C) 
LOCATION (00002460) 
LOCATION (00002472) 
LOCATION (000024 7E) 
LOCATION (0000248C) 
LOC ATION (000020 F8) 
LOCATION (00002386) 
LOCATION (00001A64 


02 525 662 
i aatae ahaha a 
60 664 


WOON 


4 
2 
6 
1 


P/N= 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 


HEX LOCATION(0000217A) IN 


4414055 


CSECT (O44ESB 
CSECT (OGUEB 
CSECT (O44EB 
CSECT (O44ER 
CSECT (O44ES 
CSECT (O44GEB 
CSECT (O44EB 
CSECT (O44ES 
CSECT (O44EB 
CSECT (O4UES 


CSECT (OS4ESB 
CSECT (O4UES 
CSECT (OGUESB 
CSECT (O44E8 
CSECT(OG4UES 
CSECT (OG4EB 
CSECT (O44 ES 
CSECT (O44ESB 
CSECT (O44E8 
CSECT (O44 E8 
CSECT (O44GEB 
CSECT (O44E8 
CSECT (O44EB 
553 +559 
863. bya 
cSk¢r (ouues 
CSECT (O44EB 
CSECT(OG4EB 
CSECT (O44EB 
CSECT (O44 EB 
CSECT (O44EB 
CSECT (O44 ESB 
CSECT (O44EB 
CSECT(O44ES 
CSECT (O44EB 
CSECT (O44E8 
CSECT (O4UESB 
CSECT (O44 ES 
CSECT (O44ES8 
CSECT (O44E8 
CSECT (O44EB 
CSECT(O44EB 
CSECT (O44EB 
CSECT(O4UEB 


N CSECT (O44ESB 
704 «711 


CSECT (O44E8 


Con 


~ 
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LENGTH ( 2} 
LENGTH (29) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (1) 


— we eee et 


LENGTH (2) 
LENGTH (2) 
LENGTH ( 2} 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2} 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


—_ 


DOL 


LENGTH (2) 

LENGTH (16) 
LENGTH (14) 
LENGTH (30) 
LENGTH (30) 
LENGTH (22) 
LENGTH (21) 
LENGTH (10) 
LENGTH (11) 
LENGTH (17) 
LENGTH (16) 
LENGTH(10) 
LENGTH (16) 
LENGTH (15) 
LENGTH (9) 

LENGTH (10) 
LENGTH (15) 
LENGTH (2) 

LENGTH (26) 
LENGTH (2) 


eS ee ee ee ee, rR Se mae Nee ee et 


) LENGTH (2) 


O44E8 - 4979 ROUTINE TO SUPPORT FRIEND 
CROSS~REFERENCE LISTING 


DECLARED 

898 
903 
908 
928 
913 
918 
923 
437 
230 
104 
231 
725 
731 
777 
99:2 
195 
448 
450 
196 
$52 
808 
191 
983 
218 
91 
989 
742 
216 
217 
103 
116 
138 
119 
105 
199 
203 
123 
232 
113 
122 
112 


180 
100 
45 
7173 
774 
89 


44 
106 3 
1065 
848 
937 
977 

167 

166 


NAME 

DCB2 

DCB3A 
DCB3B 
DCB4A 
DCB41 
DC B42 
DCB4Y3 
DELAY 
DELCT 
DEVC1 
DFALT 
DFLT1 
DFLT2 
DHSAV 
DINNT 
DLADR 
DLAY1 
DLAY2 
DLCNT 
DLIST 
DLMSG 
DLNST 
DMSGL 
DTCSS 
DTENT 
DTINN 
DTOH 

DVAL1 
DVAL2 
DVPNT 
EIGHT 
EIGTY 
ELEVN 
EPRNT 
ERTST 
ERTS1 
FIFTN 
FIVDF 
FIVE 

FORTN 
FOUR 


GO DCC 
HEXFF 
HTOE 
HUN 

HWD80 
IDCPT 


IDLE 

IDMG1 
IDMG3 
IDHSG 
INCMD 
INCAG 
INCOA 
INCOM 


ATTRIBUTES 
ADDRESS. 
573 


OLUTE. 


RESS. 

ESS. 

ESS. 
759 


m mw 


44 

DD 

43 

DD 

57 

DD 

Qy 

DD 

47 

DDRESS. 

91 451 

DDRESS. 

93 

DDRESS. 

38 

DDRESS. 

95 45 

DDRESS. 

08 

DDRESS. 

99 

BSOLUTE. 
636 

RESS. 

RESS. 


473 
RESS. 


RESS. 
OLUTE. 
OLUTE. 


Oo 

i 

a 

a | 

* pmormcds mor 
NOt Gs wt Se 


=e) 
td 
” 


n 
C~ANMN 
we 


AND REFERENCES 

HEX LOCATION (00002184) 
HEX LOCATION (00002185) 
HEX LOCATION (00002198) 
HEX LOCATION (000021CO) 
HEX LOCATION (000021A2) 
HEX LOCATION (000021AC) 
HEX LOCATION (00002186) 
HEX LOCATION (00001C90) 
HEX LOCATION (00001A60) 
HEX VALUE (0000182E) 


HEX LOCATION (00002004) 
HEX LOCATION (00002016) 
HEX LOCATION (00002092) 
HEX LOCATION (00002338) 
HEX LOCATION (00001A1A) 
HEX LOCATION(00001CAE) 
HEX LOCATION (00001CB2) 
HEX LOCATION (00001A22) 
HEX LOCATION(00001A1C) 
HEX LOCATION (000020D0) 
HEX LOCATION (00001A18) 
HEX LOCATION (000022EC) 
HEX LOCATION (00001A4E) 
HEX VALUE (00001816) 
HEX LOCATION (0000232F) 


P/N= 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


RESS. HEX rie a PS IN 
632 694 707 726 32 


4414055 


CSECT (O44E8 
CSECT (O44EB 
CSECT (OUUES 
CSECT (O44EB 
CSECT (O44E8 
CSECT (O44EB 
CSECT (O44ES 
CSECT (O44 EB 
CSECT (OG4ES 


CSECT (O44EB 


N CSECT (O44ESB 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 


HEX haut raises as | IN 
571 576 581 86 


HEX LOCATION(O0001A4A) 
HEX LOCATION (00001A4C) 
HEX VALUE (0000182C) 
HEX VALUE(00000008) 
HEX VALUE (00000050) 
HEX VALUE (00000008) 
HEX VALUE (00001830) 
HEX LOCATION (00001A28) 
HEX LOCATION (00001A34) 
HEX VALUE (0000000F) 
HEX LOCATION (00001A62) 
HEX VALUE(00000005) 
HEX VALUE (00000008) 
HEX VALUE (00000004) 
312. 361411 

765 769 
HEX LOCATION (00001A02) 
HEX VALUE (00001828) 
513 665 
HEX VALUE (0000001a) 
HEX LOCATION (0000208C) 
HEX LOCATION (0000208D) 
HEX VALUE {9000 1812) 
349 361 402 


ty 


701 714 

HEX VALUE (00000002) 

HEX LOCATION (00002542) 
HEX LOCATION (0000255F) 
HEX LOCATION (00002120) 
HEX LOCATION (000021D2) 
HEX LOCATION (00002286) 
HEX LOCATION (000019DE) 


7 
HEX LOCATION (000019DA) 


IN 
IN 


IN 
IN 


IN 


431 


IN 


IN 
IN 


411 


IN 
IN 
IN 
IN 
IN 
IN 
IN 


CSECT (OU4ES 
CSECT (O44ES 
CSECT (O4UES 
CSECT (OGUEB 
CSECT (O44EB 
CSECT (O44E8 
CSECT (O44EB 
CSECT (O44EB 
CSECT (O44EB 
CSECT (O44EB 
CSECT (O44ESB 
CSECT (O44ES8 


CSECT (O44EB 
CSECT(O44ES 
CSECT(O44ES 
CSECT (O44EB 


CSECT (O44ES 
CSECT (O44EB 


CSECT (O44ES8 


483 657 
CSECT (O44ES 


CSECT (O44E8 
CSECT (O44 E8 


426 431 


CSECT (O44E8 
CSECT (O4WESB 
CSECT (O44EB 
CSECT (O4UEB 
CSECT (O44ES8 
CSECT (O44E8 
CSECT (O44ES8 


ee 


eee eee eee 


747 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (45) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (32) 
LENGTH (2) 


LENGTH (7) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 


LENGTH (4) 
LENGTH (1) 


LENGTH (1) 


) LENGTH (1) 


) 
) 


651 


we “Ol ee lll 


LENGTH ( 1) 
LENGTH (1) 


LENGTH (17) 
LENGTH (18) 
LENGTH (2) 
LENGTH (2) 
LENGTH (29) 
LENGTH (4) 
LENGTH (4) 


DECLARED 


173 
205 
146 
177 
176 
197 
99 
468 
823 
462 
495 
106 
221 
190 
186 
1011 
215 
935 
1012 
96 
995 
184 
1007 
933 
1008 
147 
148 
779 
143 
965 
968 
971 
974 
144 
145 
940 
941 
944 
947 
950 
953 
956 
9759 
962 
738 
117 
986 
285 


286 
801 
109 


88 
42 
43 


O44WE8 - 4979 ROUTINE TO SUPPORT FRIEND 


NAME 


INCO1 
INCO2 
INERR 
IOADR 
IONST 
JINST 
LOOPS 
LOOP1 
LOPHG 
LOPND 
LOPST 
LOST 
LOWER 
LPADR 
LPCNT 
LPEN 
LPEND 
LPENHA 
LPEN1 
LPIND 
LPMSG 
LPNST 
LPST 
LPSTM 
LPST1 
MASK1 
MASK2 
MG8 
M1 
M10 
M10A 
M11 
M12 
H4 

M6 

M8 
MBA 
M9 
MOA 
MOB 
MIC 
M9D 
MOE 
MOF 
NGOOD 
NINE 
NLOOP 
NO 


NOCHN 
NOLOP 
ONE 


OPTN2 
OUT 
OUTIN 


P/N=4414055 


CROSS~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


a) 


DRESS. HEX LOCATION (000019 EE) 
349 +653. +~=678 
HEX LOCATION (00001A34) 
HEX VALUE (00000002) 
HEX LOCATION (000019F8) 
HEX LOCATION (000019F6) 
HEX ‘LOCATIEGH (00001824) 
HEX VALUE (00001826) 
HEX LOCATION (00001CE6) 
HEX LOCATION (000020EE) 
HEX LOCATION (00001CD6) 
HEX LOCATION (00001D46) 
HEX VALUE (00001832) 
RESS. HEX LOCATION (00001A54) 
RESS. HEX LOCATION(00001A0C) 
RESS, HEX LOCATION (00001A10) 
RESS. HEX LOCATION (000023EC) 
DRESS. HEX LOCATION (00001A48) 
488 489 
RESS. HEX LOCATION (000021CE) 
RESS. HEX LOCATION(000023FA) 
OLUTE. HEX VALUF(0000181F) 
RESS° HEX LOCATION (00002368) 
RESS. HEX LOCATION (00001A0A) 
RESS. HEX LOCATION (000023D4) 
RESS. HEX LOCATION (000021CA) 
RESS. HEX LOCATION (000023E4) 
OLUTE. HEX VALUE (00008080) 
OLUTE. HEX VALUE (00008FE8) 
RESS. HEX LOCATION (00002096) 
OLUTE. HEX VALUE (FFFFFFFF) 
RESS. HEX LOCATION (0000226A) 
RESS. HEX LOCATION (00002274) 
RESS. HEX LOCATION (00002280) 
RESS. HEX LOCATION (0000229) 
OLUTE. HEX VALUE (FFFFFFFC) 
OLUTE. HEX VALUE (FFFFFFFA) 
RESS. HEX LOCATION (000021D8) 
RESS. HEX LOCATION (000021F1) 
ESS. HEX LOCATION (000021F8) 
ESS. HEX LOCATION (00002208) 
ESS. HEX LOCATION (00002226) 
ESS. HEX LOCATION (00002234) 
ESS. HEX LOCATION (00002240) 
ESS. HEX LOCATION (0000224C) 
RESS. HEX LOCATION(0000225C) 
RESS. HEX LOCATION (0000202A) 
OLUTE. HEX VALUE(00000009) 
RESS. HEX LOCATION (00002310) 


DwmwmDwww Ww 


Le] wm 
td [<3] 
~” n 
1S?) 

Vo pery) 


1 

3 §99 605 625 #271 

HEX LOCATION (00001AC9) 

HEX LOCATION (000020C2) 

HEX VALUE (00009001) 
298 336 341 


727 729 734 
HEX VALUE (00001810) 


oO 
re 
fo} 
® mae 


oO oO 
tt of 
a a 


io) 
t 
& 


FW 2 OW NYO ANDI AN DOO OD LODO OO OO OO OD DO OY WO WO OWNWOD OO OOUOV ODOC 2aVDODWNOYNOWOUOOND IW DOWSO DOW DONO OOANWAONONO NY NWDOONO WOOWOUDNOM 
WWwaw FAO NNW 


SVU #2 aed 3 CNN Be ES Be U1 1 OO Be) Be Ls a I) Be ee IN ee eek ON BT IND > 10 wet Bt OWI LINDO EO PN ES SPD Wp ad ot POY NS aap 
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HEX gma ee ee eae 
519 529 535 & 


IN 


IN 
IN 
IN 


IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 
IN 


IN 


IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 
IN 
1 
9 
IN 
IN 


CSECT (O4UEB 
CSECT (OGUES 


CSECT (O44EB 
CSECT (O44UES 
CSECT (O44E8 


CSECT (O44EB 
CSECT (O44EB 
CSECT(O44EB 
CSECT (O44EB 


CSECT (O44ES 
CSECT (O44EB 
CSECT (O44 E8 
CSECT (OGUEB 
CSECT (O44UEB 
CSECT (O44ES 
CSECT (O4WES 


CSECT (O44E8 
CSECT (O44ES 
CSECT(O44E8 
CSECT (O44E8 
CSECT (O44E8 


CSECT(O44EB 


CSECT (OG4ES 
CSECT (OWES 
CSECT (O44EB 
CSECT (O4UES 


CSECT (O4UES8 
CSECT (O44ES 
CSECT (O44EB 
CSECT (O44E8 
CSECT (O44ES 
CSECT(O44E8 
CSECT (O44ES 
CSECT (O44ES 
CSECT (OU4WE8B 
CSECT (O4UES 


CSECT (OUUES 
CSECT (O44ES 
547 553 
CSECT (O44 E8 


CSECT (OU4EB 
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) LENGTH (2) 
) LENGTH(2) 


) LENGTH(1) 
) LENGTH (4) 
) LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (14) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 


wt eee 


LENGTH (28) 
LENGTH (4) 
LENGTH (16) 
LENGTH (2) 
LENGTH (4) 


) LENGTH(2) 


) LENGTH(7) 
) LENGTH (8) 
) LENGTH(27) 
) LENGTH (21) 


LENGTH (25) 
LENGTH (3) 
LENGTH (19) 
LENGTH (20) 
LENGTH (10) 
LENGTH (8) 
LENGTH (8) 
LENGTH (13) 
LENGTH (11) 
LENGTH (1) 


~—eeeee eeee e e 


) LENGTH(27) 
LENGTH (1 
so - 


) LENGTH(1) 
) LENGTH (2) 


595 


eal Sa) 
mW 
ce 


O44E8 - 4979 ROUTINE TO SUPPORT FRIEND 


DECLARED 


3 
980 
235 
236 
391 
400 
383 
818 
226 
762 
223 
242 
224 
222 
219 
688 
703 
418 
421 
189 
214 
227 
228 
776 
208 
211 
212 
213 
241 
115 
238 
229 
501 
5 26 
6 38 
648 
532 
617 
5 38 
544 
550 
556 
567 
5 96 
602 
608 
114 
124 
627 
142 

90 


514 
658 
118 


NAME 


O44ES 
PMSGR 
POSTC 
PRECR 
PREPA 
PREPB 
PREPR 
PRMSG 
PRPCD 
RCOMP 
RDADR 
RDBLD 
RDCOD 
RDID 

RDIPT 
READ 
READA 
REDID 
RESET 
RESTR 
RETSV 
RIDCD 
RSTCD 
RTRTN 
R2SAV 
R5SAV 
R6SAV 
R7SAV 
SDADR 
SEVEN 
SHIFT 
SIOCD 
SIORT 
SIOR1 
SIOR7 
SIO R8 
SIO1 

51010 
SI02 
S103 

STO4 
SI0O5 
SI06 
SIOT7 
S108 
S109 
SIX 

SIXTN 
S17 

STH68 
STRTB 


S1 
S8 
TEN 
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P/N=4414055 EC=755104 
CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 
592. 598 604 612 619 624 640 718 
CSECT. START(00001900) LENGTH(3186) ESDID(0) 
ADDRESS. HEX LOCATION(000022D6) IN CSECT(O44E8 ) LENGTH (18) 
ADDRESS. HEX LOCATION (00001A66) IN CSECT(O44E8 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00001A68) IN CSECT(OU4E8 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00001COA) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00001C24) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS. HEX LOCATION(OOO01BF6) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS. HEX LOCATION (000020E4) IN CSECT(O44E8 ) LENGTH (2) 
ADDRESS. HEX LOCATION (OOOO1A5SC) IN CSECT(O44E8 ) LENGTH (1) 
ADDRESS. HEX LOCATION (0000206C) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS; HEX LOCATION (00001A57) IN CSECT(O44E8 =) LENGTH(1) 
ADDRESS. HEX LOCATION (Q0001A74) IN CSECT(O44ES ) LENGTH (2) 
ADDRESS. HEX LOCATION (00001A58) IN CSECT(O44E8 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00001A56) IN CSECT(O44E8 ) LENGTH (1) 
ADDRESS. HEX LOCATION (00001A50) IN CSECT(O44E8 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00001F96) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00001FC6) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00001C5A) IN CSECT(O44E8 ) LENGTH (1) 
ADDRESS. HEX LOCATION(00001C60) IN CSECT(O44E8 =) LENGTH(1) 
ADDRESS. HEX LOCATION (00001A12) IN CSECT(O44E8 ) LENGTH(6) 
ADDRESS, HEX LOCATION (00001A46) IN CSECT(O44E8 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00001A5D) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00001A5E) IN CSECT(O4UE8 ) LENGTH(1) 
ADDRESS. HEX LOCATION(00002090) IN CSECT(O44E8 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00001A3A) IN CSECT(O44E8 ) LENGTH(2) 
ADDRESS, HEX LOCATION (00001A40) IN CSECT(O44E8 =) LENGTH (2) 
ADDRESS. HEX LOCATION (00001A42) IN CSECT(O44E8 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00001A44) IN CSECT(O44E8 ) LENGTH(2) 
320. 325 338 368 50 
ADDRESS. HEX LOCATION (00001A72) IN CSECT(O44E8 =) LENGTH (2) 
ABSOLUTE. HEX VALUE (00000007) 
ADDRESS. HEX LOCATION (0000 1A6C) IN CSECT(OG4EB8 ) LENGTH(2) 
ADDRESS. HEX LOCATION(00001A5F) IN CSECT(O4UE8 ) LENGTH(1) 
ADDRESS, HEX LOCATION(00001D5C) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS, HEX LOCATION (00001DB0) IN CSECT(O44E8 =) LENGTH (1) 
ADDRESS. HEX LOCATION(00001F02) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS. HEX LOCATION(OO001F1A) IN CSECT(OUUE8 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00001DCO) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS. HEX LOCATION(00001EC2) IN CSECT(O44E8 =) LENGTH(1) 
ADDRESS. HEX LOCATION (00001DD0) IN CSECT(O44E8 =) LENGTH (1) 
ADDRESS. HEX LOCATION(00001DE0) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00001DFO) IN CSECT(O44E8 =) LENGTH(1) 
ADDRESS. HEX LOCATION (00001E00) IN CSECT(O44E8 ) LENGTH (1) 
ADDRESS. HEX LOCATION (00001E20) IN CSECT(OU4E8 +) LENGTH(1) 
ADDRESS. HEX LOCATION (00001E86) IN CSECT(O4¥E8 ) LENGTH (1) 
ADDRESS. HEX LOCATION (00001E96) IN CSECT(O44E8 ) LENGTH(1) 
ADDRESS. HEX LOCATION (OOO001EA6) IN CSECT(O44E8 ) LENGTH (1) 
ABSOLUTE, HEX VALUE (00000006) 
AESOUUES., HEE gA LUE 490000090 
ADDRESS, HEX LOCATION(QOOO1EE2) IN CSECT(O44E8 =) LENGTH (1) 
ABSOLUTE. HEX VALUE (00001C00) 
4030 502 eeu esa. gay 360 374 401 410 
425 430 4520 460477493 496) 670 686 
ADDRESS. HEX LOCATION (00001D8A) IN CSECT(O44E8 =) LENGTH (1) 
ADDRESS. HEX LOCATION (QO001F3E) IN CSECT(O4UE8 ) LENGTH (1) 
ABSOLUTE. HEX VALUE(0000000A) 
183 543 


O44EB - 4979 ROUTINE TO SUPPORT FRIEND 
CROSS-~REFPERENCE LISTING 
ATTRIBUTES AND REFERENCES 
HEX LOCATION (O000208E) IN CSECT (O44E8B 
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) LENGTH (2) 
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70 

71 

72 

73 

74 

75 

76 

77 
8 33 
1001 
288 
239 
279 
276 
187 
182 
185 
4 33 

87 
273 
274 
282 
863 
868 
873 
878 
883 
888 
853 
858 
8 38 
154 


843 
10 20 
1047 
1050 
1053 
1056 
1059 
1062 
1065 
1023 
10 26 
1029 
1032 
10 35 
1038 
1041 
1044 
828 
1004 
234 

93 
893 


NAME 
CD42 
CD43 
CD44 
CD45 
CD46 
CD4u7 
CD4&8s 
CD49 
CHBIT 
CHBT 
CHIND 
CHNAD 
CL PEN 
CLPST 
CNTAD 
CNTST 
CNTWD 
COMCD 
CPUTP 
CVADR 
CVAD1 
CVRID 
CW010 
cwO11 
CW0O12 
CW013 
CW014 
CWO15 
CwW080 
CW090 
DATER 
DATIN 


DATRQ 
DBM1 
DBM 10 
DBM11 
DBM 12 
DBM13 
DBM 14 
DBM15 
DBM 16 
DBM2 
DBM3 
DBM4 
DBMS 
DB M6 
DBM? 
DBM8 
DBMS 
DC BCH 
DCBC1 
DC BLD 
DC BPT 
DCB1 


ABSOLUTE. 
1034 
ABSOLUTE. 
037 
ABSOLUTE. 
1040 
ABSOLUTE. 
1043 
ABSOLOTE. 
046 
ABSOLUTE. 
1049 
ABSOLUTE. 
1052 

ager oe 
ADDRESS. 
517 


ADDRESS. 
833 


ADDRESS. 
665 


649 
ADDRESS. 
524 
ADDRESS. 
490 
ADDRESS. 
DRESS. 
DRESS. 
DRESS. 
18 
RESS. 
OLUTE. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 


RESS. 


=m 
ty 
nN 
n 
6 


RES 


RESS. 


RESS. 
RESS. 
RESS. 
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HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HE X 
HEX 
HEX 
HE X 
HEX 
HEX 
HEX 
HEX 


WOoOun 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX’ 


P/N= 16 35304 
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ATTRIBUTES AND REFERENCES 


VALUE (000034D2) 
VALUE (000034D3) 
VALUE (000034D4) 
VALUE (000034D5) 
VALUE (000034D6) 
VALUE (000034D7) 
VALUE (000034D8) 
VALUE (0000 34D9) 
LOC ATION (00002102) 
LOCATION (00002396) 


LOCATION (0000 1ACB) 
669 


LOCATION (00001A6E) 
LOCATION (00001A8C) 
LOCATION (00001AB6) 
LOCATION (00001A04) 
LOCATION (00001402) 
LOCATION (00001A0E) 


472 47 
LOCATION (00001C88) 


VALUE (00000232) 
LOCATION (00001AB0) 
LOCATION (00001AB2) 
LOCATION (0000 1AC2) 
LOCATION (0000213E) 
LOCATION (00002148) 
LOC ATION (00002152) 
LOCATION (0000215C) 
LOCATION (00002166) 
LOCATION (00002170) 
LOCATION (0000212A) 
LOCATION (00002134) 
LOCATION (0000210C) 

OCATION (0000194A) 
599 605 
854 859 
OCATTON (00002116) 
LOCATION (00002434) 
LOCATION (000024D0) 
LOCATION (000024 E2) 
LOCATION (00002504) 
LOCATION (00002526) 
LOCATION (00002540) 
LOCATION (00002558) 
LOCATION (00002566) 
LOCATION (00002448) 
LOCATION (0000245C) 
LOCATION (00002470) 
LOCATION (0000247E) 
LOCATION (00002492) 
LOCATION (000024A4) 
LOCATION (000024B0) 
LOCATION (000024BE) 
LOCATION (000020F8) 
LOCATION (00002386) 
LOCATION (00001464) | 
_YALUE [000018 1A) 
LOCATION (0000217A) 


4 
2 
6 
1 


Sew 
BOON 


L 
2 
9 
4 
0 
L 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 


CSECT(O45E8 
CSECT (O45E8 
CSECT(O4SER 
CSECT (O45 E8 
CSECT (O4SE8 
CSECT (OUSE8 
CSECT (O4S5E8 
CSECT (O4SEB 
CSECT (O45E8 
CSECT (O45SE8 


CSECT (O45E8 
CSECT (O45E8 
CSECT (O45E8 
CSECT (O45SEB 
CSECT (O45E8 
CSECT (O4U5E8 
CSECT (O45 E8 
CSECT (O45E8 
CSECT (O45E8 
CSECT (O45E8 
CSECT (OUSE8 
CSECT (O45E8 
cgEgr og 
3 
cSicr(04u5E8 
CSECT (O4SEB 
CSECT(O45E8 
CSECT (O45E8 
CSECT (O45E8 
CSECT (O45E8 
CSECT(O45E8 
CSECT (OUSE8 
CSECT(O4SE8 
CSECT (O4SES8 
CSECT(O45E8 
CSECT(O45E8 
CSECT(O45EB 
CSECT(O45E8 
CSECT(O45E8 
CSECT (O45E8 
CSECT(OUSE8 
CSECT (O4SE8 
CSECT (O45 E8 
cggT coger 


CSECT (OUSER 
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LENGTH (1) 
LENGTH (2) 
LENGTH ( 2} 
LENGTH (2) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (1) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 

LENGTH (16) 
LENGTH (14) 
LENGTH (30) 
LENGTH (30) 


LENGTH (22) 
LENGTH (21) 


LENGTH(10) 


LENGTH (11) 
LENGTH (17) 
LENGTH (16) 


LENGTH (10) 


LENGTH (16) 
LENGTH (15) 


LENGTH (9) 
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LENGTH (2) 
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PASE O7A 


DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
898 DCB2 ADDRESS. HEX LOCATION(00002184) IN CSECT(O4SE8 ) LENGTH (2) 351 672 
573 173 INCO1 ADDRESS. HEX LOCATION(000019EE) IN CSECT(O45E8 ) LENGTH (2) 
903 DCB3A ADDRESS. HEX LOCATION(0000218E) IN CSECT(O45E8 ) LENGTH(2) 16 3 6 
578 205 INCO2 ADDRESS. HEX LOCATION(00001A34) IN CSECT(O45E8 ) LENGTH(2) 
908 DCB3B ADDRESS. HEX LOCATION (00002198) IN CSECT (O45E8 ) LENGTH (2) 206 69 
583 146 INERR ABSOLUTE. HEX VALUE (00000002) 
928 DCB4A ADDRESS. HEX LOCATION (000021C0) IN CSECT(O45E8 ) LENGTH(2) 200 
611 177 IOADR ADDRESS. HEX LOCATION(000019F8) IN CSECT(O45E8 ) LENGTH (1) 
913 DCB41 ADDRESS. HEX LOCATION(000021A2) IN CSECT(O45E8 ) LENGTH(2) 175 348 402 426 ~=665 
591 176 IONST ADDRESS. HEX LOCATION(000019F6) IN CSECT(O45E8 ) LENGTH(4) 
918 DC B42 ADDRESS. HEX LOCATION(000021AC) IN CSECT(O45E8 ) LENGTH (2) 177 3 40 4 
597 197 JINST ADDRESS. HEX LOCATION(00001A24) IN CSECT(O45E8 ) LENGTH(2) 
923 DCB43 ADDRESS. HEX LOCATION(000021B6) IN CSECT(O45E8  ) LENGTH(2) 303 
603 99 LOOPS ABSOLUTE. HEX VALUE (00001826) 
437 DELAY ADDRESS. HEX LOCATION(00001C90) IN CSECT(O45E8 ) LENGTH(1) 277 476 496 
265 468 LOOP1 ADDRESS. HEX LOCATION(00001CE6) IN CSECT(O45E8 ) LENGTH (1) 
230 DELCT ADDRESS. HEX LOCATION(00001A60) IN CSECT(O45E8 ) LENGTH(1) 464 
44g 823 LOPMG ADDRESS. HEX LOCATION(OOOO20EE) IN CSECT(O45E8 ) LENGTH (2) 
104 DEVC1 ABSOLUTE. HEX VALUE (0000182) 469 
167 462 LOPND ADDRESS. HEX LOCATION (00001CD6) IN CSECT(O45E8 ) LENGTH(1) 
231 DFALT ADDRESS. HEX LOCATION (00001061) IN CSECT(O45E8 ) LENGTH(1) 267 
387 632 694 6 32 495 LOPST ADDRESS. HEX LOCATION(00001D46) IN CSECT(O45E8 ) LENGTH(1) 
725 DFLT1 ADDRESS. X LOCATION (00002004) IN CSECT(O45E8 ) LENGTH(1) 266 
259 106 LOST ABSOLUTE. HEX VALUE (00001832) 
731 DFLT2 ADDRESS. HEX LOCATION (00002016) IN CSECT(O45E8 ) LENGTH(1) 172 
260 221 LOWER ADDRESS. HEX LOCATION (00001A54) IN CSECT(O4SE8 ) LENGTH(2) 
777 DHSAV ADDRESS. HEX LOCATION (00002092) IN CSECT(O45E8 ) LENGTH (2) 587 763 
744 7 190 LPADR ADDRESS. HEX LOCATION(00001A0C) IN CSECT(O45E8 ) LENGTH (1) 
992 DINNT ADDRESS. HEX LOCATION(00002338) IN CSECT(O45E8 ) LENGTH(45) 476 
843 186 LPCNT ADDRESS. HEX LOCATION(00001A10) IN CSECT(O45E8 ) LENGTH(2) 
195 DLADR ADDRESS. HEX LOCATION(00001A1A) IN CSECT(O45E8 ) LENGTH (1) 189 474 
457 1011 LPEN ADDRESS. HEX LOCATION (000023EC) IN CSECT(O4SE8 ) LENGTH(14) 
448 DLAY1 ADDRESS. HEX LOCATION(OOOO1CAE) IN CSECT(O45E8 } LENGTH (1) 935 
Guy 215 LPEND ADDRESS. HEX LOCATION(00001A48) IN CSECT(O45E8 ) LENGTH (2) 
450 DLAY2 ADDRESS. HEX LOCATION(00001CB2) IN CSECT(O45E8 ) LENGTH (1) 280 48 9 
Gu7 935 LPENH ADDRESS. HEX LOCATION(000021CE) IN CSECT(O45E8 ) LENGTH (2) 
196 DLCNT ADDRESS. HEX LOCATION (00001A22) IN CSECT(O45E8 ) LENGTH(2) 379 
191 451 454 1012 LPEN1 ADDRESS. HEX LOCATION(000023FA) IN CSECT(O45E8 ) LENGTH(4) 
192 DLIST ADDRESS. HEX LOCATION(00001A1C) IN CSECT (O45E8 ) LENGTH (2) 281 
193 96 LPIND ABSOLUTE. HEX VALUE(0000181F) 
808 DLMSG ADDRESS. HEX LOCATION(000020D0) IN CSECT(O45E8 ) LENGTH (2) 375 463 499 
4 38 995 LPHSG ADDRESS. HEX LOCATION (00002368) IN CSECT(O45E8 ) LENGTH(28) 
191 DLNST ADDRESS. HEX LOCATION(00001A18) IN CSECT(O45E8 ) LENGTH(4) 823 
195-453 184 LPNST ADDRESS. HEX LOCATION(00001A0A) IN CSECT(O45E8 ) LENGTH(4) 
983 DMSGL ADDRESS. HEX LOCATION(000022EC) IN CSECT(O45E8 ) LENGTH(32) 190 
808 1007 LPST ADDRESS. HEX LOCATION (000023D4) IN CSECT(O45E8 ) LENGTH(16) 
218 DTCSS ADDRESS. HEX LOCATION(OOOO1A4E) IN CSECT(O45E8 ) LENGTH (2) 933 
299 933 LPSTM ADDRESS. HEX LOCATION(000021CA) IN CSECT(O45E8 ) LENGTH (2) 
Jo DT ENT ABSOLUTE. HEX VALUE(00001816) 377 
630 636 647 1008 LPST1 ADDRESS. HEX LOCATION(000023E4) IN CSECT(O45E8 ) LENGTH(4) 
989 DTINN ADDRESS. HEX LOCATION(0000232E) IN CSECT(O45F8 +) LENGTH(7) 278 
838 147 MASK1 ABSOLUTE. HEX VALUE (00008080) 
742 DTOH ADDRESS. HEX LOCATION (00002034) IN CSECT(O45E8 ) LENGTH(1) 589 
Hale aoaaes nan 473 571 576 eae 6 614 621 . 148 MASK2 ABSOLUTE. HEX VALUE (00008FE8) 
RESS. HEX LOCATION 1AUA) IN CSECT (O45E8 LENGTH 
728 ( ( ) (2) 779 G8 ADDRESS. HEX LOCATION(000020S6) IN CSECT(O45E8 ) LENGTH(2) 
217 DVAL2 ADDRESS. HEX LOCATION(OOOO1A4C) IN CSECT(O45E8 ) LENGTH(2) 309 
735 143 41 ABSOLUTE. HEX VALUE (FFFFFFFF) 
103 DVPNT ABSOLUTE. HEX VALUE (0000182C) 182 
295 372 965 410 ADDRESS. HEX LOCATION(0000226A) IN CSECT(O45E8 ) LENGTH(7) 
116 EIGHT ABSOLUTE. HEX VALUE(00000008) 799 
5 31 750 3=—753 968 H10A ADDRESS. HEX LOCATION(00002274) IN CSECT(O45E8 ) LENGTH(8) 
138 EIGTY ABSOLUTE. HEX VALUE(00000050) 803 
628 641 971 M11 ADDRESS. HEX LOCATION(00002280) IN CSECT(O45E8 ) LENGTH(27) 
119 ELEVN ABSOLUTE. HEX VALUE(0000000B) 781 
308 339 974 M12 ADDRESS. HEX LOCATION(0000229EF) IN CSECT(O45E8 ) LENGTH(21) 
105 EPRNT ABSOLUTE. HEX VALUE (00001830) 783 
202 144 M4 ABSOLUTE. HEX VALUE (FFFFFFFC) 
199 ERTST ADDRESS. HEX LOCATION(00001A28) IN CSECT(O45E8 ) LENGTH(4) 328 
675 145 M6 ABSOLUTE. HEX VALUE (FFFFFFFA) 
203 ERTS1 ADDRESS. HEX LOCATION(00001A34) IN CSECT(O45E8 ) LENGTH(1) 489 
201 940 M8 ADDRESS. HEX LOCATION(000021D8) IN CSECT(O45E8 ) LENGTH(25) 
123 FIFTN ABSOLUTE. HEX VALUE (0000000F) 779 
561 0 941 MSA ADDRESS. HEX LOCATION(000021F1) IN CSECT(O45E8 ) LENGTH (3) 
232 FIVDF ADDRESS. HEX LOCATION(00001A62) IN CSECT(O45E8 ) LENGTH(1) 275 
389 944 M9 ADDRESS. HEX LOCATION (000021F8) IN CSECT(O45E8 ) LENGTH(19) 
113 FIVE ABSOLUTE. HEX VALUE(00000005) 785 
174 947 MOA ADDRESS. HEX LOCATION(0000220E) IN CSECT(O45E8 ) LENGTH(20) 
122 FORTN ABSOLUTE. HEX VALUE (0000000E) 787 
566 950 MOB ADDRESS. HEX LOCATION (00002226) IN CSECT(O45E8 ) LENGTH(10) 
112 FOUR ABSOLUTE. HEX VALUE (00000004) 789 
188 194 #22 3 1 411 «431 483 657 #429747 953 MOC ADDRESS. HEX LOCATION (00002234) IN CSECT(O45E8 ) LENGTH(8) 
180 GO DCC ADDRESS. HEX LOCATION (00001A02) IN CSECT(O45E8 ) LENGTH(1) 956 M9D ap ot nea HEX LOCATION (00002240) IN CSECT(C45E8 ) LENGTH (8) 
100 HEXFF ABSOLUTE. HEX VALUE (00001828) 959 M9E ADDRESS. HEX LOCATION(0000224C) IN CSECT(O45E8 ) LENGTH (13) 
45 HTOE ABSOLUTE. HEX VALUE 0000001A) 962 MOF ADDRESS. HEX LOCATION (0000225C) IN CSECT(O4SE8 ) LENGTH(11) 
7173 HUN ADDRESS. HEX LOCATION (0000208C) IN CSECT(O45E8 ) LENGTH(1) 738 NGOOD ADDRESS. HEX LOCATION(0000202A) IN CSECT(O45E8 ) LENGTH(1) 
774 HWD80 ADDRESS. HEX LOCATION (0000208D) IN CSECT(O45E8 ) LENGTH(1) | 117 NINE ABSOLUTE, HEX VALUE (00000009) 
89 IDCPT ABSOLUTE. HEX VALUE (90001812) 986 NLOOP ADDRESS. HEX LOCATION (00002310) IN CSECT(O4S5E8 ) LENGTH(27) 
343 348 349 361 £402 411 426 431 651 801 
657 693 701 #714 285 NO ADDRESS. HEX LOCATION (0000 1ACB) IN CSECT(O45E8 L LENGTH (1) 
44 IDLE ABSOLUTE. HEX VALUE(00000002) 326 86511 519 529 535 41 547 553 #559 
170 192 564 593 599 605 625 749 
1015 IDMG1 ADDRESS. HEX LOCATION (00002402) IN CSECT(O45E8 ) LENGTH(17) 286 NOCHN ADDRESS. HEX LOCATION (00001AC9) IN CSECT(O4SE8 ) LENGTH(1) 
1017 IDMG3 ADDRESS. HEX LOCATION(0000241F) IN CSECT(O45E8 ) LENGTH(18) 801 NOLOP ADDRESS. HEX LOCATION (000020C2) IN CSECT(O4SE8 ) LENGTH(2) 
848 IDMSG ADDRESS. HEX LOCATION (00002120) IN CSECT(O45E8 LENGTH (2 109 ONE ABSOLUTE. HEX VALUE(00000001 
937 INCND ADDRESS. HEX biased seas a ) 45E8 , N yi 202 «438 = 398 336 a4¢ 4450 504 = 595 
: IN CSECT(O45E LENGTH 
739 ( ) ( (2) 88 OPTN2 ABSOLUTE. HEX VALUE(00001810) 
977 INCMG ADDRESS. HEX LOCATION(000022B6) IN CSECT(O45E8 ) LENGTH(29) 199 
937 42 out ABSOLUTE. HEX VALUE (00000000) 
167 INCOA ADDRESS. HEX LOCATION(0O00019DE) IN CSECT(O45E8 +) LENGTH (4) 311 378 380 466 740 
171 297 43 OUTIN ABSOLUTE. HEX VALUE (00000001) 
166 INCOM ADDRESS. HEX LOCATION(000019DA) IN CSECT(O45E8 ) LENGTH(4) 315 324 393 439 470 ° 510 #518 328 534 
540 546 552 558 563 569 574 +#$+$§.}j5579 584 


O4SE8 - 4978 ROUTINE TO SUPPORT FRIEND 
CROSS~REPERENCE LISTING 
ATTRIBUTES AND REFERENCES 


DECLARED 


3 
980 
235 
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391 
400 
383 
818 
226 
762 
223 
242 
224 
222 
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688 
703 
418 
421 
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214 
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776 
208 
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115 
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501 
526 
638 
648 
532 
617 
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544 
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596 
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608 
114 
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142 
90 
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PMSGR 
POSTC 
PRECR 
PREPA 
PREPB 
PREPR 
PRMSG 
PRPCD 
RCOMP 
RDADR 
RDBLD 
RDCOD 
RDID 
RDIPT 
READ 
READA 
REDID 
RESET 
RESTR 
RETSV 
RIDCD 
RSTCD 
RTRTN 
R2SAV 
RSSAV 
R6SAV 
R7SAV 
SDADR 
SEVEN 
SHIFT 
SIOCD 
SIORT 
SIOR1 
SIOR7 
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ST010 
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HEX 
HEX 
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HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


LOCATION (00002206) 
LOCATION (00001A66) 
LOCATION (00001A68) 
LOCATION (00001COA) 
LOCATION (00001C24) 
LOCATION (00001BF6) 
LOCATION (000020E4) 
LOCATION (00001A5C) 
LOCATION (0000206C) 
LOCATION (00001A57) 
LOCATION (00001A74) 
LOCATION (00001A58) 
LOCATION (00001A56) 
LOCATION (00001A50) 
LOCATION (00001F96) 
LOCATION (00001FC6) 
LOCATION (00001C5a) 
LOCATION (00001C60) 
LOCATION (00001A12) 


X LOCATION (0000 1A46) 


LOCATION (00001A5D) 
LOCATION (00001A5E) 
LOCATION (00002090) 
LOCATION (00001A3A) 
LOCATION (00001A40) 
LOCATION (00001442) 


LOCATION (00001A44) 
338 36 50 


LOCATION (00001A72) 


HEX VALUE (00000007) 


HEX 
HEX 
HEX 
HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HE X 
HEX 
HEX 


LOCATION (00001A6C) 
616 


LOCATION (00001A5F) 
LOCATION (00001D5C) 


<bQCATION (0000 1DB0) 
X LOCATION (00001F02) 


LOCATION (00001F1A) 
LOCATION (00001DCO) 
LOCATION (00001EC2) 
LOCATION (00001DD0) 
LOCATION (00001DE0) 
LOCATION (00001DFO)} 
LOCATION (00001E00) 
LOCATION (00001E20) 
LOCATION (00001E86) 
LOCATION (0000TE96} 
LOCATION (00001EA6) 


HEX VALUE (00000006) 
HEX VALUE (00000010) 
659. 697 710 


HEX 


LOCATION (00001EE2) 


HEX VALUE (00001C00) 


HEX hagas) baka a 
304 328 347 
452 460 Q7T7 493 


P/N= 


604 612 619 624 
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O48EB - 4964 ROUTINE TO SUPPORT FRIEND P/N=4414056 EC=755104 O48E8 - 4964 ROUTINE TO SIJPPORT FRIEND P/N=4414056 EC=755104 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYPIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
0 -RO. ABSOLUTE. HEX VALUE (00000000) 589 
154 155 160 161 162 303 304 305 346 1049 CHBT ADDRESS. HEX LOCATION(OOOO24EA) IN CSECT (O48E8 ) LENGTH (29) 
350 355 356 357 ° 361 362 363 378 3a7 869 
388 389 392 4O2 4O4 406 4oT 411 412 279 CHIND ADDRESS. HEX LOCATION{(00001A80) IN CSECT(OUBES8 ) LENGTH (1) 
413 417 418 419 419 422 425 Q27 428 682 698 02 
428 ays 44g 452 453 456 470 474 480 230 CHNAD ADDRESS. HEX LOCATION(00001A26) IN CSECT(O48E8 ) LENGTH (2) 
481 4e5 684 685 686 687 688 689 689 597 
703 706 709 712 713 717 718 719 1037 CLMSG ADDRESS. HEX LOCATION(000024B2) IN CSECT(O48ES8 ) LENGTH(15) 
0 ~R1. ABSOLUTE. HEX VALUE pococoey 913 
291 292 293 294 295 296 297 298 299 913 CLNUM ADDRESS. HEX LOCATION (000021C6) IN CSECT(O48ES ) LENGTH (2) 
300 300 301 302 302 375 376 377 377 524 
0 -R2. ABSOLUTE. HEX pAbuE oo00 be) 264 CLPEN ADDRESS. HEX LOCATION (00001A68) IN CSECT(O48E8 ) LENGTH(2) 
335 340 345 368 369 370 W&6 44g 452 483 
u7i 473 480 633 634 639 639 64 3 643 261 CLPST ADDRESS. HEX LOCATION (00001A62) IN CSECT(O48ES8 ) LFNGTH (2) 
654 655 663 663 678 680 693 694 696 489 
697 235 CNDDF ADDRESS. HEX LOCATION (00001A30) IN CSECT (O4BESB ) LENGTH (2) 
0 -R3. ABSOLUTE. HEX abun oocech) 744 
153 158 334 337 367 369 372 4u7 44s 174 CNTAD ADDRESS. HEX LOCATION(000019B8) IN CSECT(O48E8 ) LENGTH(1) 
W4ug 450 472 473 U74 G75 476 477 478 475 
538 5 39 638 639 643 661 663 677 678 169 CNTST ADDRESS. HEX LOCATION (000019B6) IN CSECT(O48EB ) LENGTH (6) 
695 696 7158 7159 174 7 47 
0 eR4. ABSOLOTE. HEX VALUE (OOG00004) 200 CNTSV ADDRESS. HEX LOCATION(000019F8) IN CSECT (O48 E8 ) LENGTH (2) 
309 314 337 339 342 344 345 347 347 653 67 672 674 676 
347 347 348 354 355 705 706 708 709 172 CNTWD ADDRESS. HEX LOCATION(000019C2) IN CSECT(O48E8 ) LENGTH(2) 
711 712 782 784 784 785 786 790 797 169 17 465 472 65 
0 -R5. ABSOLUTE. HEX AxtOE (occ or en.) 426 COMCD ADDRESS. HEX LOCATION(00001C3A) IN CSECT(O48EB ) LENGTH (1) 
306 317 4 33 435 439 464 465 467 468 423 
498 500 501 526 528 536 539 555 557 1066 COUNT ADDRESS. HEX LOCATION (00002582) IN CSECT (O48E8 ) LENGTH (22) 
558 559 562 564 616 618 650 652 653 879 
oF SGe G62 670 671 679 787 788 789 80 CPUTP ABSOLUTE. HEX VALUE (00000232) 
0 -R6. ABSOLUTE. HEX PATUE (o0000006) 258 CVADR ADDRESS. HEX LOCATION (00001A5C) IN CSECT(O48E8 ) LENGTH (2) 
593 594 595 596 597 694 699 755 759 307 
783 791 792 795 796 798 259 CVAD1 ADDRESS. HEX LOCATION (QOOOO1A5E) IN CSECT(O48E8 ) LENGTH (2) 
0 -R7. ABSOLUTE. HEX ALUE (00000007) 306 
159 166 178 180 186 187 189 290 307 270 CVEXP ADDRESS. HEX LOCATION(O00001A74) IN CSECT(O4U8EB ) LENGTH (2) 
310 313 315 321 322 324 326 328 341 324 
353 357 358 359 360 361 362 366 371 267 CVRID ADDRESS. HEX LOCATION(OOO0O1A6E) IN CSECT (O48ES8 ) LENGTH (2) 
373 380 382 389 390 395 397 398 399 322 
400 401 407 408 409 410 411 412 431 874 DATER ADDRESS. HEX LOCATION (00002178) IN CSECT(O4U8EB ) LENGTH (2) 
434 435 438 . 439 442 Guy 451 458 462 657 
466 479 483 489 496 499 502 514 524 143 DATIN ADDRESS. HEX LOCATION (OOCOTON EL IN CSECT (O48E8B L LENGTH (2) 
527 530 532 537 543 553 556 560 563 S504 534 555 570 583 91 629 661 870 
566 568 570 571 575 576 578 581 587 875 885 904 919 929 934 939 
589 605 609 614 617 619 627 632 635 B84 DATROQ ADDRESS. HEX LOCATION(0000218C) IN CSECT (O48F8 ) LENGTH (2) 
6 36 640 644 648 651 657 659 660 664 627 
665 672 673 674 676 682 692 702 704 933 DCBCH ADDRESS. HEX LOCATION(000021EE) IN CSECT (OU8EB ) LENGTH (2) 
707 710 713 714 7158 716 717 718 732 581 
UE 742 751 7157 769 774 777 781 793 1052 DCBC1 aDORP OSs HEX LOCATION (0000250A) IN CSECT(O48ES8 ) LENGTH (26) 
282 ALBRT ADDRESS. HEX LOCATION(00001A83) IN CSECT (O48ES8 ) LENGTH (1) 225 DCBLD ADDRESS. HEX POC RT AON (OOOG ta TC IN CSECT (O4USEB } LENGTH (2) 
436 367 494 512 51 538 uo 593 599 601 
276 ASKHD ADDRESS. HEX LOCATION (00001A7D) IN CSECT (O48 F8 ) LENGTH (1) 603 607 611 244 695 T22 727 731 744 
566 740 TQ7 750 7158 TEé0 764 
278 ASKIT Re O RT Oe anes LOCATION (OOOO1A7F) IN CSECT(O48E8 ) LENGTH (1) 86 DCBPT BBSOLUT Es HEX .UAGUF Se ae a6 
87 BADCC RB pCLOTE: HEX VALUE (0000181C) 4 30 DELAY A POREOS: HEX LOCATION (0000 1C44) IN CSECT (O48E8 ) LENGTH (1) 
231 BYCNT ADDRESS. HEX tae ae ey! IN earcr(oaere ) LENGTH (2) 217 DELCT RODE ES Ss HEX LOCATION (00001A14) IN CSECT (O48E8B ) LFNGTH(1) 
854 BYCTM POT BESS: HEX LOCATION (00002150) IN CSECT (O48 E8 ) LENGTH (2) 97 DEVC1 ABSOLUTE. HEX VALUE (0000182E) 
1025 BYTEC RODE ESS: HEX LOCATION (00002474) IN CSECT(O48ES8 ) LENGTH (10) 218 DFALT SRDS se ate Poca TOMO TAI. IN CSECT (O48E8 ) LENGTH (1) 
165 CCCHK ADDRESS. HEX aaa tour a IN CSECT (O48EB ) LENGTH (4) 898 DPCNT ADDRESS. HEX LOCATION (000021A8) cA CSECT (O48 ES ) LENGTH (2) 
168 359 360 409 410 15 716 496 
168 CCDCP ABSOLUTE. HEX VALUE (00000008) 766 DFLT1 ADDRESS. HEX LOCATION(00002080) IN CSECT(O48E8 ) LFENGTH(1) 
54 CD1B she oOnUTE. HEX VALUE (00003498) 771 DFLT2 ease: HEX LOCATION (00002092) IN CSECT (O48F8 ) LENGTH (1) 
65 CD2A hese eee HEX VALUE (000034AA) 10 28 DFMSG ADORED 2 HEX LOCATION (00002482) IN CSECT(O48EB ) LENGTH(15) 
66 CD2B ane oOuUTEs HEX VALUE (000034AB) 804 DHSAV Bo eens LOCATION (QOOOO20EC) IN CSECT(O48ES8 ) LENGTH (2) 
67 CD2Cc gees HEX VALUE (000034 AC) 1019 DINNT ADORE OD: HEX LOCATION (00002422) IN CSECT(O48F8 ) LENGTH (45) 
68 CD2D (pao OUUTE. HEX VALUE (000034AD) 182 DLADR ADDRES: HEX LOCATION(000019CE) IN CSECT(O48E8 ) LENGTH (1) 
69 CD2E sneer ets HEX VALUE (000034AE) Gy DLAY1 Onn ESS HEX LOCATION (00001C62) IN CSECT(O48BEB ) LENGTH (1) 
70 CD2F aes HEX VALUE (000034AF) 443 DLAY2 RDDRE OS HEX LOCATION (00001C66) IN CSECT(O48EB8 ) LENGTH (1) 
55 CD20 RE ee HEX VALUE (000034A0) 183 DLCNT ei ae ee IN CSECT(O48F8 ) LENGTH (2) 
56 CD21 ose HEX VALUE (000034A1) 179 DLIST ADD REDD HEX LOCATION (000019D0) IN CSECT(O48E8 ) LENGTH (2) 
57 CD22 {ABSOLUTE. HEX VALUE (0000 34A2) B49 DLMSG ne HEX LOCATION (00002146) IN CSECT (O48E8 ) LENGTH (2) 
58 CD23 ‘ager HEX VALUE (000034: 3) 178 DLNST SURES HEX LOCATION(O0O0019CC) IN CSECT(O48E8 ) LENGTH (4) 
59 CD24 gn poouures HEX VALUE (0000 34A4) 10 10 DMSGL ADDRESS: HEX LOCATION (000023D6) IN CSECT(O4SEB ) LENGTH (32) 
60 CD25 cee HEX VALUE (00003485) 226 DRDFR peers, BEX LOCRT TON LOORO INTE) | ea ) LENGTH (2) 
61 CD26 japon HEX VALUE (000034A6) 204 DTCSS ADO ose HEX LOCATION(O00001A00) IN CSECT (O48E8 ) LENGTH (2) 
62 CD27 ABSOLUTE. HEX VALUE (000034A7) 84 DT ENT ABSOLUTE. HEX eave (ocoo ee) 
1021 291 295 520 521 623 624 633 635 654 
63 CD28 ABSOLUTE. HEX VALUE (000034A8) 677 680 736 
1027 10 16 DTINN ADDRESS. HEX LOCATION(00002418) IN CSECT(O48E8 ) LENGTH (7) 
64 CD29 ABSOLUTE. HEX VALUE (0000 34A9) 874 
1030 780 DTOH ADDRESS. HEX LOCATION (O00020AE IN CSECT (O48ES8 ) LENGTH(1) 
71 CD3A ABSOLUTE. HEX VALUE (000034BA) 434 4 499 527 556 63 617 651 
1062 201 DVAL1 ADDRESS. HEX LOCATION(OOOO19FA) IN CSECT (QU8EB ) LENGTH (2) 
72 CD3B ABSOLUTE. HEX VALUE (000034BB) 768 
1065 202 DVAL2 ADDRESS. HEX LOCATION (OOO019FC) IN CSECT(OU8F8 ) LENGTH (4) 
73 CD3Cc ABSOLUTE. HEX VALUE (0000 34BC) 773 
1051 96 DVPNT ABSOLUTE. HEX VALUE (0000182C) 
53 CD4 ABSOLUTE. HEX VALUE (00003484) 296 375 
993 108 EIGHT ABSOLUTE. HEX VALUE (00000008) 
869 CHBIT ADDRESS. HEX LOCATION (0000216E) IN CSECT (O48ES8 ) LENGTH (2) 557 788 791 


O48E8 ~ 4964 ROUTINE TO SUPPORT FRIEND 


DECLARED 

117 

98 
186 
190 
219 
105 
227 
104 


746 
222 
1034 
908 
167 
1046 
928 
229 
93 
45 
801 
238 
144 
208 
289 
311 
333 
336 
349 
365 
374 
384 
82 
44 
1069 
1070 
1071 
889 
968 
1004 
154 
153 
160 
137 
164 
163 
184 
92 
461 
864 
455 
487 
99 
177 
173 
1059 
199 


NAME 
EIGTN 
EPRNT 
ERTST 
ERTS1 
FIVDF 
FIVE 
FORMAT 
FOUR 


FRMAT 
FRMOP 
FRMSG 
FRWRD 
GODCC 
HDMSG 
HDNUM 
HDREC 
HEXFF 
HTOE 
HUN 
IBIBL 
IBIDT 
IBIID 
IBIOO 
IBI10 
IBI12 
IBI15 
IBI20 
IBI23 
IBI25 
IBI26 
IDCPT 
IDLE 
IDMG1 
IDMG2 
IDMG3 
IDMSG 
INCMD 
INCMG 
INCOA 
INCOM 
INCO1 
INERR 
IOADR 
IONST 
JINST 
LOOPS 
LOOP1 
LOPMG 
LOPND 
LOPST 
LOST 
LPADR 
LPCNT 
LPEN 
LPEND 


P/N=44 14056 
CROSS-REFERENCE LISTING 


EC=755104 


ATTRIBUTES AND REFERENCES 


ABSOLUTE. 
09 
ABSOLUTE. 
189 
DDRESS. 
RESS. 
KRESS. 


OLUTE. 


1s) 


RESS. 
RESS. 
RESS. 
RESS< 
RESS. 
RESS. 


S 

7 

D 

2 

D 

2 

D 

8 

D 

4 

D 

5 

D 

8 

D 

8 

D 

2 

S 

1 

5 

8 
DRESS. 
9 
DRESS. 
5 
DRESS. 
8 
D 
1 
D 
0 
D 
4 
D 
0 
D 
3 
D 
9 
D 
5 
D 
8 
D 
9 
S 
6 
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RESS 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 

46 
ESS. 


R 
RESS. 
48 
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HEX 
8 


H 
564 
OLUTE. 

580 


OLUTE. 
323 


5 
: HEX VALUE (00000002) 


prune ©? we 
eno WN @® 


eae une 
ON = 


* At 
wer 


OLUTE. 


HEX VALUE (00000012) 
HEX VALUE (00001830) 
HEX LOCATION(000019DC) IN 
HEX LOCATION (000019E8) IN 
HEX LOCATION(00001A16) IN 
HEX VALUE (00000005) 
HEX LOCATION(00001A20) IN 


HEX VALUE (00000004) 
313. 364 414° 476 


HEX LOCATION (0000203C) IN 


HEX LOCATION (00001A19) IN 
03 TAT 


HEX 
HEX 


LOCATION(OO0024A4) IN 
LOCATION (000021BC) IN 
LOCATION (000019B6) IN 
HEX LOCATION (000024F2) IN 
HEX LOCATION (000021E4) IN 
EX LOCATION(00001A24) IN 
573. 924 
HEX VALUE (00001828) 
585 698 724 
HEX VALUE (0000001A) 
325 484 490 
HEX LOCATION(000020E8) IN 
HEX LOCATION (00001A36) IN 
HEX LOCATION (0000198A) IN 
LOCATION (00001A06) IN 
LOCATION (OO001A8E) IN 
LOCATION (OOOQOTADC) IN 
HEX LOCATION (00001826) IN 
HEX LOCATION (00001B2E) IN 
HEX LOCATION(00001B54) IN 
HEX LOCATION (00001B8C) IN 
4 mM 00 


740 


4 
HEX LOCATION(OO001BA6) IN 


HEX LOCATION(OOOO1TBC4) IN 


HEX VALUE (00001812) 
364 = 


352 414 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


LOCATION (0000259C) IN 
LOCATION (000025AD) IN 
LOCATION (000025B9) IN 
LOCATION (00002196) IN 
LOCATION (00002294) IN 
LOCATION (000023A0) IN 
LOCATION (00001992) IN 
LOCATION(0000198E) IN 
LOCATION (000019A2) IN 
HEX VALUE (00000002) 
HEX LOCATICN(000019AC) IN 
HEX LOCATION (0000192) IN 
HEX LOCATION (000019D8) IN 
HEX VALUE (00001826) 
HEX LOCATION(OO001C9A) IN 
HEX LOCATION (00002164) IN 
HEX LOCATION (00001C8A) IN 
HEX LOCATION (00001CF6) IN 
HEX VALUE (00001832) 
HEX LOCATION (000019C0) IN 
HEX LOCATION(000019C4) IN 
HEX LOCATION (00002540) IN 


x 
is) 
> 


HEX LOCATION (000019F6) IN 
1 482 


CSECT (O48ES 
CSECT (O48ES 
CSECT (OU8ES8 


CSECT (O48E8 


558 690 
CSECT (OUBES 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48EB 
CSECT (O48E8 
CSECT (OU8ES 
CSECT (O48E8 
CSECT (O48E8 


763 767 


CSECT (OU8E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48 E8 
CSECT (O48 E8 
CSECT(O48E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 


684 690 


CSECT (O4U8E8 
CSECT (O48E8 
CSECT (O48 E8 
CSECT (O48 E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (OU8E8 


CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 


CSECT (O48E8 
CSECT (O48 ES 
CSECT (O48E8 
CSECT (O48EB 


CSECT (O48E8 
CSECT (O48EB 
CSECT (O48E8 
CSECT(O48EB 


785 


—_— eel ee eee 


~] 
ee eo er a ee ee ee ee ~] 
NO 


— “ee 


—_— eel 
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LENGTH (4) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (11) 
LENGTH (2) 
LENGTH (1) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (4) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH(17) 
LENGTH (12) 
LENGTH (18) 
LENGTH (2) 
LENGTH (2) 
LENGTH (29) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 


LENGTH (1) 
LENGTH (4) 
LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (2) 
LENGTH (14) 
LENGTH (2) 


O48E8 - 4964 ROUTINE TO SUPPORT FRIEND 
CROSS~REFERENCE LISTING 


DECLARED 

896 
1060 
89 
1022 
171 
1055 
894 
1056 
806 
133 
970 
973 
976 
979 
982 
985 
994 
988 
991 
998 
1001 
134 
135 
943 
944 
947 
950 
953 
956 
959 
962 
965 
223 
776 
109 
1013 
273 
275 
B42 
101 


81 
42 
43 


1007 
394 
403 
386 
859 
213 
749 

1043 
923 


NAME 
LPENM 
LPEN1 
LPIND 
LPMSG 
LPNST 
LPST 
LPSTM 
LPST1 
NG8 
M1 
M10 
M10A 
M10B 
M10D 
M10E 
M10F 
M10G 
M10H 
M10d 
M11 
M12 
M4 

M6 

M8 
M8 A 
M9 
MOA 
MOB 
MOC 
MOD 
MOE 
MOF 
NEGAT 
NG OOD 
NINE 
NLOOP 
NO 
NOCHN 
NOLOP 
ONE 


OPTN2 
OUT 
OUTIN 


04 8E8 
PMSGR 
PREPA 
PREPB 
PREPR 
PRASG 
PRPCD 
RCALB 
RCMSG 
RCNUM 


P/N=4414056 


ATTRIBUTES AND REFERENCES 


ADDRESS. 
ADDRESS. 
266 
OLUTE. 
456 
RESS. HEX 
HEX 
HEX 
HEX 


HEX LOCATION (00002548) 
HEX VALUE (0000181F) 
LOCATION (00002452) 
LOCATION (000019BE) 
LOCATION (00002528) 
LOCATION (000021A0) 
HEX LOCATION (00002538) 
HEX LOCATION (000020F0) 
HEX VALUE (FFFFFFFF) 
HEX LOCATION (00002298) 
HEX LOCATION (000022A8) 
HEX LOCATION (000022B8) 


RESS. HEX LOCATION (000022CCc) 
RESS. HEX LOCATION(000022D6) 
RESS. HEX LOCATION (000022E8) 
RESS. HEX LOCATION (00002320) 
RESS. HEX LOCATION (000022FA) 
RESS. HEX LOCATION(0000230C) 
RESS. HEX LOCATION (00002362) 


HEX LOCATION (00002378) 
HEX VALUE(FFFFFFFC) 
HEX VALUE(FFFFFFFA) 

HEX LOCATION (00002202) 

HEX LOCATION (0000221B) 

HEX LOCATION (00002222) 

HEX LOCATION (00002238) 

HEX LOCATION (00002250) 

HEX LOCATION (0000225E) 

HEX LOCATION (0000226A) 

HEX LOCATION (00002276) 

HEX LOCATION (00002286) 

HEX LOCATION (00001A1A) 

HEX LOCATION (000020A4) 
HEX VALUE(00000009) 

HEX LOCATION (000023FA) 
HEX LOCATION (00001A7A 

4 534 ~=265 

5 HEX LOCATION (00001A7C) 
HEX LOCATION (00002138) 

HE ALUE (00000001) 

297 299 
599 601 

636 659 

HEX VALUE (00001810) 

HEX VALUE (00000900) 

383 459 778 

HEX VALUE (00000001) 

396 ©6432 


463 
561 569 582 


ESS. 
OLUTE. 
RESS. 
RESS. 


X V 
294 
576 
621 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


LOCATION (000023C0) 
LOCATION (00001BDE) 
LOCATION (00001BF8) 
LOCATION (00001BC8) 
LOCATION (0000215A) 
LOCATION (00001A10) 
LOCATION (00002046) 
LOCATION (000024D2) 
LOCATION (000021DA) 


ESS. 
ESS. 

41 
RESS. 
RESS. 
RESS. 


12 0 3 NOB 2 Ne Ge OC CN a La Bt a 2 SION EEA Be Ot a) BO ot LG) Ds Us CD a CO Be 00 Bo CO > OO Be CO 2 OO A) BO EW) BD BD Da CO BO BO OO OO OB ah WI NO LW 2 OD > OD Oe 
mao w 


Dow 


IN 


IN 
IN 
IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 
IN 
9 

IN 
IN 


3 
0 
6 


MWWO 


497 
590 


IN 
IN 
In 
IN 
IN 
IN 
IN 
IN 
IN 


HEX LOCATION(OO0021A4) IN CSECT(OU8E8 


CSECT (O48ES 


CSECT (OU8E8 
CSECT (O48 E8 
CSECT(O48E8 
CSECT (O48E8 
CSECT (OU8E8 
CSECT (O48 E8 


CSECT (O48E8 
CSECT (O48ES8 
CSECT (O48E8 
CSECT(O48E8 
CSECT (O48E8 
CSECT (O48 E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT(O48E8 
CSECT (O48E8 


CSECT(O48E8 
CSECT (OU8E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48EB 
CSECT (O48 E8 
CSECT (O48E8 
CSECT(O48E8 
CSECT (O48EB 


CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 
CSECT (O48E8 


344 372 
607 607 
673 741 
503 515 
615 628 


CT. START(00001900) LENGTH(3276) ESDID(0) 


CSECT (O48E8 
CSECT (O48E8 
CSECT (O48 E8 
CSECT (O48 E8 
CSECT (O48 E8 
CSECT (O48 EB 
CSECT(O48E8 
CSECT (O48E8 
CSECT (O48EB 


EC=755104 


wee es eee ee 


wee eee ee eee 


WALLS 
yes) ee ee 
~j 3 


OWN 


—_ lee eee 
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LENGTH (2) 
LENGTH (4) 


LENGTH (31) 
LENGTH (4) 
LENGTH (16) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 


LENGTH (12) 
LENGTH (13) 
LENGTH (17) 
LENGTH (7) 

LENGTH (15) 
LENGTH (14) 
LENGTH (54) 
LENGTH (14) 
LENGTH (17) 
LENGTH (21) 
LENGTH (34) 


LENGTH (25) 
LENGTH (3) 
LENGTH (19) 
LENGTH (20) 
LENGTH (10) 
LENGTH (8) 
LENGTH (8) 
LENGTH (13) 
LENGTH (11) 
LENGTH (1) 
LENGTH (1) 


LENGTH (27) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 


LENGTH (18) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (13) 
LENGTH (2) 
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O48EB - 


DECLARED 
206 
210 
207 
205 
274 
284 
209 
211 
287 
721 
730 
754 
220 
421 
762 
424 
176 
198 
214 
879 
215 
803 
193 
195 
196 
197 
277 
232 
903 
1031 
738 
221 
107 
237 
216 
493 
523 
574 
598 
647 
681 


508 
511 
516 
565 
6 37 
642 
645 
‘106 
115 
529 
S44 
542 
572 
613 


4964 ROUTINE TO SUPPORT FRIEND 
CROSS~-REFEFENCE LISTING 


NAME 

RDADR 
RDATA 
RDCOD 
RDID 

RDIND 
RDSAV 
RDSID 
RDVRF 
RD1SV 
READ 

READS 
READV 
RECAL 
REDID 
REDVF 
RESET 
RESTR 
RETSV 
RIDCD 
RQCNT 
RSTCD 
RTRTN 
R2SAV 
RSSAV 
R6SAV 
R7TSAV 
SA VHD 
SDADR 
SDIRT 
SDMSG 
SEEK 

SEKOP 
SEVEN 
SIDBC 
SIOCD 
SIORT 
SIOR4 
SIORS 
SIOR6 
STOR? 
SIOR8 


SIRT2 
SIRT3 
SIRT4 
SIRTS 
SIR6 
SIR6A 
SIR6B 
SIX 
SIXTN 
SI4 
SI4A 
SI4AA 
SI5 
SI6 


DNS 1 UT Ue Be Ge OND ONS Oe Un ae Eo U1 2 SI Ss ON es 1 U1 Be 1 ON Be Un Et NB 0 > UT Oe U1 > Gt oe ee SE ON os EN ES BN I A U1 DAD Dt bP ND 3 OD ON 2 UT U1 (dB RD 


ADDRESS. HEX 
17 388 
ADDRESS. HEX 
621 7 
ADDRESS. HEX 
8 319 
anes HEX 
DRESS. HEX 
543 
DRESS. HEX 
550 
DRESS. HEX 
73 
RESS. HEX 
RESS. HEX 
RESS. HEX 
RESS. HEX 
RESS. HEX 
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O64E8 - 4974 ROUTINE TO SUPPORT FRIEND 
CROSS~REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 


DECLARED 
0 


260 
257 
84 
224 
730 
857 
167 
170 
54 
53 
63 
55 
56. 
57 
58 
59 
60 
61 
62 
68 
69 
70 
64 
65 
66 
67 
750 
860 
258 
223 
246 


NAME 
-RO. 


oR1s 


eR2. 


«RSs 


~R4. 


RS. 


-R6. 


eR7. 


ALBRT 
ASKIT 
BADCC 
BYCNT 
BYCTM 
BY TEC 
CCCHK 
CCDCP 
CD1B 
CD2 
CD2F 
CD20 
CD21 
CD22 
CD23 
CD24 
CD25 
CD26 
CD27 
CD3C 
CD3D 
CD3E 
CD30 
CD31 
CD32 
CD33 
CHBIT 
CHBT 
CHIND 
CHNAD 
CLPEN 


> 
w 
2) 
2) 
tt 
ow 
3 


E. 
56 157 
16 321 
50 351 
75 379 
90 409 
48 453 
05 605 
46 
BSOLUTE. 
64 265 
37 338 
BSOLUTE. 
01 306 
37 438 
50 551 
73 577 
94 595 
BSOLUTE. 
55 160 
39 440 
50 564 
95 611 
BSOLUTE. 
77 282 
13 313 
96 497 
38 639 
BSOLUTE. 
74 285 
07 430 
84 485 
33 534 
72 673 
BSOLUTE. 
65 472 
26 674 
BSOLUTE. 
168 
281 
325 
352 
371 
405 
466 
506 
543 
590 
634 
658 
RESS. 
RESS. 
541 


OLUTE. 
RESS. 
RESS. 
RESS. 
RESS. 
325 


OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLOTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
OLUTE. 
RESS. 
RESS. 
RESS. 

62 
528.61 
ADDRESS. 
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nn 
wonouw 
(ee) 


OLUTE. 
370 


HEX VALUE (00000000) 
162. 163 164° 2 
322 323 327 3 
354 364 366 3 
380 381 381 3 
414 417 419 gq 
588 589 600 6 
630 633 636 6 

HEX VALUE (0000900 1) 
266 267 268° 2 
339 339 619 6 

HEX VALUE (00000002) 
311. 332 410° 4g 
440 447 452 4¥y 
558 559 +560 5 
578 579 +580 § 
596 609 610 6 

HEX VALUE (00000003) 
300 303 334 4 
441 442 443 4 
571 572 576 5 
612 616 618 6 

HEX VALUE (00000004) 
303 305 308 3 
314 320 321 4 
501 548 560 6 
666 667 667. 6 

HEX VALUE (00000005) 
350 380 389 3 
431 433 434 4 
495 498 500 5 
536 537 554 5 
677 679 

HEX VALUE (00000006) 
491 524 525° 5§ 
675 678 679 

HEX VALUE (00000007) 
180 182 188° 1 
283 289 291 2 
326 327 328 3 
357 359 «#360 3 
372 373 «37423 
408 416 424 4 
468 473 479 4g 
507 509 512 5 
552 555 556 5 
591 598 608 6 
637. 640 641 6 
661 665 676 6 

HEX LOCATION (0000 1AD7) 
HEX LOCATION (00001AD4) 


HEX VALUE (0000181C) 
HEX_LOCATION (00001A96) 
HEX LOCATION (0000204A) 
HEX LOCATION (00002256) 
HEX LOCATION (00001A2E 

HEX VALUE (00000008) 

HEX ‘VALUE (0000349B) 

HEX VALUE (00003482) 

HEX VALUE (000034AF) 

HEX VALUE (000034A0) 

HEX VALUE (000034A1) 

HEX VALUE (000034a2) 

HEX VALUE (000034A3) 

HEX VALUE (000034A4) 

HEX VALUE (000034A5) 

HEX VALUE (000034A6) 

HEX VALUE (000034A7) 

HEX VALUE (000034BC) 

HEX VALUE (000034BD) 

HEX VALUE (000034BE) 

HEX VALUE (000034B0) 

HEX VALUE (000034B1) 

HEX VALUE (000034B2) 

HEX VALUE (000034B3) 
HEX LOCATION (00002072) 
HEX LOCATION (000022F4) 
HEX LOCATION (00001AD5) 

629 


2 
(os LOCATION (Q0001A94) 


HEX LOCATION (00001ACO) 


P/N=44 14057 


EC=754882 


71. 272 £42273 312 

28 329 340 349 

68 369 373 374 

84 387 389 390 

22 436 441 447 

01 602 603 #42604 

39 640 644 °&645 

68 269 270 #270 

20 

11 413 417 418 

62 546 547 548 

61 568 569 #572 

86 590 591 593 

16 621 

12 413 414 415 

44 445 544 549 

79 587 589 592 

20 

10 311 #49313 313 

63 476 477 481 

32 633 635 £636 

68 669 673 ~°+#&680 

95 396 398 402 

75 478 480 482 

02 504 505 532 

58 614 670 671 

26 527 #4528 #4610 

89 191 263 275 

93 307 4319 323 

33. 3350S 334203344 

61 362 363 #369 

93 397 398 401 

28 432 446 8 450 

83 487 493 #499 

18 520 530 535 

66 570 583 £585 

17 623 624 £629 

42 643 644 645 
IN CSECT(O64E8 ) LENGTH(1) 
IN CSECT(O64E8 ) LENGTH(1) 
IN CSECT(O64E8 ) LENGTH(2) 
IN CSECT(O64E8 ) LENGTH(2) 
IN CSECT(O64E8 ) LENGTH(10) 
IN CSECT(O64E8 ) LENGTH(4) 

42 643 
IN CSECT(O64E8 ) LENGTH(2) 
IN CSECT(O64E8 ) LENGTH(29) 
IN CSECT(O64E8 ) LENGTH(1) 
IN CSECT(O64E8 ) LENGTH(2) 
IN CSECT(O64E8 ) LENGTH(2) 
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O64E8 - 


DECLARED 


243 
176 
171 
174 
885 
760 
388 

77 
240 
241 
252 
249 
770 
141 


775 
745 


863 


218 
83 
392 
211 
213 
214 

94 
242 
648 
654 
6 86 
645 
184 
4O4 
406 
185 
181 
715 
180 
8 36 
202 
81 
842 
664 
216 

93 
259 
105 


95 
188 
192 
112 
215 
102 
720 
851 
219 


4974 ROUTINE TO SUPPORT FRIEND 
CROSS-REFERENCE LISTING 


NAME 


CLPST 
CNTAD 
CNTST 
CNTWD 
COLMN 
COLNM 
COMCD 
CPUTP 
CVADR 
CVAD1 
CVEXP 
CVRID 
DATER 
DATIN 


DATROQ 
DC BCH 
DCBC1 
DCBLD 
DCBPT 
DELAY 
DELCT 
DELT1 
DELT2 
DEVC1 
DFALT 
DFLT1 
DFLT2 
DHSAV 
DINNT 
DLADR 
DLAY1 
DLAY2 
DLCNT 
DLIST 
DLMSG 
DLNST 
DMSGL 
DTCSS 
DTENT 
DTINN 
DTOH 
DVALU 
DVPNT 
EBCBK 
EIGHT 


EPRNT 
ERTST 
ERTS1 
FIFTN 
FIVDF 
PIVE 

FLLMS 
FLMSG 
FORMS 


ATTRIBUTES AND REFERENCES 


ADDRESS. HEX LOCATION(00001ABA) 

ADDRESS. HEX LOCATION (00001A38) 

ADDRESS, HEX LOCATION (00001A36) 

ADDRESS. HEX LOCATION (00001A42) 
178-431 


RESS. HEX LOCATION (00002068) 
RESS. HEX LOCATION (000023184) 


RESS, HEX LOCATION (00001A8A) 
LUTE. HEX VALUE (0000181A) 
605 609 

RESS. HEX LOCATION (00001C64) 


2) 


RESS. HEX LOCATION (00001A834) 
RESS; HEX LOCATION (00001A86) 
RESS; HEX LOC ATION (00001A87) 
OLUTE, HEX VALUE (0000182E) 
RESS. HEX LOCATION (00001A85) 
RESS. HEX LOCATY OR (00001F82) 
RESS. HEX LOCATION (00001F9A) 
RESS. 


ofEX LOCATION (0000 1FF2) 
RESS. HEX LOCATION (00002250) 
ESS. HEX LOCATION (00001A4E) 
ESS. HEX LOCATION (00001C86) 
ESS. HEX LOCATION (00001C8A) 
HEX LOCATION (00001A56) 
X LOCATION (00001A50) 
HEX LOCATION (0000202Cc) 
RESS, HEX LOCATION (00001A4C) 
RESS. HEX LOCATION (00002202) 
RESS. HEX LOCATION (00001A78) 
OLUTE. HEX VALUE (00001816) 
ESS. HEX LOCATPON (00002246) 


mw Ww 
Ov 
oe) 


> 9] 
ty 


SS. 
408 
RESS. 


0 
3) 
Nn 
nn 
e 


ma w 


ve] 


ESS, HEX LOCATION (00001A89) 


OLUTE. HEX VALUE (00000005) 

ESS. HEX LOCATION (00002036) 
ESS. HEX LOCATION (000022A2) 
ESS. HEX LOCATION (00001A8C) 


SPAY SPP WP SP ONY a DE U1 Nt OND De I) UT ND I) en tL ee SI NON We OT Oi ED OD SD OT Ot JE ON DO NO NW WI U1 I) 
mw w 


DOOINSOTNODNWNYOMDUOOWHOUOWATAID SOND ODO AND FOND atl DOWOT OO DKDOVUOU AD NUDOONONODUDUIDNYO SV OODWONDAY FO aQwy M109 OH OKN WOON VOU WOOWMOHAY 
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P/N= 


IN 
IN 
IN 
IN 


DRESS. HEX LOCATION (000023CA) IN 
RESS. HEX LOCATION (00002086) IN 
RESS. HEX LOCATION(00001C5C) IN 
OLUTE. HEX VALUE (00000232) 
RESS. HEX LOCATION (OOOO1TAB4) IN 
RESS. HEX LOCATION(O0001AB6) IN 
RESS. HEX LOCATION (OOOO1ACC) IN 
RESS. HEX LOCATION (O0001AC6) IN 
RESS. HEX LOCATION (0000209A) IN 
RBS, oP, LOCATION (009094) JM 
RESS. HEX LOCATION (000020A4) IN 


IN 
IN 
IN 


IN 
IN 
IN 
IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 


ESS. HEX gar se isieke reer chee IN 
432 479 483 499 03 


IN 


OLUTE. HEX VALUE (0000182C) 
RESS. HEX LOCATTON(OOOO1ADE) IN 
a er ee ae 
674 

OLNTE. HEX VALUE (00001830) 
RESS. HEX LOCATION (OOOO1A5C) IN 
RESS. HEX LOCATION(O0001A68) IN 
OLUTE. HEX VALUE (QOO00000F) 
RESS. HEX LOCATION(00001A88) IN 


4414057 


CSECT (O64E8 
CSECT (O64 E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (064E8 


CSECT (06458 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 

592 746 
CSECT (O64E8 
CSECT(O64E8 
CSECT (O64E8 
CSECT (O64E8 


CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 


CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 
CSECT (06458 
CSECT (O64E8 
CSECT (O64E8 
CSECT (06458 
CSECT (O64E8 
CSECT (O64E8 
CSECT (O64E8 


CSECT(O64E8 


498 501 


CSECT (O64E8 
CSECT (O64E8 


CSECT (O64E8 


EC=754882 


we ee ee ee 


34 


~——ZF eee 


eee ewe eee ee 
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LENGTH (2) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (43) 
LENGTH (2) 
LENGTH (1) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (26) 
LENGTH (2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (45) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (32) 
LENGTH (2) 


LENGTH (7) 
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DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
101 FOUR ABSOLUTE. HEX VALUE (00000004) 132 M1 ABSOLUTE. HEX VALUE(FFFFFFFF) 
177 183 281 330 376 443 606 668 7 171 5 
675 821 M10 ADDRESS. HEX LOCATION (00002160) IN CSECT(O64E8 ) LENGTH(8) 
755 FREQ ADDRESS. HEX LOCATION (0000207C) IN CSECT (Q64E8 ) LENGTH (2) 710 
468 824 M11 ADDRESS. HEX LOCATION(0000216C) IN CSECT(O64E8 ) LENGTH(42) 
866 FREQ1 ADDRESS. HEX LOCATION (00002332) IN CSECT(O64E8 ) LENGTH(24) 690 
755 827 M12 ADDRESS. HEX LOCATION(0000219A) IN CSECT(O64E8 +) LENGTH (46) 
854 FRMG1 ADDRESS. HEX LOCATION (000022C4) IN CSECT(O64E8 ) LENGTH (31) 692 
725 133 M4 ABSOLUTE. HEX VALUE(FFFFFFFC) 
725 FRMSG ADDRESS. HEX LOCATION (00002040) IN CSECT(O64E8 +) LENGTH(2) 297 
493 134 M6 ABSOLUTE. HEX VALUE(FFFFFFFA) 
169 GODCC ADDRESS, HEX LOCATION (00001A36) IN CSECT(O64E8 ) LENGTH(1) 44g 
167 170 796 M8 ADDRESS. HEX LOCATION(000020CE) IN CSECT(O64E8 ) LENGTH(25) 
226 HERBL ADDRESS. HEX LOCATION(00001A9A) IN CSECT (O64E8 ) LENGTH (1) 688 
301 797 MBA ADDRESS. HEX LOCATION(000020E7) IN CSECT (06458 ) LENGTH (3) 
142 HERDT ADDRESS. HEX LOCATION(0000198A) IN CSECT(O64E8 ) LENGTH(54) 242 
576 8006 M9 ADDRESS. HEX LOCATION(O00020EE) IN CSECT(O64E8 ) LENGTH(19) 
206 HERID ADDRESS. HEX LOCATION(00001A7E) IN CSECT (O64E8 ) LENGTH (2) 694 
253 287 803 MOA ADDRESS. HEX LOCATION(00002104) IN CSECT(O64E8 ) LENGTH(20) 
262 HEROO ADDRESS. HEX LOCATION(00001AD8) IN CSECT(O64E8 ) LENGTH(1) 696 
138 806 MOB ADDRESS. HEX LOCATION (0000211C) IN CSECT(O64E8 ) LENGTH(10) 
279 HER10 ADDRESS. HEX LOCATION(00001B16) IN CSECT(O64E8 +) LENGTH(1) 698 
282 809 MOC ADDRESS. HEX LOCATION(0000212A) IN CSECT(O64E8 ) LENGTH(8) 
299 HER12 ADDRESS. HEX LOCATION(00001B58) IN CSECT(O64E8 ) LENGTH(1) 700 
288 296 653 6 812 M9D ADDRESS. HEX LOCATION (00002136) IN CSECT(O64E8  ) LENGTH(8) 
302 HER15 ADDRESS. HEX LOCATION(00001B60) IN CSECT(O64E8 ) LENGTH(1) 702 
335 815 M9E ADDRESS. HEX LOCATION(00002142) IN CSECT(O64E8 ) LENGTH(13) 
315 HER20 ADDRESS. HEX LOCATION (00001B86) IN CSECT(O64E8 ) LENGTH(1) 704 
391 663 618 MOF ADDRESS. HEX LOCATION(00002152) IN CSECT(O64E8 ) LENGTH(11) 
331 HER23 ADDRESS. HEX LOCATION(00001BBE) IN CSECT(O64E8 ) LENGTH (1) 706 
377 4 26 454 460 627 647 660 NGOOD ADDRESS. HEX LOCATION(00001FB2) IN CSECT(O64E8 ) LENGTH(1) 
336 HER25 ADDRESS. HEX LOCATION(00001BCC) IN CSECT(O64E8 ) LENGTH(1) 309 
304 106 NINE ABSOLUTE. HEX VALUE (00000009) 
346 HER26 ADDRESS. HEX LOCATION (OQOOQO1BEA) IN CSECT(O64E8 ) LENGTH(1) 308 360 
341 839 NLOOP ADDRESS. HEX LOCATION(00002226) IN CSECT(O64E8 ) LENGTH(28) 
90 HEXFF ABSOLUTE. HEX VALUE (00001828) 708 
459 511 516 622 649 650 655 656 255 NO ADDRESS. HEX LOCATION (0000 1AD2) IN CSECT(O64E8 ) LENGTH(1) 
710 HMG2 ADDRESS. HEX LOCATION(00002022) IN CSECT(O64E8 ) LENGTH(2) 295 470 489 22 40 
283 256 NOCHN ADDRESS. HEX LOCATION (00001AD3) IN CSECT(O64E8 ) LENGTH(1) 
45 HTOE ABSOLUTE. HEX YALUE (000000 1A) 516 51 
276 290 451 458 708 NOLOP ADDRESS. HEX LOCATION (0000201E) IN CSECT(O64E8 ) LENGTH(2) 
683 HUN ADDRESS. HEX LOCATION(OOO01FEE) IN CSECT(O64E8 ) LENGTH(1) 424 
672 98 ONE ABSOLUTE. HEX VALUE (00000001) 
79 IDCPT ABSOLUTE. HEX VALUE (00001812) 265 267 305 310 334 ° 401 507 559 624 
312 317 318 330 367 600 606 652 658 
Wy IDLE ABSOLUTE. HEX VALUE (00000002) 128 ONE32 ABSOLUTE. HEX VALUE (00000084) 
880 IDMG1 ADDRESS. HEX LOCATION (00002398) IN CSECT(O64E8 ) LENGTH(17) 78 OPTN2 REOORULE: HEX VALUE (00001810) 
881 IDMG2 ADDRESS. HEX LOCATION (000023A9) IN CSECT(O64E8 ) LENGTH(12) 42 out Beer ans ET ne eee 
882 IDMG3 ADDRESS. HEX LOCATION(000023B5) IN CSECT (O64E8 ) LENGTH(18) 43 OUTIN ABSOLUTE. HEX VALUE {9000000 1) 
251 284 294 358 394 429 469 474 488 494 
780 IDMSG ADDRESS. HEX LOCATION (OOOO20AE) IN CSECT(O64E8 +) LENGTH(2) 513 521 531 539 553 557 567 584 
293 3 O64E8 CSECT. START(00001900) LENGTH(2824) ESDID(0) 
794 INCMD ADDRESS. HEX LOCATION (000020CA) IN CSECT(O64E8 =) LENGTH(2) 3 
661 833 PMSGR ADDRESS. HEX LOCATION(Q00021EC) IN CSECT(O64E8 ) LENGTH(18) 
830 INCMG ADDRESS. HEX LOCATION(000021CC) IN CSECT(O64E8 ) LENGTH(29) 735 
794 356 PREPA ADDRESS. HEX LOCATION (00001C02) IN CSECT(O64E8 ) LENGTH(1) 
156 INCOA ADDRESS. HEX LOCATION(00001A12) IN CSECT(O64E8 +) LENGTH(4) 353 
160 266 365 PREPB ADDRESS. HEX LOCATION (00001C1C) IN CSECT(O64E8 ) LENGTH(1) 
155 INCOM ADDRESS. HEX LOCATION(OOOO1AQE) IN CSECT(O64E8 ) LENGTH(4) 355 82 
320 632 348 PREPR ADDRESS. HEX LOCATION (OO001BEE) IN CSECT(O64E8 ) LENGTH(1) 
162 INCO1 ADDRESS. HEX LOCATION(00001A22) IN CSECT(O64E8 ) LENGTH (2) 229 
158 318 0 8 735 PRMSG ADDRESS. HEX LOCATION (00002054) IN CSECT(O64E8 ) LENGTH(2) 
135 INERR ABSOLUTE. HEX VALUE (00000002) 357 
189 207 PRPCD ADDRESS. HEX LOCATION (00001A80) IN CSECT(O64E8 ) LENGTH(1) 
166 IOADR ADDRESS. HEX LOCATION (00001A2C) IN CSECT(O64E8 +) LENGTH(1) 349 379 
164 317 =367 204 RDADR ADDRESS. HEX LOCATION (00001A7B) IN CSECT(O64E8 ) LENGTH(1) 
165 IONST ADDRESS. HEX LOCATION(OOOO1A2A) IN CSECT(O64E8 +) LENGTH(4) 285 604 
166 322 205 RDCOD ADDRESS. HEX LOCATION (O0001A7C) IN CSECT(O64E8 ) LENGTH(2) 
186 JINST ADDRESS. HEX LOCATION (00001A58) IN CSECT(O64E8 +) LENGTH(2) 250 287 
272 203 RDID ADDRESS. HEX LOCATION(OOO0O1A7A) IN CSECT(O64E8 +) LENGTH(1) 
89 LOOPS ABSOLUTE. HEX VALUE (00001826) 286 
244 435 456 383 REDID ADDRESS. HEX LOCATION(00001C52) IN CSECT(O64E8 ) LENGTH(1) 
427 LOOP1 ADDRESS. HEX LOCATION(OOO01CCA) IN CSECT (O64E8 ) LENGTH (1) 231 
423 386 RESET ADDRESS. HEX LOCATION (00001C58) IN CSECT(O64E8 ) LENGTH(1) 
740 LO PMG ADDRESS. HEX LOCATION (00002055) IN CSECT(O64E8 ) LENGTH (2) 232 
428 178 RESTR ADDRESS. HEX LOCATION (00001A46) IN CSECT(O64E8 ) LENGTH(6) 
421 LOPND ADDRESS. HEX LOCATION (QOOOO1CBA) IN CSECT(O64E8 ) LENGTH (1) 443 445 
235 785 RETRY ADDRESS. HEX LOCATION(000020B8) IN CSECT(O64E8 ) LENGTH(2) 
455 LOPST ADDRESS. HEX LOCATION(00001D2E) IN CSECT(O64E8 ) LENGTH(1) 487 
234 869 RETR1 ADDRESS. HEX LOCATION (0000234E) IN CSECT(O64E8 +) LENGTH(24) 
96 LOST ABSOLUTE. HEX VALUE (00001832) 785 
161 200 RETSV ADDRESS. HEX LOCATION (00001A74) IN CSECT(O64E8 ) LENGTH(2) 
179 LPADR ADDRESS. HEX LOCATION (00001A40) IN CSECT(O64E8 ) LENGTH(1) : 263 29 47 
435 208 RIDCD ADDRESS. HEX LOCATION (00001A81) IN CSECT(O64E8 ) LENGTH(1) 
175 LPCNT ADDRESS. HEX LOCATION(00001A44) IN CSECT(O64E8 ) LENGTH(2) 384 
178 433 209 RSTCD ADDRESS. HEX LOCATION(00001A82) IN CSECT(O64E8 ) LENGTH(1) 
876 LPEN ADDRESS. HEX LOCATION (00002382) IN CSECT(O64E8 +) LENGTH(14) 387 
7192 685 RTRIN ADDRESS. HEX LOCATION(OOOO1FFO) IN CSECT(O64E8 ) LENGTH(2) 
201 LPEND ADDRESS. HEX LOCATION(00001A76) IN CSECT(O64E8 ) LENGTH(2) 665 681 
247 448 4 195 R2SAV ADDRESS. HEX LOCATION (00001 46a) IN CSECT(O64E8 ) LENGTH(2) 
792 LPENM ADDRESS. HEX LOCATION(000020C6) IN CSECT(O64E8 ) LENGTH(2) 306 332 410 418 437 5 4 
344 197 R4SAV ADDRESS. HEX LOCATION(OOOO1A6E) IN CSECT(O64E8 ) LENGTH(2) 
877 LPEN1 ADDRESS. HEX LOCATION (00002390) IN CSECT(O64E8 ) LENGTH(4) 46 3 
248 198 RSSAV ADDRESS. HEX LOCATION (0000170) IN CSECT (O64E8 L LENGTH (2) 
86 LPIND ABSOLUTE, HEX VALUE (000018 1F) ee 407 430 434 475 85 495 505 532 
848 LPMSG ADDRESS. HEX LOCATION (00002280) IN CSECT(O64E8 +) LENGTH(31) 199 R7SAV ADDRESS. HEX LOCATION(00001A72) IN CSECT(O64E8 ) LENGTH(2) 
173 LPNST ADDRESS. HEX LOCATION(QO001A3E) IN CSECT(O64E8 ) LENGTH(4) 225 SDADR ADDRESS> HEX LOCNETON (00001498) IN CSECT(O64E8 ) LENGTH(2) 
872 LPST ADDRESS. HEX LOCATION(0000236A) IN CSECT(O64E8 +) LENGTH(16) 104 SEVEN ABSOLUTE. HEX VALUE(00000007) 
790 LPSTM ADDRESS. HEX LOCATION (000020C2) IN CSECT(O64E8 ) LENGTH(2) 210 SLOCD ADDRESS. HEX LOCATION(00001A83) IN CSECT(O64E8 +) LENGTH(1) 
873 LPST1 ADDRESS. HEX LOCATION(0000237A) IN CSECT(O64E8 ) LENGTH(4) 4 86 STOR Po Ree: HEX LOCATION (00001D90) IN CSECT(O64E8 ) LENGTH(1) 
688 MG8 ADDRESS. HEX LOCATION(OOOO1FF6) IN CSECT(O64E8 ) LENGTH(2) 492 SIOR3 ADDRESS. HEX LOCATION (00001DA0) IN CSECT(O64E8 ) LENGTH(1) 
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O68E8 - 4973 ROUTINE TO SUFFORT FRIEND P/N=4414058 EC=755104 PAGE 05 O68E8 - 4973 ROUTINE TO SUPFORT FEFIEND P/N=4414058 EC=755104 PAGE O5A 
CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM C&P 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
0 -RO. ABSOLUTE. HEX VALUE (00000000) ; 873 
156 157 162 163 164 272 273 274 315 69 CD3D ABSOLUTE. HEX VALUE (OQ00034BD) 
319 324 325 326 330 331 332 347 356 
357 358 361 371 373 375 376 380 381 70 CD3E ABSOLUTE. HEX VALUE (000034BE) 
382 386 387 388 388 391 394 396 397 901 
397 416 421 W244 426 429 443 448 454 71 CD3F ABSOLUTE. HEX VALUE (000034CC) 
455 460 599 600 611 612 613 614 615 882 
eae 616 630 633 636 639 640 644 645 64 CD30 Beye HEX VALUE (00003480) 
0 R11. ABSOLUTE. HEX VALUE (00000001) 65 CD31 ABSOLUTE. HEX VALUE (000034B1) 
265 266 267 268 269 269 270 271 271 864 
344 345 346 346 66 CD32 ABSOLUTE. HEX VALUE (000034B2) 
0 -R2. ABSOLUTE. HEX Marae eae 876 
304 309 314 336 338 339 417 418 420 67 CD33 ABSOLUTE. HEX VALUE (000034B3) 
424 425 W4y G45 4&7 454 459 469 557 879 
558 559 561 562 569 570 571 572 579 53 CD6 ABSOLUTE. HEX VALUE (00003486) 
580 583 584 588 589 590 591 597 601 831 
ae 604 605 606 607 620 621 623 624 756 CHBIT BORA eee HEX LCCATION (00002084) IN CSECT(O68E8 ) LENGTH (2) 
0 -R3. ABSOLUTE. HEX Ce Pee 871 CHBT ADDRESS. HEX LOCATION (00002312) IN CSECT(O68E8 ) LENGTH (29) 
155 160 303 306 337 338 344 419 420 756 
421 422 446 447 44s G4ug 450 451 452 259 CHIND ADDRESS. HEX LOCATION (OOOO1AD7) IN CSECT (O68E8 ) LENGTH (1) 
555 560 561 575 582 583 587 590 598 609 625 629 
600 603 606 622 623 224 CHNAD ADDRESS. HEX LOCATION (00001A96) IN CSECT(O68E8 ) LENGTH (2) 
0 ~R4. ABSOLUTZ. HEX Se a iat 540 
278 283 306 308 311 313 314 316 316 247 CLPEN ADDRESS. HEX LOCATION(00001AC2) IN CSECT (O68E8 ) LENGTH (2) 
316 316 317 323 324 470 489 490 49Qu 457 
508 509 513 559 571 632 633 635 636 244 CLPST ADDRESS. HEX LOCATION(OOOO1ABC) IN CSECT(O68E8 ) LENGTH (2) 
638 639 648 668 670 670 671 672 676 464 
683 176 CNTAD ADDRESS. HEX LOCATION (00001A38) IN CSECT(O68E8 ) LENGTH (1) 
0 ~R5.. ABSOLUTE. HEX Eee ee ooe.) Wg 
275 286 357 387 396 402 403 405 409 171 CNTST ADDRESS. HEX LOCATION (00001A36) IN CSECT(O68EF8 ) LENGTH (6) 
4714 437 438 44Q 44 488 491 493 495 176 177 44S 
497 507 510 512 514 516 517 544 945 174 CNTWD ADDRESS. HEX LOCATION (00001A42) IN CSECT(O68E8 ) LENGTH (2) 
547 548 565 569 673 674 675 676 680 171 178 438 446 T47 
682 899 COLMN ADDRESS. HEX LOCATION(QOOO023FC) IN CSECT(O68F8 ) LENGTH (43) 
0 -R6. ABSOLUTE. HEX eee eo eae 766 
472 479 485 503 536 537 538 539 540 766 COLNM ADDRESS. HEX LOCATION (00002098) IN CSECT(O68E8 ) LENGTH (2) 
621 626 669 677 678 681 682 684 563 
0 ak Vs ABSOLUTE. HEX ey eae a 395 CONCD ADDRESS. HEX LOCATION (00001C72) IN CSECT (O68E8 ) LENGTH (1) 
161 168 180 162 188 189 191 264 276 392 
279 282 264 290 291 293 295 297 310 78 CPUTP ABSOLUTE. HEX VALUE (00000232) 
322 326 327 328 329 330 331 335 340 406 
342 349 351 358 359 364 366 367 368 244 CVADR ADDRESS. HEX LOCATION (OOOO1AB6) IN CSECT(O68E8 ) LENGTH (2) 
369 370 376 377 378 379 380 381 400 276 
404 405 4Q8 409 412 415 423 431 435 242 CVAD1 ADDRESS. HEX LOCATION (OOOO1AB8) IN CSECT(O68EF8 ) LENGTH (2) 
439 453 457 464 473 475 481 486 492 275 
496 499 505 511 515 518 519 521 523 253 CVEXP ADDRESS. HEX LOCATION (OQOOO1TACE) IN CSECT(O68E8 ) LENGTH (2) 
524 530 932 542 546 549 554 563 566 293 
567 577 581 594 596 597 601 602 609 250 CVRID ADDRESS. HEX LOCATION (O00001AC8) IN CSECT (O68E8 ) LENGTH (2) 
619 629 631 634 637 640 641 642 643 291 
644 645 654 660 663 667 679 680 776 DATER ADDRESS. HEX LOCATION (OO0020AC) IN CSECT (O68EF8 ) LENGTH (2) 
261 ALBRT ADDRESS. HEX LOCATION (O00001AD9) IN CSECT (O68E8 ) LENGTH (1) 594 
406 ; 141 DATIN ADDRESS. HEX ieee LC | IN CSECT (O68E8 b LENGTH (2) 
258 ASKIT ADDRESS. HEX LOCATION(0O0001AD6) IN CSECT(O68E8 ) LENGTH (1) 477 483 501 526 534 51 598 603 752 
521 523 757 762 777 782 792 797 
85 BADCC Apo Omers HEX VALUE (0000181C) 781 DATRQ CT eee HEX LOCATION(000020B6) IN CSECT(O68E8 ) LENGTH (2) 
227 BITBL ty iam HEX LOCATION (OOOO1A9C) IN CSECT (O68E8 ) LENGTH (1) 751 DCBCH aa HEX LOCATION (0000207A) IN CSECT(O68E8 ) LENGTH (2) 
142 BITDI Sag HEX LOCATION(0000198A) IN CSECT (O68E8 ) LENGTH (54) 874 DCBC1 EA HEX LOCATION (00002332) IN CSECT(O68E8 ) LENGTH (26) 
207 BITID ADDRESS: HEX LCCATION(00001A80) IN CSECT(O68E8 ) LENGTH (2) 219 DC BLD ee aa Te tanaial i) sila 37 nahi IN CSECT (O68E8 ) LENGTH (2) 
263 BITOO eee HEX LOCATION (QOOO1ADA) IN CSECT (O68E8 ) LENGTH (1) 84 DCBPT ppg Luree air iene oe eee 
280 BIT10 Saute HEX LOCATION(00001B18) IN CSECT(O68E8 ) LENGTH (1) 399 DELAY SS apa HEX LOCATION (OOO001C7A) IN CSECT (O068E8 ) LENGTH (1) 
302 BIT12 ADRESS 3 HEX BOE BAT Oe weeee ree) IN CSECT (O68E8 ) LENGTH (1) 212 DELCT hage HEX LOCATION (00001A86) IN CSECT (O68E8 ) LENGTH (1) 
305 BIT15 ai HEX LOCATION (OOOO1B6A) IN CSECT(O68E8 ) LENGTH (1) 215 DELT1 BDDRESS» BEX LOCATION (00001A89) IN CSECT(O68E8 ) LENGTH (1) 
318 BIT20 aug eee LOCATION (00001B90) IN CSECT(O68E8 ) LENGTH (1) 216 DELT2 RUDRES Oe Het LOCATION (QOOO1TA8A) IN CSECT (O68E8 ) LENGTH (1) 
334 BIT23 ty adler HEX eae te fear a aay eh ra aaa ) LENGTH (1) 95 DEVC1 ct ala HEX VALUE (0000182E) 
343 BIT25 ang HEX LOCATION (QO0001BE2) IN CSECT (O68E8 ) LENGTH (1) 213 DFALT a alae ea pea 4 Oe IN CSECT (O68E8 ) LENGTH (1) 
353 BIT26 see HEX LOCATION(00001C00) IN CSECT(O68E8 ) LENGTH (1) 650 DFLT1 Oa HEX LOCATION (0O0001F88) IN CSECT (O68E8 ) LENGTH (1) 
225 BYCNT pee yt HEX. Cena TOnOrew kee IN CSECT (O68E8 ) LENGTH (2) 656 DFLT2 oh Aa HEX LOCATION (OOOO1FA0) IN CSECT(O68E8 ) LENGTH (1) 
736 BYCTHM a aa HEX LOCATION (0000205C) IN CSECT (O68E8 ) LENGTH (2) 690 DHS AV Aaa a HEX LOCATION (00002000) IN CSECT(O68E8 ) LENGTH (2) 
868 BYTEC aa HEX LOCATION (00002304) IN CSECT(O68E8 ) LENGTH (10) 856 DINNT SE ata HEX LOCATION (0000226E) IN CSECT(O68E8 ) LENGTH(45) 
167 CCC HK ADDRES Se angen aoe ago Rae Cohen ore ) LENGTH (4) 184 DLADR et a HEX LOCATION (OOOO1TA4E) IN CSECT (O68E8 ) LENGTH (1) 
170 CCDCP Cre EE ar el parece ae 411 DLAY1 EBDRESS. HEX LOCATION (00001C9C) IN CSECT (O68E8 ) LENGTH (1) 
54 CD1BE A cates HEX VALUE (00003498) 413 DLAY2 ict HEX LOCATION (QOOO1CAO) IN CSECT(O68E8 ) LENGTH (1) 
63 CD2F CET epee HEX VALUE (0000 34AF) 185 DLCNT ne ae IN CSECT (O68E8 ) LENGTH (2) 
45 CD20 CCF oe HEX VALUE (000034A0) 181 DLIST apn ES HEX LOCATION(00001A50) IN CSECT(O68E8 ) LENGTH (2) 
56 CD21 Ree ee HEX VALUE (000034A1) 721 DLMSG foo HEX LOCATION (0000203E) IN CSECT(O68E8 ) LENGTH (2) 
57 CD22 TE aeoiaeale HEX VALUE (000034A2) 180 DLNST Sono baa LOCATION (OQOO1TAUC) IN CSECT (O68E8 ) LENGTH (4) 
58 CD23 a eae HEX VALUE (000034A3) 847 DMSGL SO URES: HEX LOCATION (00002220) IN CSECT (O68E8 ) LENGTH (32) 
59 CD24 REO veers HEX VALUE (O00034A4) 203 DTCSS Segre HEX LOCATION (OQOOO1TA7A) IN CSECT (O68E8 ) LENGTH (2) 
60 CD25 ABSOLUTE. HEX VALUE (000034A5) 82 DTENT ABSOLUTE. HEX ea ea. 
867 557 562 79 584 588 591 4 607 
61 CD26 aig HEX VALUE (000034A6) 853 DTINN ADDRESS. HEX LOCATION (00002264) IN CSECT (O68E8 ) LENGTH (7) 
62 CD27 hen nes HEX VALUE (000034A7) 666 DTOH pepe ee taa go bok ene ee PeheT ece. ) LENGTH (1) 
68 CD3C ABSOLUTE. HEX VALUE (000034BC) 217 DVALU ADDRESS. HEX LOCATION (QOOO1TA8B) IN CSFCT (O68E8 ) LENGTH (1) 
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FLMSG 
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FRAG1 
FRMSG 
GODCC 
HEXFF 
HTOE 
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IDCPT 
IDLE 
IDNG1 
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IDMNG3 
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INCHND 
INCNG 
INCOA 
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INCO1 
INERR 
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LOPMG 
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RESS. HEX LOCATION (000023DB) 
RESS. HEX LOCATION (000023E7) 
RESS. HEX LCCATION (000020C0) 
RESS. HEX LOCATION (000020£6) 
RESS. HEX LOCATION (000021E8) 
RESS. HEX LOCATION(00001A12) 
HEX LOCATION (00001A0E) 
HEX LOCATION (0000 1422) 
HEX VALUE (00000002) 

RESS. HEX LOCATION (00001A2C) 
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RESS. HEX LOCATION (00001A2A) 
DRESS- HEX LOCATION (00001A58) 
RESS. HEX LOCATION (00002388) 
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RESS. HEX LOCATION (00001CEC) 
ESS. HEX LOCATION (00002070) 
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ESS. HEX LOCATION (00001044) 
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RESS. HEX LOCATION (00001A40) 
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2ESS. HEX LOCATION (000023B4) 
RESS, HEX LOCATION (00001878) 
ESS. HEX LOCATION (000020£E2) 
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LOCATION (000021B6) 
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LOCATION (0000210A) 
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LCCATION (00002152) 
LOCATION (0000215E) 
LOCATION (0000216E) 
LOCATION (00001FB8) 
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LOCATION (00001C04) 
LOCATION (00002066) 
LOCATION (0000 1482) 
LOCATION (00001A7D) 
LOCATION (00001A7E) 
LOCATION (00001A7C) 
LOCATION (00001C68) 
LOCATION (00001C6E) 
LCCATION (00001A46) 
LOCATION (000020CA) 
LOCATION (0000236C) 
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RESS. HEX LOCATION (00001483) 
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LENGTH (46) 
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CHBIT 
CHBT 
CHIND 
CHNAD 
CLASG 
CLNUAM 
CLPEN 
CLPST 
CNDDF 
CNTAD 
CNTST 
CNTSV 
CNT WD 
COMCD 
COUNT 
CPUTP 
CVADR 
CVAD1 
CV EXP 
CVRID 
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DATIN 


DATRQ 
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DFCNT 
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DLNST 
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HEX LOCATION (00001A32) 
HEX LOCATION (000025AA) 
HEX LOCATION (00002280) 
HEX LOCATION (00001A78) 
HEX LOCATION (00001A72) 
HEX LOCATION (00001A3C) 
HEX LOCATION (000019B8) 
HEX, LOCATION (00001986) 
HEX LOCATION (000019FA) 
HEX, LOCATION (000019C2) 
HEX LOCATION (00001C6C) 
HEX LOCATION(00002684) 
HEX VALUE (00000232) 
HEX LOCATION (00001A6C) 
HEX LOCATION (00001A6E) 
HEX LOCATION (00001A84) 
HEX LOCATION (00001A7E) 
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HEX LOCATION (000019CE) 
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LENGTH (2) 
LENGTH (29) 
LENGTH (1) 
LENGTH (2) 
LENGTH (15) 
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EPRNT 
ERTST 
ERTS1 
FIVDF 
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PIVES 
FIXMG 
FORMT 
FOUR 


FXDHD 
FXHID 
FXMSG 
GO DCC 
HDMSG 
HD NUM 
HD REC 
HEXFF 


HTOE 
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IDCPT 
IDLE 
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IDMG2 
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IDMSG 
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INCMG 
INCOA 
INCOM 
INCO1 
INERR 
IOADR 
IONST 
JINST 
LOOPS 
LOOP1 
LOPMG 
LOPND 
LOPST 
LOST 
LPADR 
LPCNT 
LPEN 
LPEND 
LPENM 
LPEN1 
LPIND 
LPMSG 
LPNST 
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LPSTM 
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OLUTE. 


HEX VALUE (00000008) 
HEX VALUE (00001830) 


HEX LOCATION (000019DC) 
HEX LOCATION (000019E8) 


HEX LOCATION (0000 1A22) 
HEX VALUE (00000005) 
HEX LOCATION (00001AA3) 
HEX LOCATION (000025D4) 
HEX LOCATION (00001A2C) 
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HEX ate be tie 
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LOCATION (00001A95) 
LOCATION (00001A0C) 
LOCATION (00002298) 
LOCATION (000019B6) 
LOCATION (000025CC) 
LOCATION (000022984) 
LOCATION (00001A30) 
ALUE (00001828) 


ALUE (0000001) 
OCATION(0000219C) 
HEX VALUE (00001812) 
HEX VALUE (00000002) 
HEX LOCATION (0000269E) 
HEX LOCATION (000026AF) 
HEX LOCATION (000026BB) 
HEX LOCATION (00002250) 
HEX LOCATION (00002344) 
HEX LOCATION (000024A6) 
HEX LOCATION (00001992) 
LOCATION (0000198E) 
LOCATION (00001922) 
HEX VALUE (00000002) 
HEX LOCATION (000019AC) 
HEX LOCATION (000019AA) 
HEX LOCATION (000019D8) 
HEX VALUE (00001826) 
HEX LOCATION (00001CCC) 
HEX LOCATION (0000221E) 
HEX LOCATION (00001CBC) 
HEX LOCATION (00001D28) 
HEX VALUE (00001832) 
HEX LOCATION (000019C0) 


HEX LOCATION (000019C4) 


HEX LOCATION (00002642) 
HEX, LOCATION (000019F8) 
HEX LOCATION (0000225E) 
HEX LOCATION (00002650) 
HEX VALUE (0000161F) 
HEX LOCATION (00002558) 
HEX LOCATION (000019BE) 
HEX LOCATION (0000262A) 
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LENGTH (4) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (21) 
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LENGTH (31) 
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1053 
1056 
1059 
1062 
1070 
1073 
1082 
1065 
1067 
1076 
1079 
1086 
1089 
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LENGTH (12) 
LENGTH (13) 
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LENGTH (14) 
LENGTH (54) 
LENGTH (24) 
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READ 
READS 
READY 
RECAL 
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RESET 
RESTR 
RETSV 
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RQCNT 
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RTRIN 
R2SAV 
RSSAV 
ROSAV 
RTSAV 
SAVHD 
SDADR 
SDIRT 
SDMSG 
SEEK 
SEKOP 
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SI DBC 
SIDCB 
SID1 
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HEX VALUE (00000007) 
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LOCATION (00001A10) 
LOCATION (0000118) 
LOCATION (0000203Cc) 


X LOCATION(00001A14) 
84 8 


LOCATION (000020F6) 
LOCATION (00001AA0) 
LOCATION (00002108) 
LOCATION (00002114) 
LOCATION (00002124) 
LOCATION (00001FCE) 
LOCATION (00001FFA) 
LOCATION (000020EC) 
LOCATION (00001A24) 
LOC ATION (00001C62) 
LOCATION (00001C68) 
LOCATION (000019C6) 
LOCATION (000019 F6) 
LOCATION (00001A1D) 
LOCATION (0000223C) 
LOCATION (00001A1F) 
LOCATION (0000219E) 
LOCATION (000019EC) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (13) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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DECLARED 
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687 
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320 
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NAME 
SI5 
SI6 
SI6A 
SI7 
SI7A 
SI7B 
SKEWD 
SKIND 
SKSAV 
STH68 
STRTB 


SZCYL 
S14B 
S14C 
55 

58 
TEN 
TENS 
TERBL 
TERDT 
TERID 
TEROO 
TER10 
TER11 
TER12 
TER 13 
TER15 
TER20 
TER23 
TER25 
TER26 
THOUS 
THREE 
TNG2 
TWELV 
TWENY 
TWEN2 
THO 


UBUFR 
UNPRP 
WDCNT 
WORKA 
WORKB 
WORK1 
WRDMG 
WRIND 
WRITE 
WRITS 
WRRDS 
WRSEC 
WRSKR 
WRSSK 
HRTDA 
WRTSV 
ZERO 


ADDRESS. 
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RESS. 
RESS. 
RESS. 
RESS. 
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LOCATION (0000114) 
LOCATION (00001E96) 
LOCATION (00001EBE) 
LOCATION (00001F0C) 
LOCATION (00001F1C) 
LOCATION (00001F42) 
LOCATION (O0001AA4) 
LOCATION (00001A8E) 


LOCATION (00001A98) 

585 845 

HEX VALUE(00001C00) 

OLUTE. HEX VALUE (00001814) 
340 8 8§©6342 4 397 
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LOCATYOM (00001DC8) 
LOCATION (00001DCE) 
LOCATION (00001E44) 
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LOCATION (00001B58) 
LOCATION (00001B60) 
LOCATION (00001B86) 


LOCATION (00001BBE 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (4) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 


LENGTH (2) 


LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (40) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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DECLARED 
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NAME 
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ABSOLUTE. 
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TE8E6 - 2740/2741 DOWNLINE TEST 
LOCTR OBJECT TEXT STMT 


DNS WH tO OO SAUTE WN) st OW ONION E WIN 8 OO SINUS WD) et OW 0 SID UIE WIN BOW ONIN E WN OW OSI DUE WN 8 GLO MND UTE LIN) = COLO CON ONUT ES WIN) td OW SID ONE WIN 9 O10 O SION UTES WI Nt OO ONION EE 


aod ed eh and od od tb DO OO ODOO COMM VOHVOV OW DW DO DDDDBOOOwA) JJ SSID ADAARAAAHAANMNANIN NI NUNIIMN ES SESS REESE WWIWWWWWWWWNDNNNDNDDIDIDID) and aed cok wel aad cd wah aed ad td 


eed eel echt cad ened eemd cnn ened ed ceed ood ened ood ed ead ed ond 


P/N=4414382 EC=375147 PAGE 01 
SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
ake fe ae he he 3 ak ae fe 2K 2k af af eae 2 ae 2k he ae aK 2h 2 2c ie 2c ee ok ie 2 2c ac ic ak 2k ie ae a a a ie a 2 i a 2 2k a a i a a ee 2h he i a 2 eK 2K i a ok ok ok 
4K PREREQUISITES 40k 
NONE 


FOG GG IG GIG ROO IG CG I II I GIR I a I I i a aC 9 a ake ak ak 


xa MODIFICATIONS KX 


ADDED SUPPORT FOR 2740 MODEL 1 TERMINALS WITH STATION CONTROL 
AND FOR 2740 MODEL 2 TERMINALS. 

ADDED BREAK FEATURE SUPPORT FOR 2741 TERMINALS AND TRANSMIT 
CONTROL FOR 2740 MODEL 1 TERMINALS. 


Ae fe 2 Ik afc 2 ae 2 af a a a 2 2 2k 2 2 a a ai i 2 2 A 2 IE CC 2 KK CK a a a OK oe 2 Rk ae ae 2c I I aK i a oi ie ke ic 2 2 ek 


ee eo 
HHHHHKHHHHHHHHHHHHHHHHHHHKHHHHKHHKHHKH HH 


#4% REA'S INCORPORATED 4K 
NONE 
SP SSeS SSL SSS SPSS SPSS LSS LS SSS SESS SSS SPSS SEES SS SSS SSS S'S FSS LS. 2S SS SS S53 5.5 
4K SPECIAL INSTRUCTIONS CK 
NONE 
PSPSPS SPSS Ss SLL SSS PS LSS LES SSS SSS ESE SSE SSS SSL SE TSS SS SES SSS STS SS St SS SS Sts 
4k % E. C. HISTORY OK 
DATE O2AUG77 DATE 15JAN79 DATE DATE 
F.C. 754863 E.C. 375147 EAC. E.C. 
ToC CCE SC CSSCSCSCCLS SOS SSCS SOLS CTO SE SCC CCTSOC COSC SSC CSCS SSeS CST SS Te ee se eT 
MACRO 
EL QUEST SA,&B,&C 
EL BAL OUEST, R7 DISPLAY MSG, ASK FOR INPUT 
DC A (E a) MSG ADDP 
DC X"SBEC! OO=EBCDIC, 01=HEX 6& CONTROL FLAG 
PS FP SS SSS SPS SSS ES SSS SSS SSS SESE SPSS SS SSS SP SSS SSS SS SS SSE SS SS SSS SS SS SSS tS 2.2 
MACRO 
6L MSG 
EL BAL coe S GENERAL DISPLAY MESSAGE 
DC REM, MSG ADDR,FLAG 


DC 
neh FORD 
BIE ORO IO GC IC IC OR CK CR IK ao a a ic ok ag kok i kak ik ak tok ak ic a akc ake a 2 ok 


SL TMSG 6A,&B 
SL BAL TMSG,RT7 SVC TRACE MESSAGES (Dp IAGNOSTIC) 
DC A (EAS OPTN1 BIT 11 ON TO DISPLAY 


DC X*&B 
ALIGN WORD 


MEND 
HEE He Ae He He He He A A Ae HE He He He He A A ee 2 ee 2 A 2 2 He 3 2 A Re 2 2 a ie 2 a A 2 2 a a ee a ea ae 2 2 ak 


MACRO 
SL LMSG 
SL BAL PNSGORT LINE ACTION MESSAGES 

DC A (EA) OPTN1 BIT 10 OFF TO DISPLAY 


DC X'&B! 
ALIGN WORD 


MEND 
He He ae IR i fe ae a ee He 2 2 2 ae Re 2 aK aK ie i ee 2 2 2 eC a a fe ai ae a a ae ie 2 a 2 cc Re a a a a i 2 2 2 a fea ok 


MACRO 
SL MOV &B,6C 
EL BAL «MOORS MOVE BYTES. STRT ADDR, END ADDR, TO ADDR. 
DC (EAS &B,&C) 
He HE He He AH AC eH He He HA HH He ee He 2 I A eH 2 A ee A i A A 2 a 2k ak a ek a ak Ok aK 
MACRO 
EL MSK  6&A,&B,6C 
&L BAL MSK,R? START ADDR, END ADDR, BYTE VALUE TO STORF 
DC A (EA &B) 
DC X FEC 
ALIGN WORD 
Me He He He HK A He MK Me He Me He HK_ Ie MK He HE 3 eK Ie Ie ee I Kee Ke he He he A ae MK IKE Ge ee He Me eC ke Ke He IK Me He ae Ne he He fe ee ae a OK ie kK oh ek ak ok ae he ak ok 
MACRO 
&L DELAY &A 
&L BAL  DELAY,R7 DELAY MILLISECONDS 
mexp 0°") 
PS SESS SESS SLES SLPS SSP PS SESE SL SSS ES SS SSP SLPS SSS SP SLES PL SS SL SS tS SS StS SSS Ste 
MACRO 
BL WINT 6A 
EL BAL WINT,R7 DELAY MILLISECONDS, WAIT FOR INT. 
DC A (EAS RETURN ONLY IF INT’ OCCURED IN TIME. 
I He He He He HA He eK He He He HK KA I ee Hee Ke He Hee fe Ie Ie fe BH A fe he ee Me Ie IK fe ee 3 Me Ae fe he Me He ye Ie eK AK ke ek KO Ne 2 aK 2 2k ok 2 aK eo 
MACRO 
SL WINTS 6A 
BL BAL  WINTS,R7 DELAY SECONDS, WAIT FOR INT. 
De fea RETURN ONLY If INT OCCURED IN TIME. 
FESS PTS LS SPT SST SSE ST TSS STS SS PS SS SSS SS SS TSS SST SS SS SS TSS SSS SSS St SSS LE SSS Ss es 
MACRO 
EL ETH &B,&C 
EL BAL OeTAC RS CVT EBCDIC TO HEX (2:1 
De enh k &B,6C) FROM ADDR, TO ADDR, SOURCE BYTE COUNT 
FRO ICROI III IOI IG IOI OI ROI RO IOI III A III OK tok kak ak ak kk ake ac ake a ak ak 
MACRO 
EL HTE  6&A,&B,6&C 
SL BAL HTE,R CVE HEX TO EBCDIC (122) 
DC A(&4,6B,6C) FROM ADDR, TO ADDR, SOURCE BYTE COUNT 
PS SL SPELT SSL SSL SS SS TT ESP S SS LSS SS TSS SPSS STS SS TS SELES SL SSS SS SSS LS SLES SS 2 Se | 
MACRO 
EL ALN 
&L pc. x "008 MSG TERMINATOR 


2740/2741 DOWNLINE TEST 
OBJECT TEXT 


WW NNN NINN DID a8 ed aed et ed td od od td ed OOOO OOOO OO GWM OOM OO ODO10 WOOO DOOD DON mI IJIN IAAAAAAARAAAAMNAINNINNINI NS SEES SWWWWWWWWWWODDNDNDNNDNNN aa 
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DONO ROP DINO DODO DO RONDO RINIDID DORI AID DIDIDNIDIADDORIDRODIADAD ceed cece ced ce eed ced ceed ceed eed cee ape ce cere ced ems coed ceed eh coed ceed wd ceed can ceed ened coed woe ceed mod ene ccd cach oned ceed cand mad cued nah cnnd coud exnd aed coed enc mend ound med peed col cmd cand come cna awed tld ceed ened ened ceed oad coed cond end eed ened ed cand ered onal ean cand am ced aed snecd ened eh eed ened ood ened cond 


P/N=4414382 EC=375147 PAGE 01A 
SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
ALIGN WORD 
HK eK ae Ae i ee ae Me eK he eK ae aK 3 he Be AK ee A he A ae ae AC ie hc AK BK Ke IK Ee He aK 9K AK he he He he 2c A 2h Oe fe ee oe ac a 2c oe a ah ak oe ok ok oe 
MACRO 
EL SCANB &A,6B,&C 
&L BAL  SCANB,;R7 START ADDR, BYTE COUNT, BYTE VALUE 
DC A (EA EB) 
DC X "EC 
ALIGN WORD : 
SF eS eS SSS SPL SESS SST PS SS SSS SSL SS SPSL SL SS PLS PSS SSS SS SST SSS ESS SSL SS SSS SS ES Ss 
MACRO 
EL SCANW BA 
EL BAL Chin START ADDR, BYTE COUNT, WORD VALUE TO SCAN 
DC AYER Wg 
DC X"EC 
ALIGN WORD 
PSPS SPSS SSL SS SET SPSS PSS TS FSS SS TS SSS SETS SSS ES SL ELS SS SPSS LT SSS SSS SS SSS SSS tS 
MACRO 
EL CKPT 6A 
BL MVWI X'G&A',CKPT <<<<<< CH EC K POINT CKeKKe CC RRR RK 


eee re ee ce ee ee ee ee ee ee ee ee ee ee ee ee ee we Oe we oe 9 ee ee ee ee em ee ee ew ee ee ee ee ee a we 9 ee we ee ae om a ee 


He He He ee He he ee he he He He He He Behe He he 2 2 a he Be ah aie 2c 2 a ae ake a ae ae i 2h ae ae a ae 2c a A a ai 2K OC ie 2k aK eae 2 A oe a 2 2k 2c ac 2k ok ok 
ME He He he 2 A 2 A Cf Re Re he i 2 2 a Re a 2c he Re A a 2 a a cafe i ae ik 2k 2 i fe 2k a ac i 2 2 ae ae ca ac ak ak ake fc ae ae ak ok ok ak ok a 2k 


* * 
: DCP OPTION BITS SUPPORTED + 
* OPTION WORD 1 : 
* BIT 0 PROGRAM TERMINATE * 
* BIT 1 REQUEST DEVICE ADDR FROM OPERATOR * 
* BIT 2 NOT USED * 
* BIT 3 NOT USED + 
* BIT 4 BYPASS DISPLAY STATUS MESSAGES x 
* BIT 5 BYPASS DISPLAY ERROR MESSAGES * 
* BIT 6 NOT USED * 
* BIT 7 RESERVED * 
* BIT 8 DO NOT PRINT CONFIGURATION * 
* BIT 9 NOT USED 7 
* BIT 10 BYPASS LINE ACTION MESSAGES * 
* BIT 11 DISPLAY SVC COMMAND TRACE ‘ 
* BIT 12 DO NOT LOOP ROUTINE * 
* BIT 13 PRINT LOG AT END OR RESET/START * 
* BIT 14 ASK INITIAL QUESTIONS AGAIN * 
* BIT 15 DO NOT CLEAR LOG AFTER PRINT : 
* OPTION WORD TWO : 
* BIT 0-15 NOT USED : 
HE He ee eRe 2 2 a 2 ae a ee a a a 2 a a 2 2 he a ae fe 2k a i 2 2c aie ate ae 2c 2 a a a ote 2 ke ake a ae he tc i eo ic a ake 2 fc a ok ok ak 2k ok ak 
* Bd 
* START STOP DEVICE CONTROL BLOCK 
: T ~ DATA ADDRESS or is aa : 
* 6 BYTE COUNT : 
* 5 CHAIN ADDRESS : 
4 LINE CONTROL CHARACTER : 
: 3 LINE CONTROL CHARACTERS/TIMER 2 ; 
. 2 LINE CONTROL CHARACTERS/TIMER 1 
* 1 BIT RATE CONSTANT/EOA : 
* 0 CONTROL WORD * 
FE a a ca ce ea ec a ne ec ae ae a ce ce are ee ee ne ne ae ee ee * 
* * 
* * 
HEE a he i ah Re a a a a 2 2 2 2 ae i a i kk Rc a 2 fe a 2g fe a 2 ae ak ake i 2k kc a ai afc ak ac a ae ic a fc ok ok ak a ic ak aie a ok tak ak ake ate teak ok ak ak kc ak 
* CONTROL WORD (WORD O OF DCB) + 
* BIT 0 CHAINING FLAG * 
* BIT 1 NOT USED - MUST BE ZERO * 
* BIT 2 INPUT FLAG * 
* BIT 3. NOT USED - MUST BE ZERO + 
* BIT 4 NOT USED - MUST BE ZERO * 
* BIT 5-7 CYCLE STEAL ADDRESS KEY * 
* BIT 8-9 NOT USED - MUST BE ZERO * 
* 10 11 12 13 14 15 * 
* 0 0 0 0 0 O TRANSNIT * 
* 0 0 0 0 O 1 TRANSMIT END * 
* 0 0 0 0 1 O TRANSMIT ALLCW BREAK * 
* 0 0 0 0 1 1 TRANSMIT END ALLOW PREAK * 
* 0 0 0 1 0 O RECEIVE * 
* 0 0 0 1 0 1 RECEIVE WITHTIMEOUT * 

* 1 0 0 1 O QO RECEIVE RESPONSE * 
* 1 0 0 1 #O 1 RECEIVE RESPONSE WITH TIMEOUT * 
* 0 0 0 1 1 =O RING ENABLE * 
* 0 0 0 1 #14 #1 RING ENABLE WITH TIMEOUT * 
* 0 0 1 0 O O DTR ENABLE * 
* 0 0 1 0 O 1 DTR ENABLE WITH TIMEOUT + 
* 0 0 1 #O 1 #O DIR ENABLE WITH TONE * 
* 0 0 1 0 1 #1 ODTR ENABLE WITH TONE & TIMEOUT * 
* 0 0 1 #1 =O O DTR DISABLE * 
* 0 X 1 #1 +O 1 SET CONTROL OR DIAGNOSTIC * 
* 0 0 1 #1 #1 #O PROGRAM DELAY * 
* 0 0 1 1 +71 =«1 + RESET + 
A Ae 2 2 2 a RK 2 a kK kk kok ok ok ok kk ak kkk kk koko tak kok ok gkokokok kok ik kk kak RK kia ak fk ak kk afaik ak ak 
: TIMER USEAGE : 
* TIMER ONE TIMER TWO * 
* 1. RECEIVE TIMEOUT 1. PROGRAM DELAY + 
* 2. TRANSMIT DELAY 2. CLEAR TO SEND DELAY x 
* 3. TRANSMIT END DELAY 3. DATA SET READY TIMEOUT * 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
232 * 4. ANSWERTONE OR BREAK 4. RING INDICATOR TIMEOUT * 000003 346 EOTR EQU 3 3 = ee EOT (END OF TRANSMISSION), (RESET) 
233 * 5. DISABLE DATA TERMINAL * 347 * 
234 * READY DELAY * 000004 348 EOBR EQU 4 = oor sya OF BLOrk) LRC CHECK 
235 [OOO IGG OR IG IR CIR II ICR I IO I fa ak i 2k 000005 349 TXTR EQU 5 5 = my) DATA B) ) 
236 * * 350 *#* KKK FAGURERRERDLS TOR RMENNERET ES dO KK OR IR OO FO AO 
237 * INTERRUPT STATUS BYTE CONTENTS FOR START STOP ADAPTERS * 351 * * 
238 * * 352 * PROGRAM CONTROL TABLE * 
239 * 0 FETCH CYCLE STEAL STATUS * 353 * * 
240 * 1 DELAYED COMMAND REJECT * 354 RO ICRI III IRI III IS ORI IO III II III I Otek 
241 * 2 INCORRECT LENGTH RECORD * 001800 CSF8C5F6 355 PID DC C'ES8E6! PROGRAM ID 
242 * 3 DCB SPECIFICATION CHECK * 001804 00 356 LEVEL DC X'OO? 
243 * 4 STORAGE CHECK * 001805 00 357 DC X*008 
244 * 5 INVALID STORAGE ADDRESS * 001806 1864 358 INADR DC A (BEGIN 
245 * 6 PROTECTION CHECK * 001808 1812 359 DEVPT DC A (DATAB 
246 * 7 INTERFACE DATA CHECK * 00180A 0000 360 RTNE DC A (*-* CURRENT ROUTINE NUMBER 
247 * * 00180C 0000 361 CKPT DC A (*-* CURRENT CHECKPOINT 
2.08 2 IOS FORO IO OR GI I III GK ik ak kk 00180E 4000 362 OPTN1 DC x*4o00! PROGRAM OPTION WORD 1 
249 * * 001810 0000 363 OPTN2 DC A (*¥-*) PROGRAM OPTION WORD 2 
250 * STATUS WORD CONTENTS FOR START STOP ADAPTERS * 001812 0001 364 DATAB DC A 1) 
251 * * 001814 00000000000000000 365 DEVAD DC 10x00! DEER BEOLT Lee perce INFO 
252 * WORD ZERO * 00181E 00000000000000000 366 DC 10X'OO? DA/TYPE/FLAGS/DEVICE INFO 
253 * O THRU 15: MAIN STORAGE ADDRESS OF LAST ATTEMPTED CYCLE STEAL * 001828 00000000000000000 367 DC 10X'00! DA/TYPE/FLAGS/DEVICE INFO 
254 * TRANSFER. * 001832 00000000000000000 368 DC 10X'0O0! DA/TYPE/FLAGS/DEVICE INFO 
255 * * 00183C 00000000000000000 369 DC 10x'OO0! DA/TYPE/FLAGS/DEVICE INFO 
256 * * 001846 00000000000000000 370 DC 10X'0O0 DA/TYPE/FLAGS/DEVICE INFO 
257 * WORD ONE * 001850 00000000000000000 371 DC 10x'0OO! DA/TYPE/FLAGS/DEVICE INFO 
258 * 0 OVERRUN: RCV OR XMT BUFFER NOT SERVICED WITHIN 1 CHAR TIME 00185A 00000000000000000 372 DC 10x'00* DA/TYPE/FLAGS/DEVICE INFO 
259 * 1 TIMEOUT * 374 RO OGIO IGOR IG ORR III IR I I IIR I IK ak 
260 * 2 LRC ERROR: BCC DOES NOT COMPARE * 375 * 
261 * 3 DCB REJECT * 376 * ROUTINE 01 * 
262 * 4 EOB RECOGNIZED IN TRANSMIT & BYTE COUNT NOT ZERO * 377 * * 
263 * 5 VRC EPROR: HEX 00 WILL BE PLACED IN STORAGE * 378 Fe IG ROR III IOI I IG CIR I Kk 
264 * 6 BREAK: A BREAK CONDITION WAS DETECTED DURING XMIT. * 379 * * 
265 * 7 STOP BIT ERROR: MISSING STOP BIT IN RCVD CHARACTER * 380 * NAME: INITIALIZATION * 
266 * 8 DP CuCe tas ERROR * 381 * * 
- 267 * 9 MODEM INTERFACE ERROR * 382 * PURPOSE: INITIALIZE THE DEVICE * 
268 * 10 THRU 48 RESERVED * 383 * * 
269 * * 384 * METHOD: * 
270 * WORD TWO * 385 * RESET INDICATORS * 
271 * * 386 * GET DEVICE ADDRESS * 
272 * 0 DATA TERMINAL READY * 387 * CONNECT INTERRUPT CONTROL BLOCK * 
273 * 1 DATA SET READY * 388 * RESET DEVICE * 
274 * 2 REQUEST TO SEND * 389 * PREPARE DEVICE * 
275 * 3 CLEAR TO * 390 * PRINT LOG * 
276 * 4 RING INDICATOR * 391 * PRINT CONFIGURATION * 
277 * 5 RECEIVE MODE * 392 * GET BPS RATE/BUILD COD CHARACTERS AND SET PTTC * 
278 * 6 TRANSMIT MODE * 393 * SET OPTIONS * 
279 * 7 RESERVED NOT USED * 394 * * 
280 * 8 THRU 15 NOT USED * 395 FeO RI II IG IG OO GIGI IG I IGG kok kak aki ak 
281 * * 001864 6802 1868 396 BEGIN B RTO1 **NOTE THIS BRANCH MAY BE MODIFIED 
282 OOO IOI I a I I i a II aC aca 2k ai ak a a ak 397 * 
283 * * 001868 4020 1866 1868 398 RTO1 MVA ee BEGIN+2 
284 * oro CONDITION CODES * 00186E 4020 180A 0001 399 MVWI RT SET RINE TO 1 
285 * CC VALUE * WOO 2k ok RR ok thine INDICATORS > 3322 IR OR I ok Atk ok 
286 * 0 DEVICE NOT ATTACHED * RO): SSeS SSeS SSeS Sa 
287 * 1 BUSY * 402 * CKPT 01 * 
288 * 2 BUSY AFTER RESET * 003. e Se SS SS ee 
289 * 3 COMMAND REJECT * HOY CKPT 07 CHECKPOINT 01 
290 * 4 INTERVENTION REQUIRED * 001874 4020 180C 0001 4O5+ MVWI X'OT',CKPT <<<<<< C H EC K POT N T CCK KK CC ERK KKK 
291 * 5 INTERFACE DATA CHECK * NO G48 HS S28 6 er ee aS a * 
292 * 6 CONTROLLER BUSY * 407 MSK INTSW CooPt reas RESET INDICATORS 
293 * 7 SUCCESSFUL * 00187A 6F03 2E70 408+ BAL MSK,R art. ADDR. END ADDR, BYTE VALUE TO STORE 
294 * * 00187E 2506251B 4O9+ DC A(IKTSW, CSSBYPAS# 1) 
295 * INTERRUPT CONDITION CODES * 001882 00 410+ DC X*OO8 
296 * CC VALUE * 001883 00 411+ ALIGN WORD 
297 * 0 CONTROLLER END * 001884 CF25 3750 412 MVWZ XADDR,R7 CLEAR XADDR SO NO PRINT BEFORE XMIT 
298 * 1 NOT USED OR GENERATED BY THE ADAPTER * 001888 4020 3024 30BA 413 MVA TOPADDR+2,REGSAV RESTORE STACK POINTERS IF RESTART 
299 * 2 EXCEPTION * U1 ee KKK ENTER parser ADDR AAR I RRR I OR OR IK aK a ook 
300 * 3 DEVICE END * |S: fe ee SSS SSeS SSS — eS mm oe Saw a mnt 
301 * 4 THRU 7 NOT USED OR GENERATED BY THE ADAPTER * 416 * CKPT 02 * 
302 3k ICI IC I IO I a aa a ak ak ik 3 ak ak ak WY] *---------~------------------ += 
001800 303 TE8E6 START X*1800! 418 DATYP CKPT 02 CHECKPOINT 02 
304 SIG IG OR OG I GIG IG A a I III oe 2k ak ak ak ake ak 2k 2k a 2k a ak 00188E 4020 180C 0002 HL alae MVWI X'0O2",CKPT <<<<<< C H EC K POT NT KCK KK CC ERK KR EK 
* * FO a rr rt rr rn rr rn ree * 
306 * EQUATED NAMES FOR SUPPORTED SVC'S * 001894 6808 251C 421 MVW FLAGO,RO FIRST TIME THRU? 
307 * * 001898 1805 422 JNZ FMSG IF NOT, SKIP LOG AREA PRESET 
308 2 OR IO CCI IOI IG IO IC IO ra I a a ak aC aa a 423 MSK rere L LAST, 88 PRESET LOG AREA TO '88! 
000000 309 OUT EQU 0 OUT SVC 00189A 6F03 2E70 Q24u+ BAL START ADDR, END ADDR, BYTE VALUE TO STORE 
000001 310 OUTIN EQU 1 OUTIN SVC 00189E 3A4C3C4C U25+ DC A (LOESV, LAST) 
000002 311 IDLE EQU 2 WAIT TIME VARIES BY PROCESSOR 0018A2 88 426+ DC X*'88t 
000003 312 IDLE5 EQU 3 WAIT TIME 500 USEC (ABSOLUTE) 0018A3 00 427+ ALIGN aon 
000004 313 CHNGE EQU 4 CHANGE LEVEL SVC OO18A4 4124 180E 428 FMSG MVA yea DEVADD OPTN SET ON? 
000005 314 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 0018A8 4981 429 TBIR fe * 
000006 315 EXIT EQU 6 EXIT SVC 0018AA 105B 430 JOFF Oui SKIP MSG IF NOT 
000007 316 TERM EQU 7 TERMINATE SVC 31 (RP 202 2 Oo > |S Se Sas = == 
000008 317 RESET EDU 8 RESET DEVICE SVC 432 * DEVICE ADDR ENTRY | 
000009 318 RID EQU 9 READ ID SVC 033° %. 0. <[Seerreses=<=ssS$=-=---== { 
QOOO00A 319 START EQU 10 START CYCLE STEAL SVC 434 REQNO UEST E888, 01,80 NTER DEVICE ADDR 
00000B 320 STCSS EQU 11 START CYCLE STEAL STATUS SVC O018AC 6F03 2F36 435+ REQNO AL Quest, RY DISPLAY MSG, ASK FOR INPUT 
00000C 321 PREP at 12 PREPARE DEVICE SVC 0018B0 3660 436+ DC A (E888 } MSG ADDR 
00000D 322 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 0018B2 0180 W37+ DC X¥*0180 OO=EBCDIC, O1=HEX 6& CONTROL FLAG 
OQ000E 323 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 0018B4 C120 3796 438 MVB FIELD1,R1 GET CONSOLE ENTRY DATA 
QOO00F 324 RSTAT EQU 15 READ STATUS SVC 0018B8 3141 439 SLL 8,R1 
000010 325 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC O018BA C121 2547 44Q OB KE8,R1 
000011 326 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC QOO18BE 690D 1814 Hu MVW R1,DEVAD PUT IT IN eee ADDR* AREA 
000012 327 CTRL EQU 18 CONTROL SVC 0018C2 6F03 3588 42 BAL REAID, R7 READ DEVICE 
000013 328 RICB at 19 RELEASE INTERUPT CONTROL BLOCK SVC 0018C6 6FO8 244C 443 MVW DEVID,R7 SAVE THE DEVICE ID JUST READ 
000014 329 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC OO18CA 6FOD 2508 Hk MVW R7, IDSAV SAVE THE DEVICE ID JUST READ 
000015 330 HIO EQU 21 HALT ALL As 0018CE 7F06 100E 445 CWI X' 100E',R7 SEE IF "SINGLE LINE ACCA ! 
000016 331 REQSD EQU 22 REQUEST USE OF NCP DISK SVC 0018D2 1025 446 JE DAOK IF =100E otiele saci 
000017 332 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 0018D4 7FEO FCFF Wu] NWI Xt PCR! BR] STRIP OFF # 
333 * EQU 24 RESERVED 0018D8 7F06 200E 448 CWI X'200E',R7 VERIFY MOLTILINE “tp LESS #LINES 
000019 334 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 0018NDC 101D 449 JE MLTYP IF EQUAL, SET MULTILINE TYPE - E 
QOOOTA 335 HTOE EQU 26 HEX TO EBCDIC SVC (STRING LOO Serra S24 Sesser se Ses 
00001B 336 ATOH EQU 27 ASCII TO HEX SVC TRING OO0O18DE 6F08 2508 451 MVW IDSAV,R7 CHECK FOR ACCA RPQ 
00001C 337 HTOA EQU 28 HEX TO ASCII SVC (STRING QO018E2 T7FEO FOOE 452 NWI X'FOOR', R7 STRIP OFF DON'T CARE BITS 
00001D 338 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 0018E6 T7FO6 100E 453 CWI X"TO00E",R7 CHECK DEVICE ID 
OO001E 339 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING QOO18EA 1003 G54 JE SET80 IF EQUAL, GO oet DEVICE TYPE 80 
00001F 340 READI EQU 31 READ DATA SETS FOR MDI/UTIL 0018EC 7FO6 200E 455 CWI X'200E',R7 CHECK DEVICE ID 
000020 341 WRITI EQU 32 WRITE DATA SETS FOR UTIL O018FO 1809 &56 JNE ERPRINT IF NOT E URL PRINT ID ERR 
342 * 0018F2 6908 1814 457 SET80 MVW DEVAD,R1 OTHERWIS CHANGE DEVICE TYPE TO 80 
000000 343 NAKR EQU 0 BIT O SET = N) NEGATIVE RESPONSE 0O018F6 3142 458 SRL 8,R1 * 
000001 344 YAKR EQU 1 1 = Y) POSITIVE RESPONSE O018F8 3141 459 SLL 8,R1 * 
000002 345 EOAR EQU 2 2 = D) END OF ADDR (ENTER TEXT MODE) OO18FA C121 2544 460 OB K80,R1 * 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO18FE 690D 1814 461 MVW  R1,DEVAD PUT IT IN "DEVICE ADDR' AREA 0019E2 1001 575 JE LINES JUMP IF 2 LINES fR7=20F 4) 
001902 500D 462 : J DAOK CONTINUE 0019E4 O7FE 576 7 ABI -2,R7 ee a BESRERENT THE "EBCDIC VALUE'* 
464 ERPRINT HTE IDSAV E895A,2 CONVERT ID TO EBCDIC FOR PRINT 0019E6 6F0D 37C0 578 LINES MVW FIELDS SET UP CALCULATED #¢ LINES 
001904 6F03 2F84 465+ERPRINT BAL CVT HEX TO EBCDIC (1:2 OO19EA 4124 2452 579 IDOK MVA srhras, R1 LOOK AT STATUS WORD 2 
001908 250837350002 N66+ DC A(ZBSAY, E895A, 2) FROM ADDR, TO ADDR, SOURCE BYTE COUNT 0019EE 4900 580 TBT (Ri 0) TEST FOR BIT 0, DATA TERMINAL READY 
467 MSG F ERROR IN 0019FO 1A06 581 INN 3BtT BRANCH IF NOT 
00190E 6F03 2EFC 468+ BAL MSG oid GENERAL DIS OLAY MESSAGE 0019F2 4020 3796 C4E3 582 MVWI C'DT', FIFLD1 SET FLAG 
001912 3724 469+ pc A (E895) MSG ADDR,FLAG 0019F8 4020 3798 D940 583 MVWI Crk '’ PIELD1+2 SET FLAG 
001914 CO 470+ DC X"cor O019FE 4901 584 S3BIT1 TBT (Ri 1f TEST FOR BIT 1, DATA SET READY 
001915 00 471+ ALIGN WORD 001A00 1A06 585 INN 3BiT BRANCH LF NOT 
001916 5SOCA 472 J REQNO 001A02 4020 379C C4E2 586 MVWI C'DS', FIELD2 SET FLA 
001918 4029 1814 0001 473 MLTYP AWL T;DEVAD CHANGE 'E8' TO "E9' IN "TYPE! 001A08 4020 379E D940 587 MVWI C'tR ') FIELD 2+2 
00191F 4020 1812 C001 474 DAOK Mvwr x'coo1t TAB SET UP FOR ‘DUMMY TERMINATE! OO1A0E 4902 588 S3BIT2 TBT (RI af TEST FOR BIT 2, REQUEST TO SEND 
001924 4020 1866 1932 475 MVA ENTROPTE. BECINE2 MODIFY BRANCH ADDR TO PREVENT COMING 001A10 1A06 589 INN 3BiT BRANCH IF NOT 
4u76 * HERE MORE THAN ONCE. 001A12 4020 37A2 D9E3 590 MVWI C'RT', FIELD3 SET FLAG 
00192A 4020 251c 0001 477 MVWI 1,FLAGO SET FLAG FIRST TIME THROUGH 001A18 4020 37A4 E240 591 MVWI C'S */ FIELD 3+2 
001930 6007 478 Svc. TERM TERMINATE OO1A1E 4903 592 sS3BIT3 TB (Ra 3f TEST FOR BIT 3, CLEAR TO SEND 
079 3 IO GIGI IC IIOIOR a GIGI IO GG I lok ag aa i i iC ak a 001A20 1A06 593 JNN 3Bit BRANCH IF NOT 
480 * EXIT THE PROGRAM HERE GO BACK TO 'BEGIN' 001A22 4020 37A8 C3E3 594 MVWI C'CT', FIELDG SET FLAG 
481 * THE NEXT ENTRY TO PROGRAM WILL BE DIRECTLY TO 'ENTROPTS* BECAUSE THE 001A28 4020 37AA E240 595 MVWI C'S "( FIELD4+2 
482 * BRANCH ADDR WAS ALTERED. IT WILL BE RESTORED TO 'RTO1' HOWEVER OO1A2E 4904 596 S3BITG TBT (Ra af TEST FOR BIT 4, RING INDICATOR 
483 * AT 'ENTROPTS'. THIS ALLOWS DCP TO DO NECESSARY HOUSEKEEPING 001A30 1A03 597 INN 3Bft BRANCH IF NOT 
484 * FOR THE CONFIGURATION TABLE 001A32 4020 37AE D9C9 598 MVWI C*RI' FIELDS SET FLAG 
085 JRE GO IGG OIG OR OR IORI IG IG IGA IOI Ig aK kok ak 001A38 4905 599 S3BIT5 TBT (RA 5f TEST FOR BIT 5, RECEIVE MODE 
0019632 4020 1866 1868 486 ENTROPTS MVA RT01,BEGIN+2 MODIFY BRANCH ADDR TO ORIGINAL OO1A3A 71A06 600 INN 3BLT6 BRANCH IF NOT 
001938 4020 180A 0001 487 MVWI 1,RTHE 001A3C 4020 37B4 D9C3 601 MVWI C'*RCt, FIELD6 SET FLAG 
00193E 6908 1816 488 MVW DEVAD+2,R1 CHECK THAT ENTRY IS VALID. 001A42 4020 37B6 E540 602 MVWI C'V ©) FIFLD6+2 * 
001942 1209 489 JN TOK IF BIT 0 NOT ON, PRINT ERR MSG OO1A48 4906 603 S3BIT6 TBT (RI 6f TEST FOR BIT 6, XMIT MODE 
490 MSG £898,CO ERROR MSG OO1AGA 1A06 604 INN TATEND BRANCH IF NOT 
001944 6F03 2EFC 491+ BAL MSG,R7 GENERAL DISPLAY MESSAGE OO1A4C 4020 37BA E7D4 605 MVWI C'XM', FIELD7 SET FLAG 
001848 373¢ 492+ fe A (EBO8) ’ MSG ADDR, FLAG 001A52 4020 37BC E340 606 : MVWI C'T ©) FIELD7+2 * 
00194B 00 494+ ALIGN WORD 608 * DETERMINE FROM OPTION WORD 1 WHETHER TO PRINT CONFIGURATION 
00194C 402C 180E 4000 495 OWL X¥4000",OPTN1 TURN ON DA/TYP OPTN BIT 609 * 
001952 6802 1864 496 B BEGIN GET ANOTHER ENTRY 001858 4224 0060 610 STATEND MVWI xX'60" BYTE VALUE TO SCAN FOR 
001956 4020 1812 0001 497 TOK MVWI 1,DATA RESET FLAGS FOR REAL TERM LATER O01A5C 4324 37D2 611 MVA BERCs6O, R3 SET ADDR OF RIGHTMOST BYTE OF FIELD 
00195c 8028 1817 2505 498 MVB. DEVAD+3,CONF1+1 STORE BYTE 3 FROM CONFIG TABLE 001860 4724 003A 612 MVWI 58,R FIELD BYTE SIZE 
499 stoke CONNECT INTERRUPT CONTROL BLOCK 220 40R ROOK tk OO1A64 2A6A 613 SFNED R2 23) SCAN BYTE FIELD NOT = AND DECREMENT 
al. serpy 03 Gotten teen ooo! ae ANT leks . 
UMP NOT EVEN 
502 Benn a rn nnn ree Q0O01A6C CFES5 0002 616 MVWZ R3,2) ,R7 SET ZEROS IN LINE TO SHORTEN PRINT 
503 CONNECT CKPT 03 CHECKPOINT 03 001A70 402B 180E 0080 617 TW CO6ah opens DO NOT PRINT IF BIT ON 
001962 4020 180C 0003 DOM+ CONNECT HVWI _X"03",CKPT <<<<<< CH E CK PO TN T <<<<<<cceeeeeeee 001A76 1208 618 P ON BLCOD SKIP IF BIT ON 
+ by ee ED ame cme WO ce any 3S ED De ED ee ee ED cee ee ee ee ee ee ce ee ge ee oe em ne oe ee ee ee ee ee ee ee ee ce ew ee es we es ee ee ee ee ee we 
001968 6F03 31C0 506 BAL CICB1 GO CONNECT INTERRUPT CONTROL BLOCK 620 * PRINT CONFIG 
B07 eae aa ae a a 2 ak a ak 2k akc a ak a ok pierce RES ET 30 I i FOR i gk a ok 621 * 
508 *-------------------=--=-+---- 622 MSG  E88C,80 CONFIG HEADER 
509 * CKPT O04 x 001A78 6F03 2EFC 623+ BAL MSG,R7 GENERAL DISPLAY MESSAGE 
510 *---------------- +------------ OO1A7C 3692 624+ DC A (E88C) MSG ADDR,FLAG 
511 CKPT 04 CHECKPOINT 04 OO1A7E 80 625+ G x gor 
00196C 4020 180C 0004 D12t VWI zr0dt SRP? KKKKKK OC HEC K POL NT K£C6 KC KC KKK K OO1A7F 00 626+ ALIGN WORD sie seu eages 
SO ee eee ce ee ee cee ee ee oe a ae ae ee ew ae ae ep ee we ee en ee ee en ete ee ee ee we ee ee ee ee 9 ee ee we we ee ne oe es ee ae ee ee ee a ee ee G 
001972 6F03 2BAO 514 BAL RS RESET DEVICE 001A80 6F03 2EFC 628+ BAL MSG,R&7 GENERAL DISPLAY MESSAGE 
515 errr err rr rer Ts we Ree COMMAND 364 a og ack a tok a tok kk ted ake tok ok 001A84 3796 629+ DC A (E8AC) MSG ADDR,FLAG 
os 31889. 83 B38 cuesfiten, tote 
+ 
Do, Saat ee Sass e e ees = 632 **¥*#*eexe*xGET BPS RATE, BUILD COD CHARACTERS AND SET PTTC ®¥##*%x xx 
519 CKPT 05 CHECKPOINT 05 633 *-----------+-- == + 5 - ae 
001976 4020 180C 0005 2294 MVWI X'05',CKPT <<<<<< C HEC K PO TN T <<<ccxcceeeeeeee 634 : CKPT 08 x 
SRK ae mee ee a a ee ee a ee ee we ee me we ae a we we mw es ey SS Rm nee re se ce ee ee re ae en ee me ee ee ee ee ee ee ~ a owe 
00197C 6F03 2BU4A 522 BAL  PREPD ENABLE INTERRUPT LEV 636 BLCOD CKPT 08 CHECKPOINT 08 
223 KEVEEES IEF ERUTS ESE S pet ae LOG (1SG Ge GO Ga ao aa a aR aI Kak 001A88 4020 180c 0008 637+BLCOD MVWI X"O8*,CKPT <<<c<e CH EC K POL N 8 €€C< CCRC RRR REKE K 
sn Se a alo ak lah a es er Se cs Sh mm ie a a a a ee ee ee 
525 : CKPT 06 * QO1ASE 4124 180E 639 MVA OPIw 4 ,R1 CHECK OPTION TO ASK QUESTIONS AGAIN 
527 CKPT 06 CHECKPOINT 06 001A94 1203 641 JON Rxkart IF ON, ASK QUESTIONS 
001980 4020 180C 0006 528+ MVWI X"06",CKPT <<<<<< CH EC K PO TN T <K<ccccceaeaeeet 001896 6F08 2522 642 MVW  BPSFL,R7 HAS BPS BEEN ENTERED ALREADY? 
529+ *-------------------" -----~-------------- -----=- +--+ =~ - === ------------- x OO1A9A 1826 643 JNZ SETRATE SKIP ENTRY IF SO 
001986 402B 180E 0004 530 TWI xro004", OPTN1 SEE IF PRINT LOG IS SET 644 ASKRATE OUEST E£887,01,CO ASK FOR BPS RATE 
00198C 1A05 531 INN PRCF JUMP IF NOT 001A9C 6F03 2F36 645+4ASKRATE BAL QUEST, RI DISPLAY MSG, ASK FOR INPUT 
00198E 4020 2A18 3A4C 532 MVA EOGSsv. LOGPT RESTORE LOG AREA POINTER TO START OO1AAO0 365A 646+ DC A (E887) ADDR 
001994 6F03 2A1A 533 BAL PRNTLO PRINT THE DATA LOG OO1AA2 01CO 647+ DC X"*01C0 002 EBCDIC, 01=HEX & CONTROL FLAG 
534 JR AE EERE EEE EEE PRINT CONFIGURATION [GROG CIR RK OO1AA4 6FO08 3796 648 MVW  IBUFF,R7 134.5 BPS? 
e368 eee og SOlaae =4BOR Oe es9 CHE rg 134" RT T 
F NOT, CHECK FOR 300 BPS 
537 *------------~--------------- OO1AAE 8028 253F 249C 651 MVB K46,CDCBt2 SET Bit pRATE - 135 BPS 
538 PRCFIG CKPT 07 CHECKPOINT 07 OO1AB4 5019 652 J SETRATE CONT 
001998 4020 180C 0007 339+PRCFIG MVWI X'O7',CKPT <<<<<< CH EC K PO TN T <<<ccccceeeeeeee 00 1RB6 TP 06 0300 653 CK300 cur X*0300", 7 300 aes E 
$ k= = = = - = 5 + $$ = ee + = = = IF NOT CHECK FOR 600 BPS 
541 MSK  FIELD1, FLAGEND PREFILL MSG AREA WITH DASHES OO1ABC 8028 253C 249C 655 MVB K1F,CDCB+ SET BIT RATE - 300 BPS,LOW SPEED JPR 
00199E 6F03 2E70 542+ BAL MSK,R7- at: fT ADDR, END ADDR, BYTE VALUE TO STORE 001AC2 5012 656 J SETRATE CONTTRUE. 
001942 379637D2 543+ DC A (EEELD1, PLAGEND) 001AC4 7F06 0600 657 CK600 CWI xX*0600',R7 600 BPS? 
001946 60 544+ DC x 001AC8 1804 658 JNE  CK950 IF NOT, CHECK FOR 950 BPS 
0019A7 00 545+ ALIGN HORD OO1ACA 8028 2538 249C 659 MVB  KOF,CDCBt2 SET 606 BPS - LOW SPEED JPR 
001948 6F03 2BC8 546 BAL CST GO READ CYCLE STEAL STATUS 001AD0 500B 660 J SFTRATE CONTINUE 
0019AC 802B 2548 1815 547 CB KES, AT RC ADSI 001AD2 7F06 0950 661 CK950 CWI xX'0950',R7 50 BPS? 
SG Ram mn a a a a rrr rn cre OO1AD6 1005 662 JE SET950 IF NOT PRINT ERR MSG 
0019B2 181B 549 JNE  IDOK BRANCH IF NO 663 MSG  F898,80 INVALID ENTR 
550 * IF MULTILINE GET # LINES AVAILABLE FROM BITS 4-7 OF ID 001AD8 6F03 2EFC 664+ BAL MSG,R7 GENERAL DIS RELAY MESSAGE 
551 * 00 = 8 LINES SUPPORTE OO1ADC 373C 665+ DC A (E898) MSG ADDR,FLAG 
552 * O1= 2 LINES SUPPORTED OO1ADE 80 666+ DC Xx" gor 
553 * 02 = 4 LINES SUPPORTED OO1ADF 00 667+ ALIGN WORD 
554 * 03 = 6 LINES SUPPORTED 001AE0 SODD 668 J ASKRATE. GET ANOTHER ENTRY 
0019B4 4020 37C2 D3C9 555 MVWI C'LI', FIELD8+2 OO1AE2 8028 2537 249C 669 SET950 MVB  KO09,CDCB+t2 SET 950 BPS - HIGH SPEED JPR 
0019BA 4020 37C4 D5c5 556 MVWI C'NE!, FIELDB+4 OO1AES8 6F03 31A0 670 SETRATE BAL COD -R7 BUILD CON CHARACTERS AND SET PTTC 
0019C0 6E08 2508 557 MVW  LIDSAV,P6 GET THE DEVICE ID JUST READ OO1AEC 4020 2522 0001 671 1,BPSFL SET BPS ENTERED FLAG 
0019C4 7ECO 0300 558 NWI X'0300" R6 STRIP OFF BITS 0-3 672 **ekkkke EK ASK TERMINAL QUESTIONS 730A RG IG IO IGk 
0019C8 3642 559 SRL_ 8, R6 MOVE BITS 4-7 TO 8-15 OF R6. 673 *-------------------------=- 
0019CA 4724 FOFS8 560 MVWI Xx! FOF8!,P7 SET UP TO ANALYZE COUNT 674 * CKPT 09 4 
0019CE F600 een eae ROORG. e7e~~S*S*~*~“‘s«‘“‘ KPC CHECKBOINT 09 
Pp 
8 
0019D0 100A 563 JE LINES JUMP IF 8 LINES (R7=EOF 8) OO1AF2 4020 180C 0009 677+ MVWI X'09"',CKPT <<<c<e CH EC K POLI N DT <Ke< CCC RRR KKK 
0019D2 O7FE 564 ABI -2,R7 DECREMENT THE *EBCDIC VALUE* 678+ *-------------------- = -- + ~~ - 5 ee ee fee ei 5 fi + * 
565 *----------------+----- SET UP FOR FOF6 OO1AF8 6F08 2526 679 MVW QUESTFL R7 UESTIONS ANSWERED? 
0019D4 F603 566 CBI ‘X'03",R6 OO1AFC 1007 680 JZ SKQUEST F NOT, ASK QUESTION 
0019D6 1007 567 JE LINES JUMP IF 6 LINES 7=FOF 6) OO1AFE 4124 180E 681 MVA OPTN1,R1 CHECK OPTION TO ASK SU EST IONS AGAIN 
0019D8 O7FE 568 ABI —-2,R7 DECREMENT THE 'E fore VALUE! 001B02 498E 682 TBTR (Ray hy 
560 Socceses ee ee SET UP FOR FOFS 001B04 1203 683 JON &SKQUEST IF ON, ASK QUESTIONS 
0019DA F602 570 CBI <X'02',R6 001B06 6F08 2526 684 MVW QUESTEL R7 ourstions ANSWERED? 
0019nDCc 1004 571 JE LINES JUMP IF 4 LINES afRAsEOEY) OO1BOA 1865 685 JNZ ETOPTNS TF SO, SKIP QUESTIONS 
0019DE O7FE 572 ABI —2,R7 DECREMENT THE CDIC VALUE! 686 ASKQUEST MSK  CHECKFL,RTYFL,00 CLEAR’ FLAGS USED BELOW 
573 ¥------- 2 SET UP FOR FOF2 001B0C 6F03 2E70 6€87+ASKQUEST BAL MSK,R7 START ADDR, END ADDR, BYTE VALUE TO STORE 
0019FO F601 574 CBI xX'01',R6 001B10 25282532 688+ DC A (CHECKFL, RTUFL) 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
001B14 00 689+ pc X'008 any * TRANSMIT ECHO TEXT * 
001B15 00 690+ ALIGN WORD 805 * * 
691 QUEST E882,00,CO CORR CODE? 806 eee ee ee ee ee ee ee eeen eres 
001B16 6F03 2F36 692+ BAL QUEST, RI DISPLAY MSG, ASK FOR INPUT 001C20 4020 180A 0002 807 RTO2 MVWI TNE SET RTN 02 
001B1A 35£EC 693+ Dc B (E882) MSG ADDR 808 LEST Perer eter pers ees DTR ENABLE 73303 I IG IORI dak OR soko 
001B1C 00C0 694+ DC X"00CO OO=EBCDIC, 01=HEX & CONTROL FLAG 809 *~-~----------------------=- 
O0O1B1E C020 3796 695 MVB  IBUFF,RO GET BUFFER 810 * CKPT 01 * 
001B22 FOEB 696 CBI Cty! £0 CHECK FOR CORR CODE 811 *--------------------------- 
001B24 1003 697 JE CORRCODE JUMP IF SO 812 CKPT 01 CHECKPOINT 01 
001B26 CF25 2524 698 MVWZ CGRRFL,R7 OTHERWISE, RESET CORR CODE FLAG 001C26 4020 180C 0001 813+ MVWI X"O1",CKPT <<<<ee CH EC K POTN TP <£€C 66 CC RRR KEK 
001B2A 5003 699 J NEXOUES SET FBCD CODE 8 14+%*------------+--~----+----- -- - 5 = 5 ee ee eee fo ee +--+ * 
001B2c 4020 2524 0001 700 CORRCODE MVWI 1,CORRFL SET CORR CODE FLAG 001C2C 6F03 35P0 815 BAL CPUSG, R7 PRINT PTN, CKPT MSG 
701 NEXQUES QUEST E889, 00,CO 2740-27? 001C30 6F03 353A 816 BAL DTR ENABLE IF NECESSARY 
001B32 6F03 2F36 702+NEXOUES BAL  OQUEST,R7 DISPLAY MSG, ASK FOR INPUT 817 eo OGG PRINS ere. DELAY BEFORE TRANSMIT 320 ORR foo Gk 
001B36 366A 703+ DC K (£88) MSG ADDR 818 #-------~+------- +--+ te -— 
001B38 00c0 704+ DC X*00C0! OO=EBCDIC, O1=HEX 6& CONTROL FLAG 819 * CKPT 02 * 
001B3A C020 3796 705 MVB  IBUFF,RO * 820 *--------------------~+--~--~- 
00O1B3E FOES 706 CBI Ctyt RO % 821 CKPT 02 CHECKPOINT 02 
001B40 180c 707 JNE Nx gues IF NOT, CONTI 001C34 4020 180c 0002 822+ MVWI X*"O2"*,CKPT <<<<ee CH EC K POL N PT <K6C CCC CHK KE K 
708 QUEST E883,00,CO BUFFERED RECELVE ? 8234*-----------—--— —- == == + ee ee ee eo oe f+ = -+ * 
001B42 6F03 2F36 709+ BAL QUEST,R7 DISPLAY MSG, ASK FOR INPUT 824 MSG  E8A5,80 PRINT RDY MSG 
001B46 35FE 7104 DC A (E883) MSG ADDR 001C3A 6F03 2EFC 825+ BAL MSG, &7 GENERAL DISPLAY MESSAGE 
001B48 00C0 711+ DC X"00C0 OO=EBCDIC, O1=HEX 6& CONTROL FLAG 001C3E 3790 826+ DC A(EBA5) MSG ADDR,FLAG 
0O0O1B4A C020 3796 712 MVB  IBUFF,RO * 001C40 80 827+ DC X*gor 
OO1B4E FOES 713 CBI Ctyt,ko * 001Cc41 00 828+ ALIGN WORD 
001B50 1824 714 JNE SETRT3 IF NOT, CONTINUE 829 DELAY 2000 DELAY 
001B52 4020 2532 0001 715 MVWI 1,RTUFL IF SO, SET ROUTINE 04 001C42 6F03 2DA6 830+ BAL  DELAY,R7 DELAY MILLISECONDS 
001B58 5023 716 J ENTAD AND GO ENTER TERMINAL ADDRESS 001C46 0O7D0 831+ DC A (20 ) 
717 NXQUES QUEST E88A,00,CO 2740-1? 832 RRR RRR KKK SET UP TO RCV REO MSG % 2% 2 ROR fo gk dak akc ak ake akc ak kok 
001B5A 6F03 2F36 718+NXQUES BAL OQUEST,R? DISPLAY MSG, ASK FOR INPUT 833 *----------------=----=------ 
001B5R 3674 719+ DC A (EB8K) SG ADDR 834 * CKPT 03 * 
001B60 00cO0 720+ DC X"00C0 O05 EBCDIC, O1=HEX §& CONTROL FLAG 835 *-----------+----=-----~+------ 
001B62 C020 3796 721 MVB  IBUFF, RO GET BUPEER 836 RFTBR CKPT 03 CHECKPOINT 03 
001B66 FOES 722 CBI Cty ko IF SO, CONTINUE 001C48 4020 180C 0003 837+RFTBR MVWI X*'03",CKPT <<<<cee CH EC K POLI N PT CCh CCC CC KKK KKK 
001B68 1004 723 JE Nxoumks1 OTHERWISS MUST BE 2741 838 +%*------- ---~—--- -- $+ $5 2 ef ee nn oe eee x 
OO1B6A 4020 252c 0001 724 MVWI 1,T2741FL SET 274 1 FLAG OO1C4HE 4020 3024 30BA 839 MVA  TOPAD DR+2 REGSAV RESTORE STACK POINTERS 
001B70 5032 725 SETOPTNS CONTINUE 001C54 6FO8 252E 840 GRFT MVW X2740FL,R7 TRANSMIT CONTROL ? 
726 NXQUES1 QUEST F881,00.CO TRANSHLE CONTROL? 001C58 1005 841 J GRFTX IF NOT, CONTINUE 
001B72 6F03 2F36 727+NXQUES1 BAL QUEST,R? DISPLAY MSG, ASK FOR INPUT 001C5A 6F03 338C Bu? BAL XMITRCY R7 IF SO,’SEND / SPACE 
001B76 35D8 7128+ DC A (E881) MSG ADDR 001C5E 2480 843 DC A th) DATA ADDRESS 
001B78 00C0 729+ DC X*00CO OO=EBCDIC, 01=HEX & CONTROL FLAG 001C60 247A B44 DC A RerstD B) CHAIN ADDRESS 
001B7A C020 3796 730 MVB  IBUFF,RO GET BUFFER 001C62 5002 845 J G CONTINUE 
001B7E FOES 731 CBI C'Y¥*- ko IF NOT, CONTINUE 001C64 6FO3 321A 846 GRFTX BAL TC SEND EOT / CHAIN TO RECEIVE 
001B80 1804 732 JNE nxoufks2 847 eK oe 2 oi ok oe fe ae of a 2 ok afc fe CIRC, RT INFORMATION 2% X 2% 2 2 3h He he 3K ke 2 3 He 2 He ok eo KK ok ok kok ak kk 
001B82 4020 252F 0001 733 MVWI 1,X2740FL SET 2740 TRANSMIT CONTROL FLAG 848 *------------++-----=-- = +--+. 
001B88 501B 734 RECK CONTINUE 849 x CKPT O4 * 
735 NXQUES2 QUEST E88B,00,CO STATION CONTROL? §50 #---------.---.~—-~.~-.~--~-- 
O01B8A 6F03 2F36 736+NXOQOUES2 BAL QUEST, RI DISPLAY MSG, ASK FOR INPUT 851 GRFT1 CKPT 04 CKPT OY 
OO1B8E 367E 737+ DC A (E888) MSG ADDR 001C68 4020 180c 0004 852+GRFT1 MVWI  X'04",CKPT <<<<<<_C HEC K PO I_N T <<<<<<cc eee eH 
001890 00C0 7138+ DC X"O00CO! OO=EBCDIC, 01=HEX & CONTROL FLAG 853+ *--------------- ---- + = ee ef ee ee ni 5 ne +--+ + 
001B92 C020 3796 739 MVE IBUFF,RO GET BUFFER O01C6E 6F03 27A6 854 BAL CHECKRFT,R7 GO DECODE RFT 
001B96 FOES 740 CBI C'y',RO IF NOT, CONTINUE 001C72 CF25 2516 855 MVWZ SENDCFL,R7 FLAG SET TO SEND (C), RCV RFT ? 
001B98 1813 741 JNE  RECK * 001C76 18EE 856 JNZ  GRFT JUMP IF so 
001B9A 4020 2530 0001 742 SETRT3 MVWI 1,RT3FL SET ROUTINE 03 001C78 CF25 2512 857 MVWZ RFTERR,R7 RFT ERROR FLAG SET ? 
0O1BA0 4020 252A 0001 743 ENTAD MVWL 1,STCTRL SET STATION CONTROL FLAG 001C7C 1025 858 CKTEST IF NOT, CONTINUE 
744 GETAD QUEST ES88E, 01,80 GET TERMINAL ADDRESS 859 * 
OO1BA6 6F03 2F36 745+GETAD BAL OUEST, R? DISPLAY MSG, ASK FOR INPUT O0O1C7E 4020 1CB2 2592 860 MVA  RFTMSG,ADDRS SET PTTC MSG 
OO1BAA 36AE 746+ DC A (E88E) MSG ADDR 001C84 4020 1C¢BC 2592 861 MVA RFTMSG,ADDRS20 SET PTTC MSG 
OO1BAC 0180 747+ DC X "0180 OO=EBCDIC, 01=HEX 6 CONTROL FLAG OO1C8A 6FO08 2524 862 MVW  CORRFL-R7 CORR CODE? 
OO1BAE C020 3796 748 MVB  FIELD1,R0 ANYTHING ENTERED ? 001C8E 1006 863 JZ GETRFT | IF NOT, CONTINUE 
001BB2 10F9 749 JZ GETAD IF NOT, GET ANOTHER ENTRY 001C90 4020 1CB2 266E 864 MVA  RFTMSG2,ADDRS OTHERWISE, SET CORR MSG 
001BB4 8028 3796 274B 750 MVB FIELD1,TERMAD1 SAVE ADDRESS FOR POLLING 001C96 4020 1CBC 266E 865 MVA RFTMSG2,ADDRS20 SET CORR Fase 
OO1BBA 8028 3796 2752 751 MVB  FIELD1,TERMAD2 SAVE ADDRESS FOR ADDRESSING 001C9C 4124 3348 866 GETRFT1 MVA  RSPWD,R4 EOB PECEIVED ? 
752 RECK UEST E88D,06,co RECORD CHECKING? 001CA0 4904 867 TBT (Ri EOBR) 
001BCO 6F03 2F36 753+RECK AL QUEST, R7 DISPLAY MSG, ASK FOR INPUT O0O1CA2 1002 868 JOFF GETRFT12 IF Nor GO SEND MSG 
OO1BC4 369A 750+ DC A (£885) MSG ADDR 0O01CA4 6F03 31F2 869 BAL TCIRY,R? OTHERWISE SEND | (Z) « RCV RSP (EOT) 
001BC6 00CO 7155+ DC X*OOCO' OO=EBCDIC, 01=HEX §& CONTROL FLAG O01CA8 6F08 252E 870 GETRFT12 MVW X2740FL,R7 TRANSMIT CONT 
001BC8 C020 3796 756 MVB  IBUFF,RO GET BUFFER O0O1CAC 1805 871 INZ  GETRFT16 JUMP IF SO 
001BCC FOES 7157 CBI Ctyt fo IF NOT, CONTINUE OO1CAER 6F03 338C 872 BAL XMITRCV,R7 OTHERWISE, GET RFT AGAIN 
0O0O1BCE 1803 7158 JNE  SETOPTNS * 001CB2 0000 873 ADDRS DC A (*-* DATA ADDRESS TO TRANSMIT 
OO1BD0 4020 2528 0001 7159 MVWI 1,CHECKFL SET RECORD CHECKING FLAG O0O1CB4 247A 874 DC A (RCTSTDCB) CHAIN ADDRESS 
760 Ke eI He 2 Ie ie eae ae 2 aK 3h 2k str OPTION S HK RK KK MM HK He HK He Me He He HK 3 he Ee KE he he a ee Ae ae Khe 3 2 a ae ak O01CB6 50D8 875 J GRFT1 GO DECODE RFT 
761 *--------------------5------ 001CB8 6F03 341Cc 876 GETRFT10 BAL XMIT,R7 SEND RFT MSG 
162 * CKPT OA * 001CBC 0000 877 ADDRS20 DC a (*-# DATA ADDRESS 
163 *--------=----~-----+-------- O0O1CBE 6F03 338C 878 BAL XMITRCV,R7 OTHERWISE, GET RFT AGAIN 
764 SETOPTNS CKPT OA CHECKPOINT OA 001CC2 2480 879 DC A xmTcrh) DATA ADDRESS TO TRANSMIT (/ SPACE) 
001BD6 4020 180C OOOA 7165+SETOPTNS MVWI _X"OA',CKPT <<<<<<_ CHE CK PO IN T KK<KKccceeereeee 001CC4H 247A 880 DC A (RCTSTDCB) CHAIN ADDRESS 
166 + ¥— -— — = = oe = nn eo ee ee eee fe * 001CC6 50D0 881 J GRFT1 GO DECODE RFT 
OO1BDC 4020 2526 0001 767 MVWI QUES FL SET QUESTIONS ANSWERED FLAG 882 * 
768 HTE of Nt OPTPRT, 2 CONVERT INTO BESSAGE | (HEX) 001CC8 4O2F 2514 0002 883 CKTEST CWI  2,TESTFL WAS TEST 2 REQUESTED ? 
0OO1BE2 6F03 2F84 7169+ BAL HTE CVT HEX TO EBCDIC 2) 001CCE 6800 1DF6 884 BE ThST2 LE SO, GO TO TEST 2 
OO1BE6 180E361A0002 170+ DC ASEH 4608 OPTPRT ,2) FROM ADDR, TO ADDR, (334 CE BYTE COUNT 885 * HERWISE, GO TO TEST 1 
7T71 abe ENTER options BBG RA WK 2 HK eK ke AK eK 3K 3 eK XMIT ENTER TEST Dern MSG Teer Te TT TTT TTT TT TTT TTT TT TT 
OO1BEC 6F03 2F36 172+ AL UEST DISPLAY MSG, * ASK FOR INPUT 887 #---+------------ ~~ +--+ 
OO1BFO 3612 773+ DC yoprh sy MSG ADDR 888 * CKPT 05 * 
OO1BF2 01CO0 7744 DC OO=EBCDIC, 01=HEX & CONTROL FLAG 889 keence pinnae coos aoe eee 
175 HTE tnd OPTPRT, 2 CONVERT INTO MESSAGE (HEX) 890 TEST1 CKPT 05 CKPT 05 
OO1BF4 6F03 2F84 776+ BAL HTE,R7? CVT HEX TO EBCDIC 122) 001CD2 4020 180c 0005 8914+TEST1 MVWI X05", CKPT <<<<<< CH EC K P OI _N T <KK<Kc<c# eK RRR 
OO1BF8 180£361A0002 7717+ Cc A ObEN4 OPTPRT,2) FROM ADDR, TO ADDR, SOURCE BYTE COUNT 8994#=5--5-65—. Cette eee eee Sete ecu eee tee we ee lwce elena se esses ee tucd * 
7178 MSG OPTN S 86 PRINT OPTION WORDS AS ENTERED 001CD8 4124 3348 893 MVA  RSPWD,R1 EOB RECEIVED ? 
OO1BFE 6F03 2EFC 179+ BAL MSG GENERAL DISPLAY MESSAGE 0O0O1CDC 4904 894 TBT R1,EOBR) 
001C02 3612 780+ DC A{OPINS) MSG ADDR,FLAG OO1CDE 1008 895 JOFF XsMThsc11 IF NOT, CONTINUE 
001C04 80 781+ DC 001CE0 6F03 31F2 896 BAL TCIRY,R7 IF SO, SEND (Y RCV RESPONSE 
001C05 00 7182+ ALIGN T ORD OO1CE4 4124 3348 897 MVA  RSPWD,R1 GET RESPONSE WORD FOR TEST 
001C06 4124 180k 783 MVA  OPTN1,R1 CHECK OPTION TO ASK QUESTIONS AGAIN O01CE8 4903 898 TBT R1,EOTR) EOT IVED? 
0O01COA 490E 784 TBT R1, 16) * OO1CEA 1202 899 IN MTMSG11 CONTENUE IF SO 
001C0C 6A00 1A88 785 BON tcop IF ON, BRANCH TO ASK QUESTIONS OO1CEC 6802 1C54 900 B GRFT OTHERWISE, SEND (C) AND GET RFT 
001C10 6F08 2530 786 MVW RT3FL,R7 RTN O 904 essere sceseue Sith are Selene 
001C14 6801 1F40 7187 BNZ RT03 BRANCH IF ROUTINE 03 001CFO 902 XMTMSG11 Eu * 
001C18 6FO08 2532 788 MVW RYOFL,R7 RTN OG 001CFO 4020 1D12 25c8 $03 MVA  TESTMSG,ADDRS10 STORE DATA ADDRESS 
001C1cC 6801 21B8 789 BNZ RTOG BRANCH te ROUTINE 04 OO0O1CF6 4020 25c6 0037 904 MVWI xX'37" TkstcNT STORE BYTE COUNT - NO COD CHARACTER 
790 * OTHERWISE, DEFAULT TO ROUTINE 02 OO1CFC 6F08 2524 905 MVW  CORRFL,R7 CORR CODE? 
792 eA OOO IG OSGI IO GGG GIIAIGE  I RO IO RIO IGG I kok 001D00 1006 906 JZ SDEOT1 IF NOT, CONTINUE 
793 * * 001D02 4020 1D12 26A4 907 MVA TESTMSG2,ADDRS10 STORE HATA ADDRESS 
794 * ROUTINE 02 * 001D08 4020 26A2 0037 908 MVWI xX'37° TRSTCNT2 STORE BYTE COUNT - NO COD CHARACTER 
795 * * OO1D0E 6F03 341C 909 SDEOT1 BAL <XMIT,&7 GO TRANSMIT 
796 JOA a OO IOI IIR IOI IE OG ICI III III ICI IO IOI AGO CK 001D12 0000 910 ADDRS10 DC A (ee) DATA ADDRESS 
797 * x 001D14 6F08 252E 911 MVW X2740FL,R7 TRANSMIT CONTROL ? 
7198 * NAME: 2741,2740-1 WITH OR WITHOUT RECORD CHECKING * 001D18 1007 912 JZ GETDATA JUMP IF NOT 
799 * * 001D1A 6F03 3234 913 BAL TREOT, R7 IF SO, SEND EOT 
800 * PURPOSE: START STOP OVER THE LINE EXERCISER * 001D1E 6F03 338Cc 914 BAL XMITRCV,_RT7 SEND / SPACE, CHAIN TO RECEIVE 
801 * * 001D22 2480 915 DC A xutcre) DATA ADDRESS TO TRANSMIT (/ SPACE) 
802 * METHOD: * 001D24 247A 916 DC A (RCTSTDCB) CHAIN ADDRESS 
803 * RECEIVE ECHO TEXT * 001D26 5002 917 J GETTEXT2 GO SAVE DATA 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
001D28 6F03 321A 918 GETDATA BAL TCIRC,R7 SEND EOT T/ CHAIN TO RECEIVE 001E36 4124 3348 1032 MVA RSPWD GET RESPONSE WORD FOR TEST 
919 Sec RCV ECHO CT BXT eA AGO Sa GG IC TOR AGO IOI kok QOO1TE3A 4904 1033 TBT $k R1 BOBR) EOB RECEIVED ? 
O90 Meee teoee as eee See eee 001E3C 1008 1034 JOFF MTAORE2 IF NOT, CONTINUE 
921 * CKPT 06 oft OO1E3E 6F03 31F2 1035 BAL TCIRY, R7 IF SO, SEND (Y) 
G22 Kam a re - OO1E42 4124 3348 1036 MVA RSPWD, GET RESPONSE WORD FOR TEST 
923 GETTEXT2 CKPT 06 CKPT 06 OO1E46 4903 1037 TBT R1 ROeR) FOT RECEIVE 
001D2C 4020 180cC 0006 Q2U4+GETTEXT2 MVWI X*06",CKPT <<<<<< CH EC K Po O IT N LP KKK KCC KKK KEKK K OO1E48 1202 1038 JN MT MOREQ IF so EGNe aOR 
925+ ¥--— = - = + + ee $e ee = 2 = == === - = ++ * OOTE4A 6802 27E6 1039 B SENDCC OTHERWISE, SEND (C) AND GET RF? 
001D32 6F03 290A 926 BAL SAVEDATA,R7 SAVE RECEIVED DATA OO1E4E 6F08 2528 1040 XMTMORE2 MVW CHECKFL,R7 RECORD Chkcetne? 
001D36 CF25 2510 927 MVWZ ERR,R7 DID ERROR OCCUR? 001E52 1031 1041 JZ NORC IF noT CoNeENGE 
001D3A 1003 928 CONTXT IF NOT, CONTINUE 001E54 4020 1E76 2638 1042 MVA ECHOTST ADDRS4& SET DCB DATA ADDR-PTTC 
929 Ram na a a en OO1TE5A 4020 2636 0034 1043 MVWI1 348 BCHCNT STORE BYTE COUNT FOR RECORD CHECKING 
001D3C 6F03 3234 930 BAL TREOT, R7 IF SO, SEND {S) 001E60 6F08 2524 1044 MVW connFE R CORR CODE? 
001D40 50D7 931 J XMTMSG611 SEND MSG AGAIN O0O1E64 1006 1045 JZ TRGHORE A. IF NOT, CONTINUE 
932 *- +--+ - ee 001E66 4020 1E76 2714 1046 MVA ECHOTST2, ADDRS4Y SET DCB DATA ADDR-CORR 
001D42 4124 3348 933 CONTXT MVA RSPWD,R1 GET RESPONSE WORD FOR TEST 0OO0O1F6C 4020 2712 0034 1047 MVWI xX'34! BCHC NT2 STORE BYTE COUNT FOR RECORD CHECKING 
001D46 4904 934 TBT Bi EOBR) FOB RECEIVED ? 0O01E72 6F03 338C 1048 XMTMORE1 BAL XHITR eR7 GO SEND DATA 
001D48 1009 935 JOFF OXMT IF NOT, CONTINUE 001876 0000 1049 ADDRS4&Y DC A DATA ADDRESS 
OOID4A 6F03 31F2 936 BAL TCIRY,R7 SEND (4) "4 CHAIN TO RCV 001E78 248A 1050 DC A RCD B2) CHAIN ADDRESS 
OOID4E 4124 3348 937 MVA RSPWD,R1 GET R ONSE WORD FOR TEST OO1E7A 4124 3348 1051 MVA RSPWD,R1 GET RESPONSE WORD FOR TEST 
001D52 4903 938 TBT fp EOTR) EOT RECEIVED? 1052 *--~------- tt ene 
001D54 1203 939 JN OxkT IF SO, CONTINUE OO1E7E 4901 1053 TBT (zi YAKR) {2)2 
001D56 6F03 3234 940 BAL TREOT,R7 IF hoe SEND C) 001E80 1212 1054 JN OUNTLP E SO, CONTINUE 
00O1D5A 50CA 941 J XMTMSG11 SEND MSG AGAI 001E82 4900 1055 TBT R1,NAKR) 
942 Rak XYMIT ECHO MSG WITH OHECe ae. AR io fe fok tok tok dk tok OO1E84 1A07 1056 JNN KERR 4 NOT, PRINT ERR MSG 
943 *-----~-----------+---------- O01E86 4029 2520 0001 1057 AWI 1,ERRCT INCREMENT ERROR COUNT 
Cu x CKPT 07 * OO1E8C 4O2F 2520 OOOA 1058 CWI 16, ERRCT DOES ERR COUNT EXCEED MAX ? 
QU Ra en a ee + O0O1E92 14DD 1059 JLT XMPTMORE2 IF NOT, RETRANSMIT 
946 GOXMT CKPT 07 CKPT 07 1060 CKERR MSG £893,C0 IF NEITHER, PRINT ERR MSG 
001D5c 4020 180C 0007 947+GOXMT MVWI X*07*,CKPT <<<<KK CH EC K POL N T KKKK KKK RK KR HK 001E94 6F03 2EFC 1061+CKERR BAL MSG,R7 GENERAL DISPLAY MESSAGE 
| 9484+%---—-------------- 5 --- + + $5 - 5 $5 ee 2 --- + --- -- * 001E98 36F0 1062+ DC A (E893) MSG ADDR, FLAG 
001D62 6F08 2528 949 MVW CHECKFL,R7 RECORD CHECKING? OO1E9A co 1063+ Cc x*co? 
001D66 1024 950 JZ SENDCR JUMP TO CONTINUE IF NOT O01E9B 00 1064+ ALIGN WORD 
6641 decosesee5—— beaver a eee ees OO1E9C 6F03 334A 1065 BAL PRNTBUF,RT7 PRINT 50 BYTES OF RVC DATA 
001D68 6F03 338C 952 XMTAGAIN BAL XMTTRCY SEND ECHO TEXT OO1TEFAO 6F03 3234 1066 BAL TREOT, R? SEND EOT TO RES 
001D6C 3974 953 pc ae srOno) DATA ADDRESS OO1EA4 50D4 1067 J XMTMOPE2 AND RETRANSHIT 
OO1D6E 248A 954 pc i RCDCB2) CHAIN ADDRESS OO1TEA6 4020 1E76 390E 1068 COUNTLP MVA TEXTSAVE,ADDRS4& MOVE ADDRESS OF DATA FOR TRANSMIT 
O66 4eeeeeace Sloe een oe see OO1FAC 4029 250C FFFF 1069 AWI- echt DECREMENT LOOP COUNT 
001D70 4124 3348 956 MVA RSPWD,R1 GET RESPONSE WORD FOR TEST OO1EB2 18DF 1070 JNZ XNTMORE1 LOOP TILL DONE 
O57 #aeteeweee soe ee eae OO1EB4 5022 1071 J SENDENDO SEND END MESSAGE 
001D74 4901 958 TBT R1,YAKR) 1p 3 1072 ** eee KEKRKTRANSMIT CANNED ECHO MESSAGE WITHOUT CHECKING #800 KKK 
001D76 120R 959 aN ontLop F SO, CONTINUE 1073 *---------+-+ --~= == 5-- +--+ +++ 
001D78 4900 960 TBT NAKR) 1074 x CKPT OA * 
OO1D7A 12F6 961 IN pokes , SO, RETRANSMIT 1075 *-—-~+-----+----—-----+----+-- 
962 MSG E803 ah IF NEL{THER, PRINT ERR MSG 1076 NORC CKPT OA CKPT OA 
001D7C 6F03 2EFC 963+ BAL MSG,R7 GENERAL DISPLAY MESSAGE 001EB6 4020 180C OOOA 1077+NORC MVWI X*OA",CKPT <<<K<<K CH EC K POT N VP CCCC CL HHK KKH HK 
001D80 36F0 964+ DC A (E893) MSG ADDR,FLAG 1078+ *-------- Hee oF + $$ oe ee 5 fe +--+ +--+ x* 
001D82 CO 965+ DC x*cor OO1EBC 4020 1EDE 2638 1079 MVA ECHOTST ADDRS11 SET DCB DATA ADDR-PTTC 
001D83 OO 966+ ALIGN WORD 001EC2 4020 2636 0033 1080 MVWI xX°33' RCHCNT STORE BYTE COUNT TO SEND (D) FIRST 
001D84 6F03 334A 967 BAL PRNTBUF,R7 PRINT 50 BYTES OF RVC DATA QOO1TEC8 6F08 2524 1081 MVW CoRRrL. R7 CORR CODE? 
001D88 6F03 3234 ¢68 BAL TREOT, R7 SEND (C) TO RESET OO1ECC 1006 1082 JZ XMTMORE3 IF NOT, CONTINUE 
001D8C 50E7 969 J GOXMT AND RETRANSMIT OO1ECE 4020 1EDE 2714 1083 MVA ECHOTST2 ADDRS 11 SET DCB DATA ADDR-CORR 
O70 #aeeeeoes owt ete 2 Slee OO1ED4 4020 2712 0033 1084 MVWI X*'33', ECHCN STORE BYTE COUNT TO SEND (D) FIRST 
0O1D8E 802B 253B 3974 971 CONTLOP CB K16,DATSTORO ts 42), FIRST XMIT CHAR ? OO1EDA 6F03 341C 1085 XMTMORE3 BAL XMIT (ki GO SEND DATA 
001D94 1808 972 JNE CONTLOOP IF NO CONTINUE OO1EDE 0000 1086 ADDRS11 DC Gs } DATA ADDRESS 
973 MOV DATSTORO+1, DATEND, DATSTORO IF SO, GET RID OF IT OO1EEO 6F08 252C 1087 MVW T2741FL,R7 2741 
001D96 6F03 2FBYU 974+ BAL MOV,R7 MOVE BYTES. STRT ADDR, END ADDR, TO ADDR. OO1EE4 1004 1088 JZ XMEOT IF NOt GO SEND fc ), 
001D9A 39753A4B3974 975+ Dc oBESganO +1. DATEND, DATSTORO) OO1EE6 4020 1EDE 390E 1089 MVA TEXTSAVE,ADDRS11 MOVE ADDRESS OF DATA FOR TRANSMIT 
001DA0 4029 3972 FFFF 976 AWI ,DCOUNT HDECREMENT TRANSMIT BYTE COUNT BY ONE QOO1EEC 5002 1090 J et CONTINUE 
0O0O1DA6 4029 250C FFFF 977 CONTLOOP AWI LOOPCNT DECREMENT LOOP COUNT OO1TEEE 6F03 3234 1091 XMEOT BAL TREOT SEND oH] 
OO1DAC 18DD 978 INZ xnekeaed LOOP TILL DONE OO1EF2 4029 250cC FFFF 1092 LOOPCK AWI -1 106 pews DECREMENT LOOP COUNT 
OO1DAE 5021 979 J FINISH SEND END OF TEST MSG OO1EF8 18F0 1093 INZ PMORE3 LOOP TILL DONE 
980 xR RK XMTT ECHO MSG WITHOUT CHECK ING¥ 4% % % #2 % KOR OK KEK ae Hee oe a ok a a 2 a a ak 22k xure END OF TEST MSG x42 aE 4 2k 2 a ee 22k ee ee teak a ac a a 2k ak 2 a ac ae 
981 *------------- won -- + Kw ma — 
982 * CKPT 08 * 1096 * CKPT OB * 
QB3 Km wn a a ee ee er ee 1097 *------—-——-——— — 2 
984 SENDCR CKPT 08 CKPT 08 1098 SENDENDO CKPT OB CKPT OB 
001DBO0 4020 180C 0008 382+ SENDCR MVWI X'O8",CKPT <<<<<e CH EC K POL NT ££ <6 66 KK EEK OO1EFA 4020 180C O00B aoa SENDENDO MVWI X'"OB',CKPT <<<<<<e CH EC K POI N VT CCC CCK KKK EKEK 
Fh ec cae a cs ccs cae ae ca a are ate ate ca ee a ee cee me a ee Se ae ce ae re Om ae ee ne mn ee ee eee ee ce eee ee cee ome mn me ee ee ee ee ee me ee ee ETS) te ere ae re nee ne ae ee a cae cate a ce ee eee are ae ee ce ae ee ae sa nh ce Sm ee Se et eS aap ce ce ne me ce re cee we cee Se ee cee as wae oe wre ee ee eee ee ee we ee * 
OO1DB6 6F08 252C 087 MVW T2I741FL,R7 2741 ? OO1FOO 6F08 2528 1101 MVW CHECKFL,R7 CHECKING ? 
OO1DBA 1808 988 JNZ SEND274 | IF SO, SKIP SO DON'T SEND (C) OO1FO4 1806 1102 JNZ ENDO IF SO, CONINUE 
00O1DBC 6F03 341C 989 GOXMT1 BAL XMIT,R7 SEND fCHO TEXT OO1FO06 6F08 252C 1103 MVW T2741FL,R7 2741 
001DCO 3974 990 DC a (DafSTORO) DATA ADDRESS OO1FOA 1803 1104 JNZ ENDO IF SO, CONINUE 
001DC2 4029 250C FFFF 991 AWI -1,LOOPCNT DECREMENT LOOP COUNT OO1FOC 6F03 341C 1105 BAL XMIT,R? OTHERWISE, SEND (D) IN FRONT 
001DC8 18F9 992 JNZ GokmTt LOOP TILL DON O01F10 24D8 1106 DC A (CTRCD) 
OO1DCA 5013 993 J FINISHO SEND END OF ean MSG OO1TF12 4020 1F28 2602 1107 ENDO MVA DTEST,ADDRS3 SET DCB DATA ADDR-PTTC 
694 *+---=4--~--~----_->---.---- OO1F18 6F08 2524 1108 MVW CORRFT, R7 CORR CODE? 
001DCC 6F03 341C 995 SEND2741 BAL XNTT R7 SEND ECHO TEXT QOO1F1IC 1003 1109 JZ SENDEND1 IF NOT, CONTINUE 
001DD0 3974 996 pc a (Dat STORO DATA ADDRESS OO1T1FI1E 4020 1F28 26DE 1110 MVA xMEreRT SET pcb DATA ADDP-CORR 
001DD2 802B 253B 3974 997 CB K16,DATSTORO rs S {0 ), FIRST XMIT CHAR ? O0O1F24 6FO0O3 341C 1111 SENDEND1 BAL ve R7 TRANSMIT END MSG 
001DD8 1808 998 JNE CONTL OPO O CONTINUE 001F28 0000 1112 ADDRS3 DC a (+4 DATA ADDRESS 
999 MOV DATSTORO+1, DATEND, DATSTORO IF SO, GET RID OF IT OO1F2A CF25 250C 1113 MVWZ LOOPCNT,R7 RESET LOOP COUNTER 
OO1DDA 6F03 2FB4 1000+ BAL R7 MOVE BYTES. STRT ADDR, END ADDR, TO ADDR. OO1F2E 6F03 2A1A 1114 BAL PRNTLOG,R7 GO PRINT LOG IF OPTION SET 
OO1IDDE 39753A4B3974 1001+ DC h(DAtsToRo+ 1, DATEND, DATSTORO) 001F32 402B 180E 0008 1115 TWI 8,OPTN1 DO NOT LOOP OPTION ON? 
OO1DE4Y 4029 3972 FFFF 1002 AWI = N HhECREMENT TRANSMIT BYTE COUNT BY ONE 001F38 6A01 1C54 1116 BNN GRFT BRANCH IF NOT 
OO1DEA 4029 250C FFFF 1003 CONTLOPO AWI -1,LOOPCNT DECREMENT LOOP COUNT 001F3C 6802 30E8 1117 B ABORT OTHERWISE, TERMINATE 
OO1T1DFO 18ED 1004 JINZ SEND2741 LOOP TILL DONE 1119 BOI GO RI IR II IOI IG GI gE RR III IOI OK afk ake aki ake a a ak 
OO1DF2 6802 1EFA 1005 FINISHO B SENDENDO SEND END OF TEST MSG 1120 * * 
106 vibes toed XMIT CANNED ECHO MSG WITH CHECKING 28428 426% 040K 0k tok 134 vl ROUTINE 03 * 
> am te aw ae ae 9m em ee te ee ee a om gee ce te we cee Oe ee ee oe ep oe ee * 
1008 * CKPT 09 * Naas AOR IO GI II IR RII OIG II SIO RG Ga a zk iokoiaieke ac ak 
10090 *stesecocanse eee Cee een popes * * 
1010 TEST2 CKPT 0 c 1125 * NAME: DOWNLINE TEST FOR 2740-1 TERMINALS WITH * 
001DF6 4020 180C 0009 1011+TEST2 MVWI X*O9',CKPT <<<<<< CH EC K POL N TP C6666 KKK KK KKK 1126 * STATION Sotanoe WITH/WITHOUT RECORD CHECKING * 
1012+#----~----------~---4--- =< -- - - 5 ---- - - ii e+ - +--+. 1127 * RND FOR 2740-2 TERMINALS WITHOUT BUPPERED RECEIVE + 
001DFC 4020 390C 0032 1013 MVWI X*'0032',TEXTCNT SET BYTE COUNT FOR TEXTSAVE ARFA 1128 * * 
001E02 6F08 2528 1014 MVW CHECKFL,R7 RFCORD CHECKING 1129 * PURPOSE: START STOP OVER THE LINE EXERCISER * 
001E06 1003 1015 JZ CNTCHECK IF NOT CounTNGE 1130 * * 
001208 4020 390cC 0033 1016 MVWI X'0033',TEXTCNT SET BYfE COUNT FOR RECORD CHECKING 1131 * METHOD: * 
OO1EOER 4020 18630 2639 1017 CNTCHECK MVA ECHOTST+1,STADDR SET PTTC MESSAGE 1132 * RECEIVE ECHO TEXT * 
001E14 4020 1832 266B 1018 MVA ECHOE BADBR * 1133 * TRANSMIT ECHO TEXT * 
OO1E1A 6F08 2524 1019 MVW CORRFE,R CORR CODE? 1134 * 2x 
OO1E1F 1006 1020 JZ GOM IF NOT CONTINUE 1135 We Re 2 He 2 i he 2c a ae ak ake ak fe ak i 2c age ake ak tc ai 2k ic 2k i ak fe ake dak ak ak okie ai ake ak kak kk kak ake kate ak ofc eae age age ak ake te ate a ake ae ak 
001E20 4020 1E£30 2715 1021 MVA ECHOTST2#1 STADDR OTHERWISE, SET CORR MESSAGE 001F40 4020 180A 0003 1136 RTO3 MVWI 3,RTNE SET RTN 03 
001226 4020 1E32 2747 1022 MVA  ECHOE2, EADHR 1137 *--------------------------- 
100 jo eeSo sere coke 1138 x CKPT 1 * DTR ENABLE 
1024 * DATA IS MOVED TO TEXTSAVE FOR TRANSMIT AFTER FIRST TRANSMIT. 1139 ¥en nn a a ne ee + 
1025 * THERE IS NO (P. PRECEEDING TEXT IN TEXTSAVE AREA. 1140 CKPT 01 
1026 : THE FIRST TRANSMIT WILL COME FROM ECHOTST/ECHOTST2 AREA. OO0O1F46 4020 180C 0001 Ee MVWI X*O1",CKPT <<<<<< CH EC K POI N T CCC RK EKER 
eee nD be ie a me a ea a a a ne nn a nn a ee a ee * 
001E2C 6F03 2FB4 1028 GOMOV BAL MOV,R7 MOVE DATA TO TEXTSAVE AREA OO1F4C 6F03 35B0 1143 BAL CPMSG,R? PRINT RIN, CKPT MSG 
001E30 0000 1029 STADDR DC A (*-* START ADDRESS 001F50 6F03 353A 1144 BAL DTREN,R7 DIR ENABLE IF NECESSARY 
001E32 0000 1030 EADDR DC A (*-* END ADDRESS 1145 MSG E8A5, 80 RDY 
001E34 390F 1031 DC A (TEXTSAVE) TO ADDRESS 0 6F03 2EFC 1146+ BAL MSG,RT GENERAL DISPLAY MESSAGE 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
001F58 3790 1147+ pc A (E8A5) MSG ADDR,FLAG 002056 50E0 1261 J SENECH ADR TERMINAL AGAIN TO SEND ECHO TEX? 
OO1F5A 80 1148+ c x’ gor 1262 *--2-- 32 
OO1F5B 00 1149+ ALIGN WORD 002058 802B 253B 3974 1263 CTLOOP CB K16,DATSTORO Is D FIRST XMIT.CHAR ? 
1160. Boneseae as cana ae eee ee 00205E 1808 1264 JNE cTLOoP1 IF CONTINUE 
1151 * CKPT 2 * XMIT POLLING LIST 1265 MOV DATSTORO+1, DET END: phestonb IF SO, GET RID OF IT 
1152 *---------- waa penne ~ 002060 6F03 2FB4 1266+ BAL OV, R7 OVE BYTES. STRT ADDR, END ADDR, TO ADDR. 
1153 GOPOLL CKPT 02 CKPT 2 002064 39753A4B3974 1267+ DC A (DATSTOROS 1, DATEND, DATSTORO) 
001F5C 4020 180C 0002 1154+GOPOLL MVHI X'02',CKPT <<<<<< CH EC K POLI NT KKK KCC ERK KEE 00206A 4029 3972 FFFF 1268 AWI UNT HDECREMENT TRANSMIT BYTE COUNT BY ONE 
001F62 6F03 2754 We ee ee erage eee ee eT a i, ee Oos07e 1ene 2 oO FFFF i0 Oeste LOOP TELL DONE oo 
BAL POLLT, R7 GO POLL TERMINAL 
1128 Shea cee nee ee ee ee 002078 6802 2178 1271 B SENDEND2 SEND END OF TEST MSG 
1158 * CKPT 3 * DECODE RFT RECEIVED 1272 *--~-------- one oe - == 
1159 tases ee Ge gt ae ae oa at esas 1273 . CKPT 9 * SEND ECHO TXT WITHOUT CHECKING 
CKPT a en > 
001F66 4020 180C 0003 1161+ MVWI X*03',CKPT <<<<<K< CH EC K POL N T KKK KK KC HK KKH K 1275 TWEOT CKPT 09 CKPT 9 
116 2 + 8 a a nn ee ne oe ee * 00207C 4020 180C 0009 1276+THEOT MVWI X*99',CKPT <<<<ee CH EC K POT NT KKK KCC KHER RE 
OO1F6C 6F03 27A 1163 BAL CHECKRFT,R7 GO DECODE RFT AZ A) SR ie ee PN Or ee = eet ee eee ae aa Sa eae . 
OO1F70 CF25 2516 1164 HVWZ SENDCFL,R7 FLAG SET TO POLL AGAIN ? 002082 6F03 341C 1278 BAL XMIT,R7 SEND ECHO TEXT 
OO1F74 18F3 1165 JNZ GOPOLL JUMP IF SO 002086 3974 1279 DC A (DATSTORO) DATA ADDRESS 
OO1F76 4124 3348 1166 MVA RSPWD,R1 GET RESPONSE WORD FOR TEST 002088 6F03 2780 1280 BAL ADDRT,R7 ADDRESS TERMINAL AGAIN 
OO1F7A 4904 1167 TBT AF EOBR) EOB RECEIVED 00208C 4029 250C FFFF 1281 AWI -1,lL00PCNT DECREMENT LOOP COUNT 
OO1F7C 1006 1168 JOFF KRFTER IF NOT, toRoriuE 002092 18F4 1282 JINZ TWEOT LOOP TILL DONE 
OO1F7E 6FO3 31F2 1169 BAL TCIRY,R7 IF SO END 002094 6802 2178 1283 B SENDEND2 SEND END OF TEST MESSAGE IF DONE 
QOO1F82 4124 3348 1170 MVA RSPWD,R1 GET RESPONSE WORD FOR TEST 1284 *--~--------- wee rere enn 
001F86 4903 1171 TBT Aki EOTR) EOT RECEIVED? 1285 * CKPT A * SEND CANNED ECHO TXT WITH CHECKING 
001F88 1003 1172 JOFF. ckob Tf NOT, SEND REENTER MSG 1286 *---~-----~-=--------------- 
OO1F8A CF25 2512 1173 CKRFTER MVWZ RFTERR,R7 RFT ERROR FLAG 1287 TST2 CKPT OA 
OO1F8E 1012 nee CKT IF NOT, CONTINUE 002098 4020 180C OOOA 1288+TST2 MVWI X"OA",CKPT <<<<<¢ CH EC K POT NT CKKK KKK HHH KKHKK 
1176 #--+---+-—-—+~ ~~~ 00209F 4020 390C 0032 1290 MVWI X*'0032!,TEXTCNT SET BYTE COUNT FOR TEXTSAVE AREA 
1177 * CKPT 4 x ‘SEND REENTER RFT MSG TO TERMINAL QOO20A4 6F08 2528 1291 MVW CHECKFL,R7 RECORD CHECKING? 
1178 *---~----------- -~---+-+ po---- 0020A8 1003 1292 JZ CTCHECK IF NOT, CONTINUE 
1179 CKO4 CKPT O44 OO20AA 4020 390C 0033 1293 MVAI xX'0033',TEXTCNT SET BYTE COUNT FOR RECORD CHECKING 
001F90 4020 180c 0004 1180+CK04 MVHI X"OU",CKPT <<<<<K CH EC K POLI NT CCC hC 66 RK KEKE K 0020B0 4020 20D2 2639 1294 CTCHECK MVA ECHOTSTS 1 STADDR1 SET PTTC MESSAGE 
V1614 6-6 eee eS eee et oo eae es eee ee eee eases eee eee 0020B6 4020 20D4 2663 1295 MVA ECHOE, EADDR1 * 
001F96 6F03 2780 1182 BAL ADDRT, R7 ADDRESS TERMINAL 0020BC 6F08 2524 1296 MVW connet., R7 CORR CODE? 
OO1F9A 4020 1FBO 2592 1183 MVA RFTMSG, ADDRES SET PTTC MSG 0020CO0 1006 1297 JZ GOMO IF NO CONTINUE 
OO1FAO 6F08 2524 1184 MV® CORRFL , R7 CORR CODE? 0020C2 4020 20D2 2715 1298 MVA Ce Honan 2+1 STADDR1 OTHERWISE, SET CORR MESSAGE 
OO1FA4 1003 1185 JZ GETRF NOT, CONTINUE 0020C8 4020 20D4 2747 1299 MVA  ECHOE2,EADDR1 
OO1FA6 4020 1FBO 266E 1186 MVA RETMSG2, ADDRES OTHERWISE SET CORR MSG 1300 *------~---------~ 
OO1FAC 6F03 341C 1187 GETRFT2 BAL XMIT_R7- TRANSMIT SG 1301 * DATA IS geht TO TEXTSAVE FOR TRANSMIT AFTER FIRST TRANSMIT. 
OO01FBO 0000 1188 ADDRES pc A xk DATA RGDREeS TO TRANSMIT 1302 * THERE IS NO (D). PRECEEDING TEXT IN TEXTSAVE AREA. 
OO1FB2 SOD4 1189 ‘ J GOPOL GO POLL TERMINAL 1393 : THE FIRST TRANSMIT WILL COME FROM ECHOTST/ECHOTST2 AREA. 
1191 * CKPT 5 * ADDRESS TERMINAL,GO TO REQUESTED TEST O0O020CE 6F03 2FB4 1305 GOMOVE BAL MOV,R7 MOVE DATA TO TEXTSAVE AREA 
1192 *-~---- pen 0020D2 0000 1306 STADDR1 DC A (*~-* START ADDRESS 
1193 CKTST CKPT 05 CKPT 5 0020D4 0000 1307 EADDR1 DC A (*-* END ADDRESS 
OO1FB4 4020 180C 0005 1194+CKTST MVWI X*0O5*,CKPT <<<<<< CH EC K POT NT C£KC KKK KKK KKK 0020D6 390E 1308 DC A (TEXTSAVE) TO ADDRESS 
1195+ %=—- + ne nn on ne ee ee ee ee ee x 0020D8 6F08 2528 1309 XMTMOREY MVW CHECKFL,R7 RECORD CHECKING? 
OO1FBA 6F03 2780 1196 BAL ADDRT, R7 ADDRESS TERMINAL 0020DC 1030 1310 JZ NORC1 IF NOT, CONTINUE 
OO1FBE 402F 2514 0002 1197 CWI 2, TESTFL TEST 2 REQUESTED ? 00O20DE 4020 2100 2638 1311 MVA ECHOTST, ADRS SET DCB DATA ADDR-PTTC 
OO1FC4 6800 2098 1198 BE T§T2 IF s GO TO TEST 2 OO20E4 4020 2636 0034 1312 MVWI X'34? EECHCNT STORE BYTE COUNT FOR RECORD CHECKING 
1199 * OTHERWISE, GO TO TEST 1 OO2Z0BA 6F08 2524 1313 MVW CORRFL,R CORR CODE? 
1200. #ateed eee wee wee lee Seek OO20EE 1006 1314 JZ XMTMORES IF NOT, CONTINUE 
1201 * CKPT 6 * SFND ENTER DATA MESSAGE 0020FO 4020 2100 2714 1315 MVA ECHOTST2,ADRS SET DCB DATA ADDR-CORR 
1202 *-------~-------~-----+~-----+- 0020F6 4020 2712 0034 1316 MVWI X°34* EChCNT2 STORE BYTE COUNT FOR RECORD CHECKING 
1203 TST1 CKPT 06 0020FC 6F03 338C 1317 XMTMORES BAL XMITRCV, R7 O SEND DATA 
0O01FC8 4020 180c 0006 12044TST1 MVWI X*O6",CKPT <<<<<< CH EC K POTN T&T CCK KCK HK KKK 002100 0000 1318 ADRS DC A pa DATA ADDRESS 
1205 4#¥------- --- + —- - = ee ee ee ee ee ee eee He ee ee ee 002102 248A 1319 pc A (RCDCB2) CHAIN ADDRESS 
OO1FCE 4020 1FFO 25cC8 1206 MVA TESTMSG ,DATADR ADDRESS OF MESSAGE IF EBCD 002104 4124 3348 1320 MVA RSPWD,R1 GET RESPONSE WORD FOR TEST 
OO1FD4 4020 25c6 0038 1207 MVWI x'388 TESTCNT BYTE COUNT 1321 *------~-—---~~~----- += ~-+--- 
QOO1FDA 6F08 2524 1208 MVW  CORRFL,R CORRESPONDENCE ? 002108 4901 1322 TBI ABA YAKR) fF’ § 
OO1FDE 1006 1209 JZ SDMSG IF NOT, CONTINUE Q00210A 1211 1323 JON ouftLp1 F SO, CONTINUE 
OO1FEO 4020 1FFO 26A4 1210 MVA TESTMSG2,DATADR IF So SEND CORRESPONDENCE CODE 00210C 4900 1324 TBT pee NAKR) anh 
OO0O1PF6 4020 26A2 0038 1211 MVWI X?38°) TRSTCNT2 BYTE COUN 00210E 1007 1325 JOFF CKERR1 F NOT, PRINT ERR NSG 
OO1FEC 6F03 341C 1212 SDMSG BAL XMIT,R7 GO SEND Nec 002110 4029 2520 0001 1328 AWL 1,ERRCT INCREH ENT ERROR COUN 
OO0O1FFO 0000 1213 DATADR DC A (*-*) DATA ADDRESS 002116 402F 2520 OOOA 1327 CWI 10 ERRCT DOES COUNT EXCEED MAX ? 
1214 *-------~-- wer eee ---- 00211C 14DD 1328 JLT XMTHOREY IF Nore RET RANSHIS 
1215 * CKPT 7 * GET ECHO TEXT 1329 CKERR1 MSG F893,C0 IF NEITHER, PRINT ERR MSG 
1216. e4352 eee 00211E 6F03 2EFC 1330+CKERR1 BAL MSG,R7 GENERAL Be EpEae MESSAGE 
1217 XMTPOL CKPT O07 002122 36F0 1331+ DC A (E893) MSG ADDR,FLAG 
OO1FF2 4020 180C 0007 1218+ XMTPOL MVWI X*O7",CKPT <<<<<< CH EC K POI N T KCC KKK ERK KKK 002124 CO 1332+ DC xtcort 
1219 4+%*—----—---- --- — - + + ee ee ee ee ee ee ee ee ee ee 002125 00 1333+ ALIGN WORD 
OO1FF8 6F03 2754 1220 BAL POLLT POLL TERMINAL 002126 6F03 334A 1334 AL PRNTBUF,R7 PRINT 50 BYTES OF RCV DATA 
OO1FFC 6F03 290A 1221 BAL SAVEDATA, RT GO SAVE ECHO TEXT 1335 * 
002000 cF25 2510 1222 MVWZ ERR ERR RECEIVED ? 00212A 6802 1FB4 1336 B CKTST ADDRESS TERMINAL AGAIN 
002004 18F6 1223 INZ ERR RY IF SO, GO POLL AGAIN 1337 
002006 4124 3348 1224 MVA RSPWD,R1 CHECK’ RESPONSE WORD 1338 *--------------------------- 
OO200A 4904 1225 TBT {Rt EOBR) EOB RCVD ? 00212E 4020 2100 390E 1339 COUNTLP1 MVA TEXTSAVE ADRS MOVE ADDRESS OF DATA FOR TRANSMIT 
00200C 1005 1226 JOFF ENECH IF NOT, GO TO SEND ECHO TEXT 002134 4029 250C FFFF 1340 AWL echt DECREMENT LOOP COUNT 
00200EF 6F03 31F2 1227 BAL TCTIRY,R7 Go SEND (Z), RCV RESPONSE 00213A 18E0 1341 JINZ xHohooes LOOP TILL DONE 
002012 4903 1228 TBT R1,£0TR) EOT RCVD 00213C 501D 1342 J SENDEND2 SEND END MESSAGE 
002014 1201 1229 JON ENECH IF SO, GO TO SEND ECHO TEXT 1343 *-----~--~~.--->~~~--=+~~-+- 
002016 SOED 1230 F J XMTPOL IF NOf, GO POLL AGAIN 1348 CKPT OB * SEND CANNED ECHO MSG WITHOUT CHECKING 
1232 * CKPT 8 * SEND ECHO TEXT WITH CHECKING 1346 NORC1 CKPT OB OB 
1233 *-+r--~------ +--+ -- --- + +--+ + 00213E 4020 180C 000B 1347+NORC1 MVWI X'OB',CKPT <<<<<< CH EC K POT NT CCK RCC KKK KK 
1234 SENECH CKPT 08 1348 +*--------~--~--~--~--------~- - ~- - - - -- + + + - e+ + + 
002018 4020 180c 0008 1235+SENECH MVWI X'O8',CKPT <<<<<< CH EC K POLI N T <KKC KCK RK KKK 002144 4020 2166 2638 1349 MVA ECHOTST,ADRS1 SET DCB DATA ADDR-PTTC 
1236+ *---------— ee a a nn a no nn nn nn ee He 5 oe 5 + 5 + 00214A 4020 2636 0033 1350 MVWI x'33! ata ts STORE BYTF COUNT TO SEND (D) FIRST 
00201E 6F03 2780 1237 BAL ADDRT,R7 ADDRESS TERMINAL 002150 6F08 2524 1351 MVW CORRFL, R7 CORR CODE? 
002022 6F08 2528 1238 MVW CHECKFL, R7 RECORD CHECKING ? 002154 1006 1352 JZ XMTMOREO IF NOT, CONTINUE 
002026 102A 1239 IZ TWEOT JUMP IF NOT 002156 4020 2166 2714 1353 MVA ECHOTST2 ADRS1 SET DCB DATA ADDR-CORR 
002028 1240 TRANSM EQU * 00215c 4020 2712 0033 1354 MVWI X'33'. ECHCNT2 STORE BYTE COUNT TO SEND (D) FIRST 
1241 Xen -~ 002162 6F03 341C 1355 XMTMORE6 BAL XMIT 85 GO SEND DATA 
002028 6F03 338C 1242 BAL XMITRCV SEND ECHO TEXT 002166 0000 1356 ADRS1 DC A (#—4) DATA ADDRESS 
00202C 3974 1243 DC A DATSTORO) DATA ADDRESS 002168 6F03 3234 1357 BAL TREOT, R7 SEND §¢) 
00202E 248A 1244 DC A (RCDCB2) CHAIN ADDRESS 00216C 6F03 2780 1358 BAL ADDRT,R7 ADDRESS TERMINAL AGAIN 
1245 *----+--~--~-.-----=----+-~-- 002170 4029 250C FFFF 1359 AWI -1,LOOPCNT DECREMENT LOOP COUNT 
002030 4124 3348 1246 , MVA RSPWD,R1 GET RESPONSE WORD FOR TEST 002176 18F5 1360 ‘ JNZ XMTMOPEG LOOP TILL DONE 
002034 4901 1248 TBT dk) YAKR) §¥)2 1362 * CKPT OC * SEND END OF TEST MESSAGE 
002036 1210 1249 JON TLOO F SO, CONTINUE 1363 *=--+~-~--—~~-=----~s---~-+-+-- 
002038 4900 1250 TBT (R NAKR) N) ? 1364 SENDEND2 CKPT OC 
00203A 1007 1251 JOFF ck F NOT, PRINT ERR MSG 002178 4020 180C 000C 1365+SENDEND2 MVWI xX"OC',CKPT <<<<<< C H EC K POLI NT <CC< Kh KC EK 
00203C 4029 2520 0001 1252 AWL 1,ERRCT INCREMENT ERROR COUNT 1366+ *——----- - = nn ee ee ee = wo + 
002042 402F 2520 OOOA 1253 CHI 16, ERRCT DOES ERP COUNT EXCEED MAX ? 00217E 6F08 2528 1367 MVW CHECKFL,R7 CHECKING ? 
002048 14EF 1254 JLT TRANSH IF NOT RETRANS HIT 002182 1803 1368 JNZ END1 IF SO, CONINUE 
1255 ERCK MSG E893,CO0 IF NEITHER INT ERR MSG 002184 6F03 341C 1369 BAL XMIT OTHERWISE, SEND (D) IN FRONT 
00204A 6F03 2EFC 1256+ERCK BAL MSG,R&7 GENERAL DUSPLAY MESSAGE 002188 24D8 1370 DC A (CIRCD) 
00204E 36F0 1257+ DC A (E893) MSG ADDR,FLAG 00218A 4020 21A0 2602 1371 END1 MVA ENDTEST,ADRS3 SET DCB DATA ADDR-PTTC 
002050 co 1258+ Cc x*cor 002190 6F08 2524 1372 MVW CORRFL,R7 CORR CODE? 
002051 00 1259+ ALIGN WORD 002194 1003 1373 JZ SENEND IF NOT, CONTINUE 
002052 6F03 334A 1260 BAL PRNTBUF,R7 PRINT 50 BYTES OF RVC DATA 002196 4020 21A0 26DE 1374 MVA ENDTEST2 ,,ADRS3 SET DCB DATA ADDR-CORR 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 197€ 
00219C 6F03 341C 1375 SENEND BAL XMIT,R7 TRANSMIT END MSG 00228A 4903 1490 TBT R1,EOTR) EOT RCVD ? 
0021A0 0000 1376 ADRS3 DC h (*-* DATA ADDRESS 00228C 1201 1491 JON ENECH1 IF SO, GO TO SEND ECHO TEXT 
0021A2 CF25 250C 1377 MVWZ LOOPCNT,R7 RESET LOOP COUNTER 00228E SOED 1492 J XMTPOL1 GO POLL TERMINAL AGAIN 
0021A6 G6F03 2A1A 1378 BAL PRNTLOG,R7 GO PRINT LOG IF OPTION SET 1493 *--------- pao == - +--+ 
OO21AA 402B 180E 0008 1379 TWI 8,0 DO NOT LOOP OPTION ON? 1494 * CKPT 8 * SFND ECHO TEXT WITH CHECKING 
0021B0 6A01 1F5C 1380 BNN GOPOLL BRANCH IF NOT 1495 *----------~--------+---+---+-- 
0021B4 6802 30E8 1381 ABORT OTHERWISE, TERMINATE 1496 SENECH1 CKPT 08 Pp 
13.83 A IOI IG IO IO GOO GRIGG GG OO IAI CISC GIO IgGK 002290 4020 180c 0008 14974 SENECH1 MVWI X*O8",CKPT <<<<<K CH EC K POT NT £666 CCR KEKE K 
1384 x * + Ke ae a en ww wo nw we we ee * 
1385 * ROUTINE 04 * 002296 6F03 2780 1499 BAL ADDRT,R7 ADDRESS TERMINAL 
1386 * x 00229A 6F08 2528 1500 MVW  CHECKFL,R7 RECORD CHECKING ? 
1387 Pe SSFE SSIES SS SESS SSS SSS SSSSSSIS SS SLES SSS SSS SSSESSSSSESSSSSSFSSSPEStSPSSL SSL ESS FS 3 00229R 1025 toa JZ TWEOT 1 JUMP IF NOT 
1388 * * 1502 *~---------~-----~---------+- 
1389 * NAME: DOWNLINE TEST FOR 2740-2 TERMINALS WITH * 002240 6F03 338C 1503 TRANSM1 BAL XMITRCV,R7 SEND ECHO TEXT 
1390 * BUFFERED RECEIVE, WITH OR WITHOUT RECORD CHECKING * O0O22A4 3974 1504 DC A (DATSTORO) DATA ADDRESS 
1391 * * 0022A6 248A 1505 DC A (RCDCB2) CHAIN ADDRESS 
1392 * PURPOSE: START STOP OVER THE LINE EXERCISER * 1506 *-------~-----------+---+---- 
1393 * * 0022A8 4124 3348 1507 MVA  PSPWD,R1 GET RESPONSE WORD FOR TEST 
1394 * METHOD: * 0022AC 4901 1508 TBE (RI YAKR) Y)? 
1395 * RECEIVE ECHO TEXT * 0022AE 1210 1509 JON LOOP F SO, CONTINUE 
1396 * TRANSMIT ECHO TEXT * 0022B0 4900 1510 TBT (Ri NAKR) (N ? 
1397 * * 0022B2 1007 1511 JOFF ERCK1 F NOT, PRINT ERR MSG 
1398 PS SSS SSLSSS SSS SS LES SSS SFSSS SSS S SSS SSS FE SSSSESLSESSSSSSSSSSSS SPSS S SL SSS Les ¢ 3 OO0O22BY4 4029 2520 0001 1512 AWILI 1 ERRCT INCREMENT ERROR COUNT 
0021B8 4020 180A 0004 1399 RTOY MVWI 4,RTNE SET RTN O4 0022BA 402F 2520 OOOA 1513 CWI 16,ERRCT DOES ERR COUNT EXCEED MAX ? 
N00 4250 2e5e4- = ee ee 0022CO 14&EF 1514 JLT TRANSM1 IF NOT, RETRANSMIT 
1401 * CKPT 1 * DTR ENABLE 1515 ERCK1 MSG  £§893,C0 IF NEITHER, PRINT ERR MSG 
102: #oeseenie. ssn sese eee. 0022C2 6F03 2EFC 1516+ERCK1 BAL MSG,&7 GENERAL DISPLAY MESSAGE 
1403 CKPT PT 0022C6 36F0 1517+ DC A (E893) MSG ADDR,FLAG 
0021BE 4020 180C 0001 14044 MVWI X*"O1",CKPT <<<<ee CH EC K POL NT C£€6 e660 EK K 0022c8 CO 1518+ C X'cor 
10054 #23e52425- 4 Sok a ee ee ea eae eee eo ee eee eee 0022¢c9 00 1519+ ALIGN WORD 
0021C4 6F03 35B0 1406 BAL CPMSG,R7 PRINT RTN, CKPT MSG 0022CA 6F03 334A 1520 BAL PRNTBUF,R7 PRINT 50 BYTES OF RVC DATA 
0021C8 6F03 353A 1407 BAL DTREN,R7 DTR ENABLE IF NECESSARY 0022CE 50E0 1521 J SENECH1 ADR TERMINAL AGAIN TO SEND ECHO TEXT 
1408 MSG EB8AS5,80 PRINT RDY MSG 1522 *--------------------~+----~+- 
0021CC 6F03 2EFC 1409+ BAL MSG,R7 GENERAL DISPLAY MESSAGE 0022D0 6F03 3234 1522 CLOOP BAL  TREOT,R7 SEND EOT FOR BUFFER PRINTOUT 
0021D0 3790 1410+ DC A (E8A5) MSG ADDR,FLAG 1524 DELAY 5000 WAIT 5 SECONDS 
0021D2 80 1411+ Cc X'sor 0022D4 6F03 2DA6 1525+ BAL  DELAY,R7 DELAY MILLISECONDS 
0021D3 00 1412+ ALIGN WORD 0022D8 1388 1526+ DC A (5006 
104) #2soeeese = ase ee 0022DA 6F03 2780 1527 BAL ADDRT,R7 ADDRESS TERMINAL AGAIN 
14 * CKPT 2 * POLL TERMINAL 0022DE 4029 250C FFFF 1528 AWI -1,LOOPCNT DFCREMENT LOOP COUNT 
Vb eens escenes an S- cee Susoeeess 0022F4 18DD 1529 JNZ  TRANSM1 LOOP TILL DONE 
1416 GOPOL CKPT 02 CKPT 2 0022F6 6802 23FA 1530 B SENDEND3 SEND END OF TEST MSG IF DONE 
0021D4 4020 180C 0002 1417+GOPOL MVWI X*02"',CKPT <<<<eK CH EC K POL NT <f6C R666 KK K 1531 *-------- ae ee ee 
VE Bt Kn em aw ee a a ae ae ee os ee on on ee en on on ne * 1532 * CKPT 9 * SEND ECHO TXT WITHOUT CHECKING 
0021DA 6F03 2754 1419 BAL  POLLT,R7 GO POLL TERMINAL 1533 #-----+-~-~-~--+--~---+------ 
1120 #220<s2—co— ecco] eee eeoee 1534 TWEOT1 CKPT 09 CKPT 9 
142] * CKPT 3 * DECODE RFT RECEIVED 0022EA 4020 180c 0009 1535+TWEOT 1 MVWI X*09",CKPT <<<KKeK CH EC K POLI N T C£6C CCC REK KKK 
a te ce cee em eee ee ee ee cee ee ce ee ee ee ee ee ee ee ee ee ee oe ee ee oe + ee ee ee 0 ee en nn ae a we a we oe a we we we ee ee oe we K 
1423 CKPT 03 0022F0 6F03 341C 1537 BAL XMIT,R7 SEND ECHO TEXT 
0021DE 4020 180C 0003 1424 MVWI X'03",CKPT <<<<<e CH EC K POI N T CK€C CCC RK KEK K 0022F4 3974 1538 7 Cc A (DATSTORO) DATA ADDRESS 
Lm mm nn ane KK FG ZQ RHR ee wee ee a ee ee 
0021B4 6F03 27A6 1426 BAL CHECKRFT,R7 GO DECODE RFT 1540 DELAY 5000 WAIT 5 SECONDS FOR BUFFER PRINTOUT 
0021F8 CF25 2516 1427 MVWZ SENDCFL,R7 FLAG SET TO POLL AGAIN ? 0022F6 6F03 2DA6 1541+ BAL DELAY,R7 DELAY MILLISECONDS 
0021EC 18F3 1428 JNZ GOPOL JUMP IF SO 0022FA 1388 1542+ DC a (5006) 
0021EE 4124 3348 1429 MVA  RSPWD,R1 GET RESPONSE WORD FOR TEST 0022FC 6F03 2780 1543 BAL ADDRT,&7 ADDRESS TERMINAL AGAIN 
0021F2 4904 1430 TBT i EOBR FOB RECEIVED ? 002300 4029 250C FFFF 1544 AWI -1,LO0OPCNT DECREMENT LOOP COUNT 
0021F4 1006 . 1431 JOFF CKRFTERR IF NOT, CONTINUE 002306 18F1 1545 JNZ TWkOT1 LOOP TILL DONE 
0021F6 6F03 31F2 1432 BAL TCIRY,R7 IF SO, SEND (Y) 002308 6802 23FA 1546 B SENDEND3 SEND END OF TEST MESSAGE IF DONE 
0021FA 4124 3348 1433 MVA  RSPWD.R1 GET RESPONSE WORD FOR TEST 154] *-----------+--+-+---++------- 
0021FE 4903 1434 TBT aes EOTR) EOT PECEIVED? 1548 * CKPT A x SEND CANNED ECHO TEXT WITH CHECKING 
002200 1003 1435 JOFF cKobs IF NOT, SEND REENTER MSG 1589 424255555 -- 5 eee sees 
002202 cCF25 2512 1436 CKRFTERR MVWZ RFTERR,R7 RFT FRROR FLAG SET ? 1550 TES2 CKPT OA 
002206 1012 1437 x JZ CHKTST IF NOT, CONTINUE 00230C 4020 180C 000A 1951+ TES2 MVWI X*"OA',CKPT <<<<<< CH EC K POT NT <KKC KCC RRR KEE K 
cate eee ee re ee ee ee ae ee wee ce ee ee ee ee ee ee es ee ee ae ee ee me ae wee re ee ee ee ee we 0 we ee ep ee re oe ee ee we oe en we ee on ee ee ae ee re ee ce ee oe ae ce ee ee ee we ee ee we we ee ee we ee es ee ee ee 
1439 * CKPT 4 * SEND REENTER RFT MSG TO TERMINAL 002312 4020 390c 0032 1553 MVWI X'0032',TEXTCNT SET BYTE COUNT FOR TEXTSAVE AREA 
1440 *---------------+-----+------ 002318 6F08 2528 1554 MVW  CHECKFL,R7 RECORD CHECKING? 
1441 CKOO4 CKPT 04 00231c 1003 1555 JZ CTCHEK IF NOT, CONTINUE 
002208 4020 180C 0004 1442+CK004 MVWI X"'OU',CKPT <<<eee CH EC K POLI NT C€€€<6 60K 00231E 4020 390c 0033 1556 MVWI X'0033',TEXTCNT SET BYfE COUNT FOR RECORD CHECKING 
1443+ *--- ------—-+~--~-- 5 oe ee ee ee 5 ee oe 5 H+ +--+ -- * 002324 4020 2346 2639 1557 CTCHEK MVA  ECHOTST4+1,STADDRO SET PTTC MESSAGE 
00220E 6F03 2780 1444 BAL ADDRT,R7 ADDRESS TERMINAL 00232A 4020 2348 266B 1558 MVA  ECHOE, EADDRO * 
002212 4020 2228 2592 1445 MVA  RFTMSG,ADRES SET PTTC MSG 002330 6F08 2524 1559 MVW CORRFL,R7 CORR CODE? 
002218 6F08 2524 1446 MVW  CORRFL,R7 CORR CODE? 002334 1006 1560 JZ GOMOVE] IF NOT, CONTINUE 
00221c 1003 1447 JZ GTRFT IF NOT, CONTINUE 002336 4020 2346 2715 1561 MVA ECHOTST2+1,STADDRO OTHERWISE, SET CORR MESSAGE 
00221B 4020 2228 266E 1448 MVA RFTMSG2,ADRES OTHERWISE, SET CORR MSG 00233c 4020 2348 2747 1562 MVA  ECHOE2,EADDRO * 
002224 6F03 341Cc 1449 GTRFT BAL XMIT,R7 TRANSMIT MSG 1563 *--------~-----=-- 
002228 0000 1450 ADRES DC A (*#-*) DATA ADDRESS TO TRANSMIT 1564 * DATA IS MOVED TO TEXTSAVE FOR TRANSMIT AFTER FIRST TRANSMIT. 
00222A 5OD4 1451 a GOPOL GO POLL TERMINAL 1565 * THERE IS NO (D) PRECEEDING TEXT IN TEXTSAVE AREA. 
1452 *---------- ween oe en = + = 1566 * THE FIRST TRANSMIT WILL COME FROM ECHOTST/ECHOTST2 AREA. 
1453 * CKPT 5 * ADDRESS TERMINAL,GO TO REQUESTED TEST 1567 #-+-----~+---- line eres 
TUS ‘Seeese ee ea 002342 6F03 2FB4 1568 GOMOVE1 BAL MOV,R7 MOVE DATA TO TEXTSAVE AREA 
1455 CHKTST CKPT 05 002346 0000 1569 STADDRO DC h (*-* START ADDRESS 
00222c 4020 180C 0005 1U564+CHKTST MVWI X*05",CKPT <<e<KK CH EC K POLI NT <Ch6 e660 eK K 002348 0000 1570 EADDRO DC A (#-* END ADDRESS 
15 74eeso se cssoeec ol Beg Poe ey ic eee prey ey prep Sep aed ee eee 00234A 3905 1571 DC A (TEXTSAVE) TO ADDRESS 
002232 6F03 2780 1458 BAL  ADDRPT,R7 ADDRESS TERMINAL 00234C 6F08 2528 1572 XMTMORG MVW  CHECKFL,R7 RECORD CHECKING? 
002236 4O2F 2514 0002 1459 CWI 2,TESTFL TEST 2 REQUESTED ? 002350 1034 1573 IZ NORCO IF NOT, CONTINUE 
00223C 6800 230C 1460 BE TkS2 IF SO, GO TO TEST 2 002352 4020 2374 2638 1574 MVA  ECHOTST,ADRSO SET DCB DATA ADDR-PTTC 
1461 * OTHERWISE, GO TO TEST 1 002358 4020 2636 0034 1575 MVWI X*34' RéHCNT STORE BYTE COUNT FOR RECORD CHECKING 
1462 *+--------+--~-------~-~+----~- 00235E 6F08 2524 1576 MVW  CORRFL,R7 CORR CODE? 
1463 * CKPT 6 * SFND ENTER DATA MESSAGE 002362 1006 1577 JZ XMTMORS IF NOT, CONTINUE 
1464 *-----------—-------~------- 002364 4020 2374 2714 1578 MVA ECHOTST2,ADRSO SET DCB DATA ADDR-CORR 
1465 TES1 CKPT 06 CKPT 6 00236A 4020 2712 0034 1579 MVWI X'34° EChCNT2 STORF BYTE COUNT FOR RECORD CHECKING 
002240 4020 180C 0006 1466+TES1 MYWI X*06",CKPT <<<<<< C HEC K POLI N T&T <K<< KC KC RK RR KK X 002370 6F03 338C 1580 XMTMORS BAL XMITRCV,R7 GO SEND DATA 
167% $2-Sees5e04 aso o 8 ae a ee a ee eee ee eee wa-—=-+--- * 002374 0000 1581 ADRSO DC A - DATA ADDRESS 
002246 4020 2268 25C8 1468 MVA  TESTMSG,DATADR1 ADDRESS OF MESSAGE IF EBCD 002376 248A 1582 DC A (RCDCB2) CHAIN ADDRESS 
00224c 4020 25c6 0038 1469 MVWI X*38' TESTCNT BYTE COUNT 002378 4124 3348 1583 MVA §RSPWD,R1 GET RESPONSE WORD FOR TEST 
002252 6F08 2524 1470 MVW  CORRFL,R7 CORRESPONDENCE ? 4584 *—<—-+------+-5- 1-5 ae 
002256 1006 1471 JZ SDMSG1 IF NOT, CONTINUE 00237C 4901 1585 TBT R1,YAKR) (02 
002258 4020 2268 26A4 1472 MVA  TESTMSG2,DATADR1 IF SO, SEND CORRESPONDENCE CODE 00237E 1211 1586 JON LP{ F SO, CONTINUE 
00225E 4020 26aA2 0038 1473 MVWI «OX'38! TESTCNT2 BYTE COUNT 002380 4900 1587 TBT (Ri NAKR) N) ? 
002264 6F03 341C 1474 SDMSG1 BAL XMIT GO SEND MSG 002382 1007 1588 JOFF CKER F NOT, PRINT ERR MSG 
002268 0000 1475 DATADR1 DC A (*-%) DATA ADDRESS 002384 4029 2520 0001 1589 AWI 1,ERRCT INCREMENT ERROR COUNT 
1476 *------- +==----=---- --------- 00238A 402F 2520 OOOA 1590 CWI 10,ERRCT DOES ERR COUNT EXCEED MAX ? 
1477 * CKPT 7 * GET ECHO TEXT 002390 14DD 1591 JLT  XMPMORG TF NOT, RETRANSMIT 
1478 *------------------+-------- 1592 CKER1 MSG £E893,CO IF NEITHER, PRINT ERR MSG 
1479 XMTPOL1 CKPT 07 002392 6F03 2EFC 159 34+CKER1 BAL MSG,R7 GENERAL DISPLAY MESSAGE 
00226A 4020 180C 0007 14804+XMTPOL1 MVWI X'O7",CKPT <<<<Ke CH EC K POLI NT C£66 e660 8K 002396 36F0 1594+ DC A (E893) MSG ADDR,FLAG 
10414853322 a = i ee a ee ae ee a eee a ee ee eae nes 002398 CO 1595+ Cc rcoe 
002270 6F03 2754 1482 BAL  POLLT,R7 POLL TERMINAL 002399 00 1596+ ALIGN WORD 
002274 6F03 290A 1483 BAL  SAVEDATA,R7 GO SAVE ECHO TEXT 00239 6F03 334A 1597 BAL PRNTBUF,R7 PRINT 50 BYTES OF RCV DATA 
002278 CF25 2510 1484 MVWZ ERR,R7 ERR RECEIVED ? 1598 x 
00227C 18F6 1485 JNZ XMTPOL1 IF SO, GO POLL AGAIN 00239E 6802 222C 1599 B CHKTST GO ADDRESS TERMINAL AGAIN 
00227E 4124 3348 1486 MVA  RSPWD,R1 CHECK RESPONSE WORD 1600 * 
002282 4904 1487 TBT (Ri EOBR) EOB RCVD ? NGO a ee a 
002284 1005 1488 JOFF SENECH1 IF NOT, GO TO SEND ECHO TEXT 0023A2 6F03 3234 1602 CLP1 BAL TREOT,R7 SEND EOT FOR BUFFER PRINTOUT 
002286 6F03 31F2 1489 BAL TCIRY,R7 GO SEND (Y), RCV RESPONSE 1603 DELAY 5000 WAIT 5 SECONDS 
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OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
6F03 2DA6 1604+ BAL Merete R7 DELAY MILLISECONDS O0024A6 0000 1719 DC A (0 BYTE COUNT 
1388 1605+ DC 5006 0024A8 0000 1720 DC A (0 DATA ADDRESS WORD 
6F03 2780 1606 BAL . DR | ADDRESS TERMINAL AGAIN 1721 3 I RIOR RO GO I GIORGI I OK 3 kak aca ak aka ake ak ak ak fea 
4029 250C FFFF 1607 AWIL mel OPcCNT DECREMENT LOOP COUNT OO24AA 2000 1722 DCB3 DC X*20008 START CYCLE STEAL STATUS ONLY DCB 
18DC 1608 JINZ = 14iOoP LOOP TILL DONE OO24AC 0000 1723 DC A(0O NOT USED 
5020 1609 J SENDEND3 SEND END MESSAGE IF DONE QO24AE 0000 1724 DC A (0 NOT USED 
1610 *----- pe rn ee 0024B0 0000 1725 DC A (0 NOT USED 
1611 * CKPT OB * SEND CANNED ECHO TEXT WITHOUT CHECKING 0024B2 0000 1726 DC A (0 NOT USED 
1612 *--------~------------------ 0024B4 0000 1727 DC A (0 NOT USED 
1613 NORCO CKPT OB 0024B6 0006 1728 DC A (6 BYTE COUNT 
020 180C 000B 16144+NORCO MVWI X'OB',CKPT <<KK<< CHE CK PO TN T <<KK KK << FR OO24B8 2445 1729 DC A (CSBFR) STATUS WORD ADDRESS START 
16154 ¥=-—3-5565555552% a ce Se at a cae ym ee cares ee an WK Tt cto cortrre re se 2 t 2 sf 3 EPC eT EE EL OLE eee PORT Ee re eee LE ee 
020 23E2 2638 1616 MVA  ECHOTST,ADR1 SET DCB DATA ADDR-PTTC 0024BA 0000 1731 DIRDCB DC A (*~*) DITR_CONTROL WORD 
020 2636 0033 1617 MVWI xX*33! BCHCNT STORE BYTE COUNT TO SEND (D) FIRST 0024BC 0000 1732 DC A (0 RESERVED 
FO8 2524 1618 MVW CORRFEL,R CORR CODE? OO0O24BE 0000 1733 DC A (0 TIMER 1 
006 1619 JZ CHLRORE. IF NOT, CONTINUE 0024C0 0000 1734 DC A (0 TIMER 2 
020 23E2 2714 1620 MVA ECHOTST2,ADR1 SET och DATA ADDR-CORR 0024C2 0000 1735 DC A(O BIT RATE CONSTANT 
020 2712 0033 1621 MVWI X*33', EChcNT2 STORE BYTE COUNT TO SEND (D) FIRST 0024C4 0000 1736 DC A (0 CHAIN ADDRESS 
FO3 341C 1622 XMTMOR6 + BAL XMIT R7 GO SEND DATA 0024C6 0000 1737 DC A (0 BYTE COUNT 
000 1623 ADR1 DC AC #) DATA ADDRESS 0024C8 0000 1738 DC A(O DATA ADDRESS 
FO3 3234 1624 BAL . TREOT,R7 SEND EOT FOR BUFFER PRINTOUT 1739 * 
1625 DELAY 5000 WAIT 5 SECONDS 1740 ko ok ok RK LINE CONTROL CHARACTERS 3308 OK 0K 40 ia dk aK kk 
FO3 2DA6 1626+ BAL DELAY,R7 DELAY MILLISECONDS OO24CA 0001 1741 DC at} 
388 1627+ DC A (5006) 0O024CC 3D 1742 CIRCB DC X*3D° END OF BLOCK (B) 
FOQ3 2780 1628 BAL ADDRT, R7 ADDRESS TERMINAL AGAIN OO0O24CE 0001 1743 DC an 
029 250C FFFF 1629 AWI -1 LOOPCNT DECREMENT LOOP COUNT O0OO0O24D0 40 1744 CIRCN DC X'4or NEGATIVE RESPONSE (N) 
8F2 1630 JINZ XMEMORG LOOP TILL DONE 0024D2 0001 1745 DC Ay 
1631 ¥en enn a nn nr en QO024D4 76 1746 CIRCY DC X'76° POSITIVE RESPONSE (Y) 
1632 * CKPT 0c * SEND END OF TEST MESSAGE 0024D6 0001 1747 DC aay! 
1633 *------~-------------------- - 0024D8 16 1748 CIRCD DC X'168 END OF ADDRESS (D) 
1634 SENDEND3 CKPT OC CKPT OC OO24DA 0001 1749 DC 8a! COUNT 
4020 180C 000C 1635+SENDEND3 MVWI xX*0OC*",CKPT <<<<<< C H EC K POT NT KKK KKK KKK KKK O024DC 1F 1750 CIRCC DC X'1F! END OF TRANSMISSION 
1636 ta a a a i a en == OO24DE 0002 1751 DC A (2), COUNT 
4020 241C 2602 1637 MVA ENDTEST,ADR3 SET DCB DATA ADDR-PTTC OO24E0 2301 1752 XMTCTL DC X*2301°8 7 SPACE, TRANSMIT CONTROL SEQUENCE 
6F08 2524 1638 MVR  CORRFL,R&7 CORR CODE? 1753 ALIGN WORD . 
1003 1639 JZ SENENDO IF NOT, CONTINUE 1754 * 
4020 241C 26DE 1640 MVA ENDTEST2, ADR3 SET pc& DATA ADDR-CORR 1755 OR oka ie actici doi tok ak look ook ma IG ii aC a ake akak ak aka akc ak a aka ak ak ak ake afc ak 
6F03 341C 1641 SENENDO BAL XMIT,R7 SEND EOA FIRST OO024E2 0002 1756 DC yeaeien 
24D8 1642 DC A (CIRCD) DATA ADDRESS OO24E4 161F 1757 CIRCDC DC X"161F! (D) (Cc) 
6F03 341C 1643 BAL XMIT,R7 TRANSMIT END MSG OO24E6 1758 CIRCE EQU * 
0000 1644 ADR3 DC A (*-*) DATA ADDRESS 1759 * 
1645 DELAY 5000 WAIT 5 SFCONDS FOR BUFFER PRINTOUT 1760 [aOR OR a Roig Gig IO GCI ol io gaia kok ak ak ak ak ak ak ake ak ik ie eat ake aia ak ak ake fea 
6FO3 2DA6 1646+ BAL DELAY,R7 DELAY MILLISECONDS 002456 1761 PTTCTABL EQU * 
1388 1647+ DC A (5006 OO24E6 15020407080BOD0E1 1762 DC XL10'15020407080BOD0E1013! 0- 9 
CF25 250C 1648 MVWZ LOOPCNT,R7 RESET LOOP COUNTER OO24F0 1763 DECITABL EQU * 
6F03 2A1A 1649 BAL PENT EOG: ;RT7 GO PRINT LOG IF OPTION SET 0O24FO0 00010203040506070 1764 DC XL10*00010203040506070809' 0-9 
402B 180E 0008 1650 TWI DO NOT LOOP OPTION ON OO24FA 1765 CORRTABL EQU 
6A01 21D4 1651 BNN GO POL BRANCH IF NOT OO24FA 1302040710080D0B0 1766 XL 10" 1302040710080D0BOE16! ° 0 9 
6802 30E8 1652 ABORT OTHERWISE, TERMINATE 1767 EE eee EPO eT EEE eet eet eye ee RE AE er en nee 
1650 GeO IGG GIO IGRI GC GIG RO IE IOI aotek ak aK sik ak kek oka 1768 * * 
1655 * INTERRUPT CONTROL BLOCK * 1769 * STORAGE BUFFER LOCATIONS * 
1656 3 IG RICO IRI IO OI IG IK aK i ak ak 3k cai af ak 1770 * * 
1814 1657 INTCB DC A (DEVAD) DEVICE ADDRESS POINTER 1771 oR CG IR Gi OR aio og I a a ak tak akg deal ica 
2E5E 1658 DC A(GINT ADDRESS OF INTERRUPT ROUTINE 002504 0000 1772 CONF1 DC A (*-* STORE BYTE 3 FROM CONFIG TABLE HERE 
2E5E 1659 DC A (GINT ADDRESS OF ERROR INTERRUPT ROUTINE 002506 0000 1773 INTSW DC A (*-* INTERRUPT SWITCH 
0003 : 1660 DC X¥*0003 XPECTED INTERRUPT CONDITION CODE 002508 0000 1774 IDSAV DC A (*-* SAVE READ ID 
1661 RO OIG IRI OC III IORI IO CI IOI I I I RO I BO ak I I oak a akc aka 00250A 0000 1775 XMNAKFL DC A (*-* INDICATES NAK TRANSMITTED 
1662 * OIO CONTROL BLOCK 00250C 0000 1776 LOOPCNT DC A (*-* MAX LOOP COUNT FOR LOOP OPTN 
1663 2 3t0K RO I I IO ICI III ICICI KO OI a ok ak a aka ak 00250E 0000 1777 HITIT Dc A (*-* ALREADY DECODED FIRST ECHO # 
1814 1664 CTRLBLOK DC A (DEVAD 0/1 DEVICE pUDEESe POINTER 002510 0000 1778 ERR DC A (*-* SET IF ECHO TEXT NOT RCVD CORRECTLY 
2ADE 1665 DC A (CCERR 2/3 ERROR RETURN ADDRESS 002512 0000 1779 RFTERR DC A (*-* RFT ERROR ee 
0000 1666 DATAWORD DC A (*-* 4/5 VARIABLE (USUALLY DCB ADDRESS) 002514 0000 1780 STFL C A (*-* CONTAINS 1 OR oer eee REQUESTED) 
0000 1667 DC A (*-* 6/7 VARIABLE DEPENDENT ON OP 002516 0000 1781 SENDCFL DC A (*-* SEND a) GET RFT WHEN 
0000 1668 LASTSVC DC A (*¥-* 8/9 ADDRESS OF LAST SVC 002518 0000 1782 DECVAL DC A (*-* SAVE DE TMAL ECHO COUNT FROM RFT 
0000 1057 DEVID DC A (*-* 10/11 Se OED ee Ger aan (DEVICE ID) 00251A 0000 a CSSBYPAS DC A (*-* FLAG TO PREVENT CSS READ LOOP 
1671 FEE OEE EEO GEESE EEE SS EEE IG EEG 8 aces bik ka EOE RE 1785 * DO NOT RESET THE FOLLOWING IN RTO1, CKPT 01 
1672 * CYCLE STEAL BUFFER DATA AREA * 00251C 0000 1786 FLAGO DC A (*-* FIkst TIME THRU FLAG 
1673 8 RR ROCIO IO III OR IO RIK a OR dC i 3k 2k af aia 00251E 0000 1787 PASSCNT1 DC A (*-* TOTAL # OF PASSES COMPLETED 
1674 CSBFR EQU * 002520 0000 1788 ERRCT DC A (*-* ERROR COUNTER 
0000 1675 STATUSO OD xX'0000! STATUS WORD O 002522 0000 1789 BPSFL DC A (*-* BPS RATE HAS:BEEN SET ALREADY 
0000 1676 STATUS1 DC x*0000! STATUS WORD 1 002524 0000 1790 CORRFL DC A (*-* CORRESPONDENCE CODE FLAG 
0000 1677 STATUS2 DC X'00008 STATUS WORD 2 002526 0000 1791 QUESTFL DC A (*-* INITIAL QUESTIONS ANSWERED FLAG 
1678 33 GIO OI ICICI I ICI a dO a I Oa kk aC ci ak ak a ak 1792 
1679 * STORE AREA FOR TRANSMIT RESPONSE * 1793 * DO Be ac THE FOLLOWING IN RTO1, CKPT O09 AT LABEL ASKQUEST 
1680 2A OOO IO ORO IO IOI IOI IG II IG IR IO OI II iiok kak ak akak ak ak ak ak 002528 0000 1794 CHECKFL A (*-* RECORD CHECKING FLAG 
0000 1681 CRBFRCT DC A (*¥-* 00252A 0000 1795 STCTRL DC A (*-* STATION CONTROL FLAG 
00000000000000000 1682 CRBFR DC 20xX'O0! STORE AREA FOR TRANSMIT ‘ 00252c 0000 1796 T2741FL DC A (*-* 2741 FLAG 
1683 RO ORI II IORI OR IGOR OI IOI I IO IOI IORI IK kk a 00252E 0000 1797 X2740FL DC A (*-* 2740 TRANSMIT CONTROL FLAG 
1684 * DCBIS * 002530 0000 1798 RT3FL DC A (*-* ROUTINE 03 FLAG 
1685 3 IR IORI ORI IO ORO OO OR IR a kkk i akc aka akc at ak ok 002532 0000 1799 RTUPL DC A *-* ROUTINE OY FLAG 
8003 1686 TRDCB DC x'g00o3' CONTROL WORD - TRANSMIT END ALLOW BREAK/CHAIN 1800 RO KC OO OR OR Gio akg kak aR a aOR tok aa a ki ak ak ik 
0000 1687 DC A (*-*) RESERVED 1801 * ONSTANTS * 
0002 1688 Dc A 3 TIMER 1 1802 Age ae tener ett tt CRATE TREC EEOC IS ESSE CATERER A SES ATTEN SSSR ES 
O3DE 1689 DC A (990 TIMER 2 002534 00 1803 KOO DC X*'QO! CONSTANT 
0000 1690 DC A (*-* BIT RATE CONSTAN 002535 02 1804 kK02 DC X*02'* CONSTANT 
247A 1691 CHAINAD C A RCT T DCB) CHAIN ADDRESS MAY CHANGE DURING PROGRAM 002536 O44 1805 KO4 DC x'oar CONSTANT 
0000 1692 DATACNT DC A (*-* COUNT 002537 09 1806 KOS DC x'og? CONSTANT 
0000 1693 DATADDR DC A (*-* DATA ADDRESS (TRANSMIT TEXT) 002538 OF 1807 KOF DC X'OF* CONSTANT 
1690 2G AOI RI III III IGOR AGO I I IO Eki ak 2k kek ak 002539 13 1808 K13 DC X'13! CONSTANT 
2004 1695 RCTSTDCB DC X'2004' RECEIVE WITHOUT TIMEOUT 00253A 15 1809 K15 DC X'15# CONSTANT 
0000 1696 DC X¥*Q000' RESERVED 00253B 16 1810 K16 DC X'16! CONSTANT 
0000 1697 DC X*0000! TIMER 1 00253C 1F 1811 KI1F DC X'1F¢ CONSTANT 
0000 1698 DC X*'Q0008 TIMER 2 00253D 22 1812 K22 DC X'22! CONSTANT 
0000 1699 DC X¥'Q000! RESERVED 00253E 44 1813 K44 DC X'guyt CONSTANT 
0000 1700 DC X*Q0000! RESERVED 00253F 46 1814 K46 DC X'46t CONSTANT 
00C8 1701 DC Xx*oocs8* BYTE COUNT - 200 002540 4F 1815 K4F DC X'*QFe CONSTANT 
3842 1702 DC A(RBUF) DATA ADDRESS 002541 5B 1816 KSB DC X'5SB? CONSTANT 
1703 33 I III ORI IORI III III II OI IO I GIR 1ok 002542 TC 1817 K7C DC x'7ct CONSTANT 
2024 1704 RCDCB2 DC X*2024¢* RECEIVE RESPONSE WITHOUT TIMEOUT 002543 TF 1818 K7F DC X'7F¢ CONSTANT 
0000 1705 DC A(0 RESERVED 002544 80 1819 K80 DC Xx'sor CONSTANT 
0000 1706 DC A (0 TIMER 1 002545 88 1820 K88 DC x'8st CONSTANT 
0000 1707 DC A (0 TIMER 2 002546 99 1821 K99 DC xtggt CONSTANT 
0000 1708 DC A(0 BIT RATE CONSTANT 002547 £E8 1822 KE8 DC X'EB* CONSTANT 
0000 1709 DC A (0 CHAIN ADDRESS 002548 E9 1823 KE9 DC X'EQt CONSTANT 
0010 1710 DC X*0010° 16 BYTE COUNT MAXIMUM 002549 FF 1824 KFF DC XT EES CONSTANT 
3842 1711 DC A(RBOF) DA DDRESS OO0254A 64 1825 HUN DC X'6qe CONSTANT 
1712 KK KO OR RIO IO IO OR OR ok iO loli kok iaiok ok aio akak det ak ak ofook 00254B OA 1826 TENS DC X*OA® CONSTANT 
000D 1713 CDCB DC X*QOOD! CONTROL WORD- SET PTTC CONTROL 1827 ALIGN WORD 
0016 1714 DC X'*0016! BIT RATE CONSTANT AND EOA CHAR 00254C 0021 1828 LVL DC X'0021* LVL 2 WITH "'Itt BIT ON 
3D40 1715 DC X'*3D40! EOB AND COD CHARACTER 1829 oko OK OR OO kK I aK Joo OR i ig Om iO mai gor igo igo ag tok gai i foto age aie age 
761F 1716 DC X"761F! COD - COD Q0O0254E OOOF 1830 DC A (CREND-CRETURN) BYTE COUNT 
1c7Cc 1717 DC Xx'1c7c* UPSHIFT- DOWNSHIFT 002550 16 1831 CRETURN DC X' 16! EOA CARRIAGE RETURN 
0000 1718 pc A (0) CHAIN ADDRESS 002551 5B 1832 DC X'*SBe RETURN 
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* * 
* NAME - POLLT SUBROUTINE : 
* PURPOSE - TO POLL TERMINAL(S) + 
PSS PSL SL SSS SESS LS SPS PESTLE SSS SSS TES SESE SESS SSP SETS SSS SLES SSS SESS SSS SS SS SSS 
POLLT R6,REGSAV SAVE REGS 
XMTPOLL 60 WAIT 5 SECONDS 
XMTPOLL DELAY RT DELAY MILLISECONDS 
XUTTRCV,R7 GO, TRANS MIT/RECEIVE 
A (POLLTEPM DATA ADDRES 

. DC A (RCTSTDCB CHAIN ADDRESS 

MVA  RSPWD,R1 CHECK RESPONSE WORD 

TBE (RA NAKR) WAK RECEIVED ? 

JON MTPOLL IF SO, GO POLL TERMINAL AGAIN 

TBT (za EOAR) EOA RCVD ? 

JOFF XMTPOLL TF NOT,GO POLL TERMINAL AGAIN 

TBT = (1, EOTR) FoT RCYD ? 

JON ETG IF SO, RETURN 

TBT (Ea FOBR) FOB RCV 

JOFF YXMTBOLL IF NOT, GO POLL AGAIN 
RETURN LMB  REGSAV RETURN TO CALLER AND RESTORE REGS 
PSPSPS SLES SS PSL SSS SSS SSE SSS SST SSS SSS ESS SST SSS TES STS SSS LSS SSS LS SS SSS SS Se SS 
* 3 
* NAME - ADDRT SUBROUTINE * 
* PURPOSE - TO ADDRESS TERMINAL (S) + 
PS SSS SPSS SST SSL LSS SSS ESE SPSS SPSS ESTES SEES SL S SS EES SSS ES SSS LSS SS SSE SL SSS SS tS 
ADDRT STM RE, REGSAV_ SAVE REGS 
SENDAD BAL ITRCV ADDRESS TERMINAL 

DC M(ADRTERH) DATA ADDRESS 
. DC RCTSTDCE CHAIN ADDRESS 

MVA RSPWD CHECK RESPONSE WORD 

TBT R1 hier) YAK RECEIVED 

JON ETG IF SO, RETURN. 

TBE (RI RAR) NAK RECEIVED ? 

JOFF SENSAD IF FOT, GO ADDRESS TERMINAL AGAIN 

DELAY 5000 IF SOQ, DELAY 5 SEC 

BAL  DELAY,R7 DELAY’ MILLISECONDS 

DC x (5006) 

J SENDAD GO ADDRESS TERMINAL AGAIN 
RETURN1 REGSAV RETURN TO CALLER AND RESTORE REGS 
PS SSS S SSS SL SS SL SSS SSL SSS SSS LS SSS SS SPSS SPSL SS SS SL SS SP Se SS Set ete eS ee te 2 tS 
- * 
* NAME - CHECKRFT SUBROUTINE * 
* [0 DECODE ''REQUEST FOR TEST'' SENT FROM TERMINAL * 
SSP SSS LS SPSS SPS SSL SS STS PS SLL SSP SS ELE SST PS SSS SSS SESS SSS SES SPS SELLS SC LSS 2 2 3 


CHECKRFT STM R6,REGSAV SAVE REGS 
MVD RBOF,R6 MOVE RBUF TO R6, RBUF+2 TO R7 
CB CIRCC, R6 
JF SENDCC B S04 60 SEND (C) 
CWI X'161F',R6 p 
JE SENDCC So, “66 SEND (C) 
CWI X"165B',R6 
JNE CHKEOB 3 ) GR? CONTINUE DECODE 
CB CIRCC,P7 AFTER 
JNE  CHKEOB iF OTe CO TINUE DECODE 
J SENDCC 
CHKEOB CB CIRCB, R6 (B)2 
JE SENDYC F $04 309 SEND (¥) (C) 


{P oe: 6 SEND (Y) (C) 
1B Not, CONTINUE DECODE 


CB CIRCE,R7 (B) 

INE CODECK | F for CONTINUE DECODE 
SENDYCC BAL TCIRY SEND (%), THEN S®T FLAG TO SEND (C) 
SENDCC -MVWI CSE NbeEL SET FLA TO SEND (C) 
. J CKEND RETURN 
CODFCK MVA  K13,CKNINE+2 SET PTTC VALUES 

MVA K13,CKNINE3+2 * 

MVA K15,CKZERO+t2 * 

MVW CORRFL,R7 CORR CODE? 

JZ CONTCK’ IF NOT, CONTINUE 

MVA K16,CKNINE+2 OTHERWISE, SET CORR VALUES 

MVA K16,CKNINE3+2 

MVA  K13~ CKZERO+2 
CONTCK MVA  RBUF,R ADDR OF DATA IN R1 

CR eirch. fey EOA FIRST IN BUFFER? 

JNE  CKNINE IF NOT ONTINUE 

ABI 1,R1 OTHERWESE INCREMENT BUFFER 
CKNINE2 MVWI 4,R2 SET UP COUNTER 
CKNINE CB K43 ag" CHECK FOR 4 NINE'S 

INE  SETERR TF NOT 4 NINF!S, THEN REENTER 

JCT § CKNINE LOOP TILL D 
CKNINE3 CB K13 Ray ANOTHER NINE? 

JNE  CKZERO IF NOT, CHECK FOR ZERO 

ABI 1,R1 OTHERWISE E, INCREMENT R1 AND CHK FOR 0 
CKZERO CB K4i5 {R1)+ ZERO NEXT 

JNE  SETERR IF NOT, THEN REENTER 

CB K02, (R1) TEST 1 

JE SETEST1 SUMP IF sO 

CB KOU (1) TEST 2? 

JE SETEST2 JUMP IF so 
SETERR “MVWI 1,RFTERR SET FLAG TO SEND REENTER MSG 
CKEND LMB  REGSAV RETURN TO CALLER AND RESTORE REGS 
SETEST1 MVWI 1,TESTFL TEST 1 REQUESTED 

J XLATE * 
SETEST2 MVWI 2, TESTFL TEST 2 REQUESTED 
XLATE EQU * 

MVA PTITCTABL, XLAT+2 COMPARE WITH PTTC TABLE 
MVW  COREFL,R4 CORR CODE? 
JZ XLATE2 IF NOT, CONTINUE 
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OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
4020 287C 24FA 2519 MVA CORRTABL,XLAT+2 OTHERWISE cyeee te WITH CORR TABLE 002988 390A 2633 DC A {DATASTOR END ADDRESS 
0101 2520 XLATE2 ABIL 1,81 CHECK NEXT B 00298A 3982 2634 DATASTOR) TO ADDRESS 
4224 0009 2521 MVWI 9,R2 DECODE LOOP ae etree 00298C 402A 3024 2635 RETOCAL LMB STORE REGS AND RETURN TO CALLER 
8263 24UE6 2522 XLAT CB (R2-PTTCTABL) , (R1) x 2636 Dees CAUCE Ct O44) 0060s ek kk kak tak kc tek tok ak tok ak kok fk ok 
1010 2523 JE IT 2637 * SUBROUTINE 
JA41 FFFF 2524 AWI -1,R2 * 2638 * NAME - LOGR / LOGT / PRNTLOG 
1AFA 2525 ONN xXLAT * 2639 * PURPOSE 
C825 250E 2526 MVWZ HITIT,RO SECOND TIME THRU? 2680 * TO LOG AND IDENTIFY THE DATA TRANSMITTED AND RECEIVED 
18DF 2527 JINZ SETERR IF SO, ERROR OCCURRED - GET RFT 2641 * AND TO GENERATE CORRECT BYTE COUNT FOR TRANSMIT DCB TO 
8063 2541 2528 CB K5B fB) RETURA CHARACTER? 2642 * PREVENT FALSE tINCORRECT LENGTH RECORD. 
101B 2529 JE sere T IF SO, DEFAULT COUNT IS ONE 2643 * TO DISPLAY THE CONTENTS OF THE LOG 
8063 24DC 2530 CB CIRCC, (R1) FOT? 2644 2k tok kok sok io ok ogo lok ckiokok kok dato kak ik dak ie ok tok ek ak i te ok a ok 
1018 2531 JE SETCNT IF SO, DEFAULT COUNT IS ONE 2645 * SUBROUTINE 
8063 24CC 2532 CB CIRCB, (R1) EOB? 2646 * ENTRY TO SAVE RECEIVE DATA 
1015 2533 JE SETCNT IF SO, DEFAULT COUNT IF ONE 002990 4028 3024 C000 2647 LOGR M R6,REGSAV SAVE THE CALLERS REGISTERS 
2534 * 2648 I OO GG GIGI GG GOR IGG I IORI I dak k 
50D5 2535 J SETERR SET RFT ERROR FLAG 002996 6F08 3842 2649 MVW RBUF,R7 IF NO DATA RECEIVED, EXIT 
2536 * 00299A 102A 2650 JZ R 
C825 250F 2537 HIT MVWZ HITIT,RO CONTINUE DECODE 2651 = oo or ok igi GK ok eakokoiiiok ik aki aka ak ak ke ake ak ak ke ak aoa ae ak ae ae akc ake oe a ake ak ac ake 
1807 2538 JINZ HIT2 * 2652 * STATUSO SHOULD ALWAYS BE EQvah TO(1 BYTE RCVD) OR GREATER THAN 
4020 250E 0001 2539 MVWI 1,HITIT * 2653 * THE ADDR OF 'tRBUF*. aii LESS THAN, NO DATA WAS RECEIVED AT ALL. 
C5A0 24F0 2540 MVB gk2 DECITARBL) ,R5 * 00299C 6C08 244UE 2654 MVW STATUSO,R4 borntTs TO LAST BYTE ADDR ACCESSED(CS) 
3521 2541 SLL R5 * 0029A0 4624 3842 2655 MVA RB 
50E0 2542 J XLATE2 * OO29A4 768A 2656 R6 4 SEE IF ANY DATA RECEIVED AT ALL 
C6A0 24F0 2543 HIT2 MVB (R2,DECITABL) , R6 * 002986 1224 2657 JN XLGR IF RESIDUAL LESS THAN START, EXIT 
76A1 2544 OW BG. * 002948 0401 2658 ABIL 1,84 ADJUST COUNT 
6D0D 2518 2545 MVW *DECVAL STORE DECIMAL VALUE IN DECVAL OO29AA 6A08 2A18 2659 MVW LOGPT, R2 GET LOG POINTER ('TO*) 
6F03 28D0 2546 BAL DEeTOHEY, R7 PETURN WITH HEX ECHO CNT IN LOOPCNT OO29AE 9E22 2660 JAL LOGCK, R6 CHECK FOR END OF LOG 
C825 250E 2547 GOBACK MVWZ 7 RO RESET 1ST XLATE FLAG 002980 S80A4 253D 2661 MVB K22, k2 + SET UP FOR ENGLISH "RCV * IN DISPLAY 
50c4 2548 J ine RETURN TO CALLER AND RESTORE REGS 0029B4 80A4 253D 2662 MVB K22, (R2) + STORE TWO BYTES OF '22? 
4020 250C 0001 2549 SETCNT MVWI RE NOPCHT SET DEFAULT COUNT Q0029B8 4324 3842 2663 MVA RBUF R3 SET DATA POINTER 
50F9 2550 J pho RETURN TO CALLER 0029BC 9E1B 2664 GBPT JAL LOGCK, R6 CHECK FOR END OF LO 
2551 * OO29BE 8394 2665 MVB R3)+, (R2)+ MOVE FROM RBUF(R3) TO LOG AREA (R2) 
2232 PSS tS TSS SSS SPSS SSS SS SCS SSCS SSS SCC S OCS SSC SS SS SSS SSS SS SSS PCS SCS TST TST TT eT es 0029C0 BCFD 2666 JCT epPr gk JOMP IF COUNT Ro FINISHED 
3 * 0029C2 5010 2667 J 
2554 * NAME - DECIMAL TO HEX CONVERSION * 2668 Merrett itt erere rr eeeneteee eer eeeeen eens rcunenerstcerery 
2555 * * 2669 * ENTRY TO SAVE TRANSMIT DATA 
2556 * TO CONVERT DECIMAL ENTRY TO HEX FOR ECHO COUNT * 2670 * ENTER WITH XMIT BYTE COUNT IN DATACNT AND : 
2557 * ENTER WITH DECIMAL VALUE IN DECVAL * 2671 * XMIT DATA ADDRESS IN DATACNT * 
2558 * EXIT WITH HEX VALUE IN LOOPCNT * 2672 ORO oo ok ego iokok ak ake OR RR OR IK IC IK KR KK KR ak RC ik tC of ak fe fe of oi ae acai ak 
2559 * * 0029C4H 4028 3024 C000 2673 LOGT STM R6,REGSAV SAVE THE CALLERS REGISTERS 
2560 Baenonee eet ee pec et ey ee Se cee nee ener ere yen ne 0029CA 6808 2476 2674 MVW DATACNT RO MOVE BYTE COUNT TO REG 0 
4028 3024 C000 2561 DECTOHEX STM REGSAV SAVE RETURN ADDRESS AND REGS OO29CE 6A08 2A18 2675 MVW Loge rT. Bae GET LOG POINTER 
6D08 2518 2562 MVW poeree ne DECIMAL VALUE 0029D2 9£E10 2676 JAL LOGCK Ky RG CHECK FOR END OF LOG 
3546 2563 SRLD 8,R5 SAVE TENS AND UNITS O029D4 OF4Y 2677 MVBI args SET UP FOR ENGLISH '*XMT *§ IN PRINTOUT 
ED21 254A 2564 MB aoe R5 MULTIPLY BY 100 0029D6 Cc798 2678 MVB STORE TWO BYTES OF "44? 
3642 2565 SRL 8, R6 PLACE TENS AND oe IN LAST 8 BITS 0029D8 C798 2679 MVB Rye 
3626 2566 SRLD 4,R6 PLACE UNITS DIGIT R7 2680 * 
3762 2567 SRL 15,87 PLACE UNITS IN PROPER POSITION OO29DA 6B08 2478 2681 MVW Leyes R3 MOVE XMIT DATA ADDR 
7T7A8 2568 AW R7,R5 ADD IN UNITS VALUE OO0O29DE 9EOA 2682 MOVEDATA JAL R6 CHECK FOR END OF LOG 
BE21 254B 2569 MB TEKS R6 MULTIPLY BY 10 0029E0 8394 2683 MVB (Rae ALS MOVE XMIT DATA TO LOG AREA 
76A8 2570 AW R6,R5 ADD IN TENS VALUE 0029E2 B8FD 2684 JCT pA LOOP TILL DONE 
6D0D 250C 2571 MVW R5,LOOPCNT STORE VALUE IN LOOPCNT 2685 * OTHERWISE, FINISHED EXIT 
HO2A 3024 2572 LME REGSAV RESTORE REGS AND RETURN TO CALLER OO29E4 6A0D 2A18 2686 FINISH MVW R2,LOG SAVE LOG POINTER 
2573 HK RO i a OR ROR IO ROR RR ICRI RR oR i RC oi i i RR ko Co ke 2 ac ae ak ae ae ae ok ak 2k ac ak ake 0029F8 9805 2687 JAL FOGCK RE CHECK FOR END OF LOG 
2574 * NAME - RECEIVE RESPONSE SUBROUTINE QO29EA OFISD 2688 MVBI xX*#99* _ R7 MOVE END CHAR INTO R7 
2575 * PURPOSE - TO RECEIVE A RESPONSE FROM THE TERMINAL. 0029EC C798 2689 MVB R7, R2 + MOVE END CHAR ead Oe 
2576 * OO29EE C798 2690 MVB R7, (R2) + MOVE END CHAR INT 
VANMME LESS SS SS SSS SSS SSS SS SSL SSS SSCS SS OSSCSOCSC CS SS SCC SCS SSCS CTS STS +S tte SS S47 OO29F0 402A 3024 2691 XLGR LMB REG RESTORE REGS Pa Semone ON R7 
4028 3024 C000 2578 RCVRSP STM R6,REGSAV SAVE RETURN ADDRESS AND REGS 2692 * 
4O20 2446 248A 2579 MVA RCHCB2 DATAWORD RCV RESPONSE O029F4 4724 3C48 2693 LOGCK MVA LAST-4& ,R7 
6F03 34A2 2580 BAL RECEIVE, R7 OO29F8 T7745 2694 CW R7,R2 TEST FOR LOG END 
“O2ZA 3024 2581 REGSA RETURN TO CALLER AND RESTORE REGS OO29FA 6CCO 0000 2695 BLT R6 RETURN IF NOT END 
VAN MRL T ST SSS SCS SSS CCS SSSSSSSSCSS SSCS S LST tees reser oL eT Str Tt re ST Tete ttt eet eet OO29FE 5005 2696 J KPCLR LOG FULL,GO TO BEGINNING, DON'T CLEAR 
2583 * NAME - SAVE DATA SUBROUTINE 2697 CLLOG MSK LOGSV, LAST, 88 CLEAR HATA LOG IF END 
2584 * PURPOSE - TO SAVE RECEIVED ECHO DATA FROM TERMINAL 002A00 6F03 2E70 26984+CLLOG BAL MSK R17 START ADDR, END ADDR, FYTE VALUE TO SIORE 
2585 * TO COUNT NUMBER OF RECEIVED BYTES OO2ZA04 3A4C3C4HC 2699+ ne A (LOGS, LAST) 
2586 * 0O2A08 88 2700+ 
2587 * CALLING SEQUENCE BAL SAVEDATA,RT 002A09 00 2701+ ALIGN FORD 
2588 * RETURN ~- NEXT INSTRUCTION OO2ZA0A 4020 2A18 3AUC 2702 SKPCLR MVA LOGSV,LOGPT RESET LOG POINTER 
2589 SRecten Gea he ace ene eee ee een een ae 002A10 6A08 2A18 2703 MVW LOGPT, R2 INITIALIZE LOG POINTER 
4028 3024 C000 2590 SAVEDATA STM SAV SAVE REGS AND RETURN ADDRESS 002A14 68C2 0000 2704 R6 
2591 MSK DARSTORO, DATEND,OO CLEAR AREA TO STORE DATA 002A18 3A4C 2705 LOGPT DC A {i Vy LOG POINTER (INITIAL VALOE) 
6F03 2E70 2592+ BAL START ADDR, END ADDR, BYTE VALUE TO STORE 2T0G BR KK KK cheese AR Rk ai tek lok ok ak doko 6k kk tk kk a dk kk i ok tok ok 
39743 A4B 2593+ DC A(DAtSoRO, DATEND) 2707 * SUBROUTINE 
00 2594+ DC 2708 * ENTRY TO DISPLAY THE LOG DATA 
00 2595+ ALIGN a oen 2709 eauntOC caw ne eecene ot ee ace Cag eee eee ece 
4124 3842 2596 MVA RBUF,R1 ADDRESS OF DATA IN R1 QOO2ZA1A 4028 3024 C000 2710 PRNTLOG STM aoe. SAVE THE CALLERS REGISTERS 
4224 008C 2597 MVWI 140 h2 HOW MANY BYTES RCVD OO2A20 4224 3A4C 2711 MVA ROG GET ADDR OF START OF LOGSV 
“O24 0000 2598 MVWI R * 2712 INTPRT MSK EAC Vee 463 00 FILL BUFFER AREA WITH O00 (TERMINATE) 
8067 2534 2599 FINDEND CB Kb0 (R1) + IS THIS END (00)? OO2A24 6F03 2E70 2713+INTPRT BAL K,R7 START ADDR, END ADDR, BYTE VALUE TO STORE 
100B 2600 JE vi BRANCH IF SO 002A28 379637D5 2714+ DC A(EBAC, E8AC+63) 
7801 0001 2601 AWI1 OTHERWISE, UPDATE COUNTER OO2A2C 00 2715+ DC 
BAFA 2602 JCT titan, R2 AND CON NTINVE OO2Z2A2D 00 2716+ ALIGN x ORD 
2603 MSG E885 CO’ PRINT MSG tf END NOT FOUND QOO2A2E 4324 3796 2717 MVA E8AC,R3 GET ADDRESS OF OUTPUT AREA IN R3 
6F03 2EFC 2604+ BAL MSG R7 eonehes Be M a3 GE 002A32 4524 OO1E 2718 MVWI 30,R5 SET UP COUNTER(MAX WDS PER LINE) 
3622 2605+ DC A (E885) MSG ADDR,FLA 002A36 6A0D 2AD2 2719 LOPNXT MVW R2,CVTFROM GET CONVERT FROM ADDR 
co 2606+ X*co? OO2A3A 6BOD 2AD4 2720 MVW R3,CVTTO GET CONVERT ‘TO* ADDRESS 
00 2607+ ALIGN WORD : OO2A3E 820B 253D 2721 CB AR2) K22 SEE IF ENGLISH DISPLAY FLAGS OCCUR 
4020 2510 0001 2608 TERMERR MVWI 1,ERR ERR - GO GET ECHO TEXT AGAIN QOO2A42 1029 2722 JE ST 5 JUMP IF YES TO SEE IF CONSECUTIVE 
5025 2609 J RETOCAL * OO2ZA44 820B 253E 2723 CB ABZ) K4&q SEE IF "Q4* FLAG DETECTED 
2610 SAVE Fou OO2A48 102D 2724 JE Sst 4 JUMP TO SEE IF ANOTHER FOLLOWS 
7921 FFFE 2611 AWI “2, R1 ADJUST ADDRESS FOR Coane cul STORE OO2A4A 820B 2545 2725 CB R2) ,K88 SEE IF *88* FLAG DETECTED 
7801 FFFF 2612 AWI RO ADJUST BYTE COUNT - DON'*® pea OO2A4E 1031 2726 JE st JUMP TO SEE IF ANOTHER FOLLOWS 
19F7 2613 JNP TERGERR IF NOT POSITIVE, | GO GET BARRY AG 002A50 820B 2546 2727 CB ABZ) K99 SEE IF '99* FLAG DETECTED 
6F08 2528 2614 MVW CHECKFL,R7 RECORD CHECKING ? 002A54 1036 2728 JE ST § JUMP TO SEE IF ANOTHER FOLLOWS 
1809 2615 JINZ SETEOB JUMP IF So 002A56 4724 2AD0 2729 CVTDATA MVA CVTBLK,R7 ADDRESS OF CONVERT CONTROL BLOCK 
6F08 252C 26 16 MVW T2741FL,R7 2741 ? OO2ZA5A 601A 2730 SVC HTOE CONVERT AND STORE DATA 
1803 2617 JINZ S JUMP IF SO 002A5C 5001 2731 J INCDTA 
8060 24DC 2618 MVB CIRCC ARM) PUT {c) AT END OF DATA TO SEND OO2A5E 0201 2732 ONECT ABI 1,R2 STEP INPUT BYTE POINTER 
5005 2619 J SETDCK CONTINUE 002A60 0201 2733 INCDTA ABI 1,R2 STEP INPUT POINTER 
8060 2542 2620 SETDS MVB K7C Abd) \ PUT DOWNSHIFT CHAR AT END 002A62 0302 2734 ABI 2,3 STEP OUTPUT POINTER 
5002 2621 J SETS NT CONTINUE OO2A64 #=BDES8 2735 JCT LOPNXT (RS STEP # CHAR /LINE COUNTER 
8060 24CC <~622 SETEOB MVB CIRCB, (R1) PUT (B) AT END OF oF TO SEND 002A66 402B 180E 0800 2736 XPTLIN TWI X'0800! ,OPTN1 SEE IF BYPASS MESSAGES (NOT ERRORS) 
7801 OOOE 2623 SETDCNT AWI tae RO ADD TO BYTE COUNT eeueee Are bES 002A6C 120C 2737 JN XITPRT 
680D 3972 2624 MVW , BCOUNT SAVE NUMBER OF BYT 2738 *2--—<---- = = 
724 3843 2625 MVA RB Ne ee BEGIN MOVE FROM YTES f EGET véD (D) 2739 MSG E8AC,80 DISPLAY THE LINE WITH NO HEADER 
6FOD 2986 2626 MVW =sRT, FROMRD * OO2A6E 6F03 2EFC 2740+ BAL MSG,R7 GENERAL DISPLAY MESSAGE 
2627 *2-- ---- 002A72 3796 2741+ DC A (BBAC) MSG ADDR,FLAG 
2628 MOV CRLF ,CRLF+13, DATSTORO MOVE (2) CRLF FOR TRANSMIT OO2A74 80 2742+ 80& 
6F03 2FBU4 2629+ BAL MOV R7 MOVE BYTES. STRT A DR, END ADDR, TO ADDR. 002A75 00 2743+ ALIGN WORD 
2562256F 3974 2630+ C ASCRLE, CRLF+13, DATSTORO) 2744 *----------~------+--- 
6P03 2F 2631 BAL MOVE ECHO DATA AFTER (D),CRLF 002A76 CF25 2ADC 2745 MVWZ ENDFLG,R7 CLEAR TERMINATE DETECT FLAG 
0000 2632 FROMAD DC A (*-*) FROM ADDRESS —- START OO2ZA7A 1805 2746 JNZ XITPRT 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002A7C 4724 3c4c 2747 MVA  LAST,R7 2863 * BIT 15 ZERO 
OO02A80 7745 2748 CW RT R5 SEE IF END OF LOG AREA 2864 PS SSS LSS SSS SS SS SS SSS SS SS SS LS SELES SSS SSS SSS SSS ESS S SSS SSS SSS SL Se SS SS te Ss Se 4 
OO2A82 1D01 2749 IGT  XIPPRT 2865 * SUBROUTINE 
002A84 5SOCF 2750 J SET UP FOR NEXT LINE 2866 * AME - PRE 
2751 cS oft Se S StS SPS SPLeLe SSL SSS SSE SS SS SSL SSS SSL SSP SSS SSS SS SSS FS SSS SSS SSS SS SSS: 3 2867 * PREPARE DEVICE 
2752 * NOTE, THIS Is rhe ONLY WAY TO EXIT THIS SUBR 0O2B4A 4028 3024 C000 2868 PREP STM R6,REGSAV SAVE THE CALLERS REGISTERS 
002886 402B 180E 0001 2753 XITPRT’ WI X'00017',OPTN1 SEE IF SKIP CLEAR LOG 002B50 4020 374c D7D9 2869 MVWI C'PR',E89E STORE ENGLISH WORD 
OO2A8C 1202 2754 aN SRAX 002B56 4020 374E C5D7 2870 MVWI C*EP*: E89R+2 'PREP' IN MESSAGE TO IDENTIFY ERRORS 
00O2A8E 6EF03 2A00 2755 BAL CLLOG,R6 AFTER DISPLAYING, CLEAR LOG AREA 2871 TMSG E89E,80 DISPLAY OF CMD TO ATTEMPT 
002492 6802 29F0 2756 SRAX B X 002B5C 6F03 2EEA 2872+ BAL TMSG,R7 SVC TRACE MESSAGES DIAGNOSTIC) 
PAM MR LEE T TCLS SSS TSS SSCS SSS SS SCSSCC SOC LCL SPSS TCS SESE S SPSS STS STS SSS SL SS 002B60 374C 2873+ DC A (E85E) OPTN1 BIT 11 ON TO DISPL 
002496 822B 0001 253D 2758 TST22 CB R2,1) ,K22 SEE IF SECOND '22* OCCURS 002B62 80 2874+ Cc Xx" gor 
002A9C 18DC 2759 INE VTDA JUMP IF SECOND 22 NOT FOUND 002B63 00 2875+ ALIGN WORD 
002A9E 88E0 2AD6 2760 MVW  RCVMSG, (R3) - MOVE THE WORD ' R! TO MSG AREA 002B64 8828 254C 2446 2876 MVW LVL DATAWORD PUT LVL AT PARAMETER LIST 
OO2AA2 SODD 2761 J ONECT INCREMENT TO ACCOUNT FOR INSERT OO2B6A 4724 2442 2877 MVA cr TREB BLOK,R GET PARAMETER aeist ADDRESS 
OO2AA4 822B 0001 2535 2762 TST4Y CB &R2 1) K4y SEE IF SECOND '44' OCCURS 002B6E 600c 2878 SVC PREPARE DEV 
OO2ZAAA 18D5 2763 INE VTDATA 002B70 5029 2879 J BREN RETURN 
OO2ZAAC 88EFO 2AD8 2764 MVW XMTMSG, (R3) MOVE THE WORD * x? TO MSG AREA ZDBBO HK HR KK He HK eM A a eK Oe ie OK 2 a 2 2h ae ee ae 3c 2 ac 2h fk afc afc ae 2c 2 ae ak 2h 2c 2 ae ae aK af 2 2c a fe af Kak 2c fc afc ake ok akc ake afc a ak fe 
OO2AB0 50D6 2765 J ONECT INCREMENT TO ACCOUNT FOR INSERT 2881 * SUBROUTINE 
0OO2AB2 822B 0001 2545 2766 TST88 CB &2 1) K88 SEE IF SECOND '88" OCCURS 2882 * NAME - UNPREP 
OO2APB8 18CE 2767 INE vTbaTA 2883 * UNPRE PARE DEVICE 
OO2ABA 6FOD 2ADC 2768 MVW  R7,ENDFLG SET UP TO TERMINATE IF NO MORE DATA 002B72 4028 3024 C000 2884 UNPREP STM  R6,REGSAV SAVE THE CALLERS REGISTERS 
OO2ZABE 6802 2A66 2769 B XPTLIN END OF DATA TO CONVERT 002B78 4020 374cC E4DS 2885 VWI C'tON', E89F STORE ENGLISH WORD 
002AC2 822B 0001 2546 2770 TST99 CB fR2 1) K99 SEE IF SECOND '99' OCCURS 00O2R7E 4020 374E D7D9 2886 MVWI CPR, E89E+2 'ONPR' IN MESSAGE TO IDENTIFY ERRORS 
OO2AC8 18C6 2771 JNE VTbATA 2887 TSG ES89E,80 DISPLAY OF CMD TO ATTEMPT 
OO2ACA 88EO 2ADA 2772 MVW  LASFLG, (R3) MOVE THE WORD '<-!* TO MSG AREA 002B84 6F03 2EEA 2888+ BAL TMSG,R7 SVC TRACE MESSAGES (DIAGNOSTIC) 
OOZACE 50C7 2773 J ONECT INCREMENT TO ACCOUNT FOR INSERT 002B88 374C 2889+ DC A (E892) OPTN1 BIT 11 ON TO DISPLAY 
0770. #accesesecoeeeeoen se seS ee Geese weno eo ees eee see aoee sas cele ae ecs 0O2B8A 80 2890+ DC x'gor 
2775 * CONTROL BLOCK USED ONLY FOR 'PRNTLOG' SUBR 002B8B 00 2891+ ALIGN WORD 
002AD0 0001 2776 CVTBLK DC A (1) # BYTES HEX DATA TO CONVERT 002B8C 8828 254C 2446 2892 MVW  LVL,DATAWORD PUT LVL AT PARAMETER LIST 
002AD2 0000 2777 CVTFROM DC A (*¥-* "FROM! ADDR 002B92 402D 2446 0001 2893 RBTWI X'0001',DATAWORD OMIT THE 'L* BIT FROM PREP 
OO2ZAD4 0000 2778 CVTTO Dc A (#-* 'TO" ADDR 002B98 4724 2442 2894 MVA CTRLBLOK,R7 GET PARAMETER LIST ADDRESS 
9779 ¥en + nn + 2 3 es 2 + + + ++ + 002B9C 600C 2895 SVC PREP UNPREPARE DEVICE 
OO2AD6 40D9 2780 RCVMSG  0DC ct Rt 002B9E 5012 2896 J RTRN RETURN 
OO2ZAD8 “ORT 2781 XMTMSG DC c* xt 2897 He IK Ae fe Be ec ee A AK A I HK ie IK MK Be Me HK ie Ke ae He she eK IK SK I he Be KK Be he ah he a afc ae ae hc i oe ah aK ak 2 oe 2k ic ah fe 2k ae oe fe ae af ac ok ade afc fe ake ok ae ak of ok ok 
OO2ZADA 4C60 2782 LASFLG DC tee 2898 * SUBROUTINE 
002ADC 0000 2783 ENDFLG DC A (¥-*) 2899 * NAME RSET 
2785 [CG IG IC ai OR OR i ak a io ak ok ack kok a ai i a ak tafe ak ak ak ak ak ok ok ak 2k a 2900 * PU RPO SR- RESET DEVICE 
3786 * SUBROUTINE 2901 * PENDING INTERRUPTS WILL BE CLEARED, PREP REMAINS THE SAME, 
2787 * NAME - CCERR 2902 * DATA TERMINAL READY SIGNAL WILL NOT BE DROPPED. 
2788 * PURPOSE - TO DETERMINE THE OIO CONDITION CODE RETURNED IF NOT 7 2903 * 
2789 * COME HERE ONLY IF CC NOT = 7 002BA0 4028 3024 cO00 2904 RSET STM  R6,REGSAV SAVE THE CALLERS REGISTERS 
2790 * 002BA6 4020 374C DOE2 2905 MVWI C!tkSt, R89E STORE ENGLISH WORD 
2791 * CONDITION CODES BEFORE INTERRUPT ARE OO2BAC 4020 374E C5E3 2906 MVWI CteT'’ Rg9Re42 "RSET! IN MESSAGE TO IDENTIFY ERRORS 
2792 * cc = 0 NOT ATTACHED 2907 TMSG ES9E, 80 DISPLAY OF CMD TO ATTEMPT 
2793 * CC = 1 BUSY 002BB2 6F03 2EEA 2908+ BAL TMSG SVC TRACE MESSAGES (DIAGNOSTIC) 
2794 * CC = 2 BUSY AFTER RESET OO2BB6 374C 2909+ DC R(EBoE) OPTN1 BIT 11 ON TO DISPLAY 
2795 * CC = 3 COMMAND REJECT 002BB8 80 2910+ DC "80 
2796 * CC = 4 NOT USED 002BB9 00 2911+ ALIGN WORD 
2797 * CC = 5 INTERFACE DATA CHECK OO2BBA CF25 2446 2912 MVWZ DATAWORD,R7 
2798 . ce = 6 CONTROLLER BUSY OO2BBE 4724 2442 2313 : MVA  CTRLBLOK,R7 GET PARAMETER LIST ADDRESS 
2800 3G a OG COORG a I aa GO I Ea IO ii ak kak 002BC2 6008 2915 SVC RESET RESET DEVICE 
OO2ADE 702E 2801 CCERR CPLSR R1 GET INDICATORS 2916 *---------------------- 
OO2AEO 316A 2802 SRL 13, R41 EXTRACT CONDITION CODE 0O2BC4 402A 3024 2917 RTRN LMB  REGSAV RESTORE REGS AND RETURN ON R7 
OO2ZAE2 690D 2D50 2803 MVW ie SAVE CONDITION CODE 2918 SSP SSS SSS LESS SPS SS STS SS STS SPSS LS SS SLPS STS SPSS SSS SSS LSS PLS St ese e + eee + eS © 
2804 HTE 6r6cC+1, OIOCCVT,1 * 3919 * START CYCLE STEAL STATUS 
OO2ZAE6 6FO03 2F84 2805+ BAL R7 CVT HEX TO ERBCDIC (1: 2) 2920 HK A ea oe AK he a a he eK fe 2h a oh 2K ae I ae a aie 3h of ie kk afc Ie he ake 2 ae A oie he ic Oe i ic ake ai ic 2 ak oe i ake age ake aK age af age akc ak akc ak af ofc ae ake afc age fe akc ok ak 2k ok ake ke 
2806+ DC A (OLCCC#1, rOIOCCVT, 1) 2921 * SUBROUTINE 
OO2AFO 4&324 2D50 2807 MVA 6 OCC, R3 F USING PROG CONSOLE, ADDR IN R3 2922 * NAME - CSTAT 
2808 MSG EBA4, DISPLAY COND CODE 2923 * PURPOSE- READ CYCLE STEAL STATUS 
OO2ZAF4 6F03 2EFC 2809+ BAL MSG,R7 GENERAL DISPLAY MESSAGE 002BC8 4028 3024 cO00 2924 CSTAT STM R6,REGSAV SAVE THE CALLERS REGISTERS 
OO2AF8 3784 2810+ DC A(ESA4G) MSG ADDR,FLAG OO2BCE 4020 374cC E2C3 2925 MVWI cCtSc', B89E STORE ENGLISH WORD 
OO2AFA CO 2811+ C X'cor 002BD4 4020 374E E2E2 2926 MVWI C'SS*, B89F+2 'SCSS' IN MESSAGE TO IDENTIFY ERRORS 
OO2ZAFB 00 2812+ ALIGN WORD 2927 TMSG ES89E,80 DISPLAY OF CMD TO ATTEMPT 
OO2AFC 4029 2520 0001 2813 AWI 1, ERR INCREMENT ERROR COUNTER OO2BDA 6F03 2EEA 2928+ BAL TMSG,R7 SVC TRACE MESSAGES (DIAGNOSTIC) 
002B02 6F08 2D50 2814 MVW  OfLOCC,R7 IF ZERO, NOT ATTACHED.... OO2BDE 374C 29294 DC A (E858) OPTN1 BIT 11 ON TO DISPLAY 
002B06 1808 2815 JNZ RESCC 002BE0 80 2930+ Cc X'sor 
2816 MSG NAT,80 DISPLAY "NOT ATTACHED* OO2BE1 00 2931+ ALIGN WORD 
002B08 6F03 2EFC 2817+ BAL MSG-R7 GENERAL DISPLAY MESSAGE 002BE2 4020 2446 24AA 29 32 MVA  DCB3,DATAWORD PUT DCB ADDRESS AT PARAMETER LIST 
002B0C 3762 2818+ DC A (NAT) MSG ADDR, FLAG OO2BE8 CF25 2506 2933 MVWZ INTSH,R7 RESET INTERRUPT SWTCH 
002B0E 80 2819+ DC x'sgor OO2BEC 4724 2442 2934 MVA  CTRLBLOK,R7 GET PARAMETER LIST ADDRESS 
OO2ZB0F 00 2820+ ALIGN WORD 002BFO 6FOD 251A 2935 MVW &R7,CSSBYPAS SET FLAG TO PREVENT CSS READ LOOP 
002B10 402C 180E 4000 2821 WI X*4000',OPTN1 SET ON BIT TO ASK FOR DA/TYP 2936 *-------~-~-------+----- 
002B16 5002 2822 J RESCC1 CONTINUE OO2BF4 600B 2937 svc stcss CYCLE STEAL STATUS 
002B18 F701 2823 RESCC CBI 1,R7 CC=1,BUSY? 2938 *---------------+----- > 
O0O2B1A 1002 2824 JE RETRYCC1 IF SO, RETRY 2939 WINT 1000 WAIT FOR INTERRUPT 
002B1C 2825 ENDRETRY FOU * 002BF6 6F03 2C00 2940+ BAL WINT,R7 DELAY MILLISECONDS, WAIT FOR INT. 
002B1C 6802 1868 2826 RESCC1 B RTO1 BRANCH TO BEGINNING OO2BFA O03E8 29414 DC a (1060) RETURN ONLY IF INT’ OCCURED IN TIME. 
002B20 2827 RETRYCC1 EQU * OO2BFC 402A 3024 2942 LMB  REGSAV RESTORE REGS AND RETURN ON R 
002B20 6FO3 2BAO 2828 BAL RSET R7 IF cc=1 PESET 29044 PSPS SSS SS STS SL SSS SSS STS LS SSS SSS SSS SSS SS SSS STS SSSSSCLCSS£SS SSL SCSSCSSS SSP PSS SS 
002B24 4029 2B48 0001 2829 AWI 1. BUS YMAX INCREMENT RETRY COUNT 2945 * SUBROUTINE 
002B2A CF25 2Bu8 2830 MVWZ BUSYMAX,R7 2946 * NAME - WINT 
002B2E 7F06 OOOA 2831 CWI 10,R7 MAX RETRY COUNT 2947 * PURPOSE - TO WAIT A SPECIFIED MAXIMUM LENGTH OF TIME FOR 
eee cee ee: Jer ENDRETRE gene ee ee 
RROR MESSAGE IF THE INTERRUPT DOES'NT OCCUR 
002B38 6F03 2DA6 oe3c, Bak 5050 R7 : SELEY NYLLI SECONDS 3329 * srw REELNG SeOATD TIME E= 1000 1 
c ME= USEC MILLISECOND) PER COUNT 
002B3C 1388 2836+ DC A (5006 2952 * ( EXBECT INTERRUPT 
002B3E 6FO8 2B46 2837 MVW  O107,R 2953 * RETURN - NEXT INSTRUCTION AFTER LAST PARAMETER 
002B42 68E2 0000 2838 B (R7) 0954 3 CR IRI IGG OR GI IGOR GK a dak ok iaioak ak alogcai ak 
002B46 0000 2839 O07 DC A (*#=* 2955 *-------------~--------------------+- 
002B48 0000 2840 BUSYMAX DC A (*~* 2956 * INTERRUPT CONDITION CODES ARE 
2842 eR ROR I OK AOI IORI ICO ICR GR AO IO ICR aC E aici a tak 2k 2957 * cc = 0 CONTROLLER END 
2843 * CONTROL WORD BIT ASSIGNMENTS 2958 * CC = 1 
2844 * 2959 * CC = 2 EXCEPTION 
2845 * BIT 00 CHAIN BIT 2960 * CC = 3 DEVICE END 
2846 * BIT 01 NOT USED 2961 * CC = 4 ATTENTION (RING INDICATOR LINE FROM MODEM ACTI VE) 
2847 * BIT O2 OUT/INPUT BIT (TO ALLOW INPUT TO STG ONLY) 2962 ie ne ee - SPSL SES SSS SITS S SSS SSL SSS SSSOLSSS SE STS SE SSS Ss S | 
2848 * BIT 03 NOT USED 002c00 0702 2963 WINT ABI 
3849 * 002C02 4028 3024 co00 2964 STM gee REGSAV SAVE THE CALLERS REGISTERS 
2850 * BIT O04 NOT USED 002C08 4324 000A 2965 MVWI 10.R3 RETRY COUNT 
2851 * BIT 05 C.S. ADDR KEY 002C0OC 69E8 FFFE 2966 MVW (5 =2),R1 GET COUNT 
2852 * BIT 06 C.S. ADDR KEY 002C10 6800 2D46 2967 BZ TOR RETURN IF COUNT = ZERO 
2853 * BIT 07 C.S. ADDR KEY 002C14 690D 2D4A 2968 MVW R1 DLYCTSV SAVE COUNT 
5854 * 002C18 CE25 2506 2969 TIME MVWZ INTSW,R TEST FOR INTERRUPT 
2855 * BIT 08 HALF RATE (ZF INTERNAL CLOCK, IT WILL BE 600) 002C1C 180F 2970 INZ CREORS” JUMP IF INTERRUPT 
2856 * BIT 09 ASCII AE CDIC MODE IF OFF) 002C1E 6003 2971 SVC IDLES5 500 USEC 
2857 * BIT 10 ENABLE D 002C20 CE25 2506 2972 MVWZ INTSW,R6 TEST FOR INTERRUPT 
2858 * BIT 11 DISABLE DTR 002C24 180B 2973 JNZ  CKFOR3 JUMP IF INTERRUPT 
2859 * 002C26 6003 2974 SVC IDLE5 500 USEC 
2860 * BIT 12 TIMER (IF USED ALONE, 2.0 SEC, CC=3, NO T.0 002C28 BOFT 2975 JCT  fTIME,R1 DECREMENT COUNT 
2861 * BIT 13 XMIT 002C2A 6908 2D4A 2976 MVW DLYCTSV,R1 
2862 * BIT 14 EXIT TRANSPARENT MODE 002C2E BBFG 2977 JCT  TIME,R3 DECREMENT COUNT 


TE8E6 - 2740/2741 DOWNLINE TEST P/N=44 14382 EC=375147 PAGE 14 TE8E6 - 2740/2741 DOWNLINE TEST P/N=4414382 EC=375147 PAGE 14A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
2978 MSG ES9F 80 DISPLAY "NO INT? 002D3E 6F03 2EFC 3092+ BAL MSG GENERAL DISPLAY MESSAGE 
002C30 6F03 2EFC 2979+ BAL G,k7 GENERAL DISPLAY MESSAGE 002D42 376E 3093+ DC EbR 3) MSG ADDR,FLAG 
002C34 3758 2980+ DC AEs SF) MSG ADDR,FLAG 002D44 CO 3094+ DC EO 
002C36 80 2981+ DC 002D45 00 3095+ ALIGN WORD 
002C37 00 2982+ ALIGN WORD 002D46 4O2A 3024 3096 RETUR LMB  REGSAV RESTORE REGS AND RETURN ON R7 
002C 38 6802 1864 2983 B BEGIN 3QOQT KEKE KEKRKKKEKKAKKKKKKKKKEKEKHKKKHKKKKKHEKKEAKE EK KEKEK EK KEKE EKEK EKKK KKK KKK EK 
2984 * INTERRUPT OCCURRED IF YOU CAME HERE 002D4A 0000 3098 DLYCTSV DC A (*-* 
002C3c 2985 CKFOR3 EQU. * 002D4c 0000 3099 ISB DC Rh (¥+* INT STATUS ( FROM R7 AND = DA(8-15)) 
002C3C CE25 251A 2986 MVWZ CSSBYPAS,R6 SEE IF C.S. STATUS IN PROGRESS OO2D4E 0000 3100 ISBSAV DC A (*-* 
002C40 6801 2D4K6 2987 BNZ RETOUR RETURN 002D50 0000 3101 OIOCC DC A (*-* O10 CC BEPORE INTERRUPT 
2988 HTE ISB, ISBPRNT,1 PUT ISB IN MESSAGE FOR POSSIBLE PRINT 002D52 0000 3102 CC DC A (*-* CONDITION CODE AFTER INTERRUPT 
002C44 6F03 2F84 2989+ BAL R7 CVT HEX TO EBCDIC (1:2 002D54 0000 3103 CCSAV DC A (*-* 
002C48 2D4C37720001 2990+ DC Na ISBPRNT FROM ADDR, TO ADDR, SOURCE BYTE COUNT B10 HHI I HK KK RK BKK RE HE IK TOR KER KERR RO RR ROR I IO I 
2991 HTE SNTCCVT, 41) PUT CC IN MESSAGE FOR, POSSIBLE PRINT 3105 * WAIT FOR INTERRUPT SUBROUTINE IN SECONDS * 
OO2CUE 6F03 2F84 2992+ BAL CVT HEX TO EBCDIC $2) 3106 * PURPOSE: WAIT FOR INTERRUPT. * 
002C52 2D53377E0001 2993+ DC Mees, INTCCVT,1) FROM ADDR, TO ADDR, (332 CE BYTE COUNT 3107 * IF TIMEOUT OCCURS, PRINT NO INT MESSAGE * 
002C58 6E08 2D52 2994 MVW 3108 * * 
002c5C F603 2995 CBI hee 3109 * CALL IS WINTS XXXX SECONDS (DECIMAL) * 
002C5E 1073 2996 JE RETUR 3110 * * 
2997 *---ISB ---------------------------- 3111 * RETURN: NEXT SEQUENTIAL INSTRUCTION. * 
2998 * BIT 00 STATUS AVAILABLE 3112 * WILL WAIT FOREVER FOR INTERRUPT * 
2999 * BIT OT COMMAND .REJECT 3113 Be ee ere ty ete gra ege eete enn eae re ee 
3000 * BIT 02 INCORRECT LENGTH RECORD 002D56 0702 3114 WINTS ABI R7 
3001 * BIT 03 DCB SPECIFICATION CHECK 002058 4028 3024 cO00 3115 STM fee gRE GSAV SAVE THE CALLERS REGISTERS 
3002 *---~-;------------- -- = = <5 5-H 002D5E 8F28 FFFE 2DA2 3116 MVW (Bi 72)400 GET COUNT 
3003 * BIT 04 STORAGE DATA CHECK 002D64 6F08 2DA2 3117 MVW ounT, RF 
3004 * BIT 05 INVALID STG ADDR 002D68 1016 3118 JZ RETUR RETURN IF COUNT = ZERO 
3005 * BIT 06 STG PROTECT CHECK 002D6A CE25 2506 3119 TIME1 MVWZ INTSW,R6 CHECK INTSW 
3006 * BIT 07 INTERFACE CHECK OO0O2D6E 6801 2C3C 3120 BNZ  CKFOR3 IF RECEIVED Go CHECK FOR CC3 
3007 *----------------------------------- 002D72 4020 2DA4 0388 3121 MVWI 1000,COUNT1 SET 1 SEC COUN 
3008 * CAME HERE IF CC NOT = 3 002D78 6003 3122 TIMEO SVC. IDLE5 WAIT 500 USEC. 
002C60 F602 3009 I 2,R6 TEST FOR CODE 2 (EXCEPTIO Ny OO2D7A CE25 2506 3123 MVWZ INTSW,R6 TEST FOR INTERRUPT 
002C62 185EF 3010 JNE pkcc IF NOT CC 2 OR 3, PRINT WHAT IT WAS 002D7E 6801 2C3C 3124 BNZ CKFOR3 IF RECEIVED, GO CHECK FOR CC3 
3011 *-------------~--------------------=- 002D82 6003 3125 SVC IDLES5 WAIT 500 USEC 
002C64 4124 2D4Cc 3012 MVA  ISB,R1 CHECK ISB 002D84 402E 2DA4 0001 3126 SWI 1,COUNT1 CONTINUE UNTIL 1 SEC IS UP 
002C68 4900 3013 TRE (R41, 0) * O02D8A 18F6 3127 IJNZ  TIMEO * 
002C6A 105A 3014 JOFF prRcé CC2 BUT STATUS NOT AVAILABLE 002D8C 4O2E 2DA2 0001 3128 SWI 1,COUNT DECREMENT COUNT 
3015 *-------------------------+------+--=-- 002D92 1003 3129 JZ TEMEISUP COUNT DONE, GO FLAG LOST INTERRUPT 
002C6C 8828 2D52 2D54 3016 MVW CCSAV SAVE CC BEFORE READ STATUS 002D94 SOFA 3130 J TIME WAIT FOR INTERRUPT 
002C72 8828 2D4C 2D4E 3017 MVW tsb TSBSAY SAVE ISB ALSO 002D96 402A 3024 3131 RETURO  LMB  REGSAV RESTORE REGS AND RETURN TO CALLER 
002C78 6F03 2BC8 3018 BAL CSTAT,R READ CYCLE STEAL STATUS WORDS OO2D9A 4020 2DA2 2328 3132 TIMEISUP MVWI 9000,COUNT RESET COUNTER 
002C7C 8828 2D54 2D52 3019 MVW  CCSAV. RESTORE CC OO2DA0 SOEY 3133 J TIME | CONTINUE TO WAIT FOR INTERRUPT 
002C82 8828 2D4R 2D4C 3020 MVW TSBSAV. TSB RESTORE ISB 002DA2 0000 3134 COUNT DC A (*-* DELAY COUNT 
3021 MSK FIELDI, ;FIELDS,4O CLEAR INPUT BUFFER TO ' ° OO2DA4 0000 3135 COUNT? DC A (*-* DELAY COUNT 
002C88 6F03 2E70 3022+ BAL MSK R7_ STA ART ADDR, END ADDR, BYTE VALUE TO STORE 3136 eK KK eK eo RK KK RK tO OK oo doko rok kkk kok ac kak kok ok ie kc 2k ak oc ic 2k 
002C8C 379637AE 3023+ DC A {PEELD1 , FIELDS) 3137 * SUBROUTINE 
002C90 40 3024+ DC 3138 * NAME — DELAY 
002C91 00 3025+ ALIGN WO RD 3139 * PURPOSE - PROGRAM DELAY SPECIFIED BY CALLER IN MILLISECONDS 
30 26 HTE STATUSO, FIELD1,2 3140 * CALL IS DELAY XXxXX MILLISECOND CALL (DECIMAL) 
002cC92 6F03 2F84 3027+ BAL CVT HEX TO EBBCDIC (1: 2) 3141 eae A or eee een nga re ce eee 
3028+ DC aur FIELD1, 2) Xx 002DA6 0702 3142 DELAY ABI UPDATE RETURN 
3029 HTE ust FLELD2,2° 002DA8 4028 3024 c000 3143 STM zee REGSAY SAVE THE CALLERS REGISTERS 
002C9C 6F03 2F84 3030+ BAL CVT HEX TO EBCDIC (1:2) OO2DAE 69E8 FFFE 37144 MVW (R7,-2) ,R1 GET COUNT 
3031+ DC (st Brust FIFLD2, 2) xX 002DB2 1003 3145 JZ DREf RETURN IF COUNT = ZERO 
30 32 HTE ATUS2, FEELD3,2° 002DB4 6003 3146 DLYLOP SVC IDLES 
002CA6 6F03 2F84 3033+ BAL CVT HEX TO EBCDIC (1:2) 002DB6 6003 3147 SVC IDLES 
3034+ DC ae FIELD3, 2) 002DB8 B9FD 3148 JCT  DLYLOP,R1 
002CBO CF25 37A8 3035 MVWZ FIELD4,R7 SET 00 IN MSG TO TERMINATE IT THERE OO2DBA 402A 3024 3149 DRET LMB REGSAV RESTORE REGS AND RETURN ON R7 
OO2CBY4 U“124 2450 3036 MVA STATUS1,R1 GET ADDRESS OF STATUS WORD 3150 AK HA He A fe ae ee 2 Ae Oe He He Oe 2 a Ke EI KK 2h 2 aK he 2 a 2 CK iC 2K 2 2 2 24 i i fi ac af 2 2 a afc af aie afc ak ok kc af ake ah ake 2 ke ate ak ak ok Ke ok ak kc 
002CB8 4906 3037 TBT Ba 6) DID BREAK CONDITION OCCUR? OO2DBE 6464 3151 PATCH DC X"64U64t 50 WORD PATCH AREA 
002CBA 1A02 3038 INN KT iM IF NOT, CONTINUE 002DCO 6464 3152 DC X'6464" 
0O2CBC 6802 1C48 3039 B RFTBR IF SO, GO RESET STACK POINTER, 002DC2 6464 3153 DC X'6464! 
3040 * SEND foT AND WAIT FOR RFT OO2DC4 6464 3154 DC X'6U64! 
002ccO 4901 3041 CKTIM TBT (R1,1) SEE IF TIMEOUT IN STATUS WORD 002DC6 6464 3155 DC X'6464' 
002CC2 1241 3042 JON RETOR 002DC8 6464 3156 DC X'6u6y' 
OO2cck 4124 2D4C 3043 MVA  ISB,R1 GET ADDRESS OF ISB OO2DCA 6464 3157 DC X'6464! 
002cc8 4902 3044 TBT  (R1,2) SEE IF INCORRECT LENGTH RECORD 0O2DCC 6464 3158 DC X'6uEut 
OO2CCA 123D 3045 JON RETOR OO2DCE 6464 3159 DC X'6464' 
002CCC 402B 2450 2500 3046 TWI X*'2500',STATUS1 LRC,VRC,STOP BIT ERROR? O0O2DD0 6464 3160 DC X'6464' 
002CD2 1020 3047 JZ PRISTAT PRINT STATUS IF NOT 002DD2 6464 3161 DC X'6U64! 
00O2CD4 402B 2450 2000 3048 THI X!2000',STATUS1 LRC ERROR? OO2DD4 6464 3162 DC X'64u64! 
OO2CDA 1A04 3049 JNN CHKVRC IF NOT, CONTINUE OO2DD6 6464 3163 DC X'6u64! 
3050 MSG LRCERR,80 PRINT *LRC 002DD8 6464 3164 DC X' 6464! 
002CcDC 6F03 2EFC 3051+ BAL MSG,R7 GENERAL DISPLAY MESSAGE OO2DDA 6464 3165 DC X'6464' 
002CE0 382E 3052+ DC A (LRCERR) MSG ADDR,FLAG OO2DDC 6464 3166 DC X'646u8 
002CE2 80 3053+ Cc X'gor OO2DDE 6464 3167 DC X'6464' 
002CE3 00 3054+ ALIGN WORD OO2DE0 6464 3168 DC X'6464" 
OO2CE4 402B 2450 0400 3055 CHKVRC WI xX'O0400',STATUS1 VRC ERROR? OO2DE2 6464 3169 DC X'6u6u! 
OO2CEA 1A04 3056 JNN CHKSB IF NOT, CONTINUE OO2DE4 6464 3170 DC X"'64U648 
3057 MSG VRCERR,80 PRINT *VRC OO2DE6 6464 3171 DC X'6U64' 
OO2CEC 6F03 2EFC 3058+ BAL MSG,R7 GENERAL DISPLAY MESSAGE | OO2DE8 6464 3172 DC X'6ugye 
OO2CFO 3836 3059+ DC A (VRCERR) MSG ADDR,FLAG OO2DEA 6464 3173 DC X'6U64" 
002CF2 80 3060+ DC X"sor OO2DEC 6464 3174 DC X'646y" 
002CF3 00 30614 ALIGN WORD i OO2DER 6464 3175 DC X'6u64! 
OO2CF4 402B 2450 0100 3062 CHKSB TWI X*'0100',STATUS1 STOP BIT ERROR? OO2DFO 6464 3176 DC X'6uey' 
OO2CFA 1A04 3063 ONN  XMNAK IF NOT, CONTINUE OO2DF2 6464 3177 DC X'6464' 
3064. MSG SBERR,80 PRINT *SB OO2DF4 6464 3178 DC X' 6464 
OO2CFC 6F03 2EFC 3065+ BAL MSG,R7 GENERAL DISPLAY MESSAGE OO2DF6 6464 3179 DC X'6U64! 
002D00 383E 3066+ DC A (SBERR) MSG ADDR, FLAG OO2DF8 6464 3180 DC X'6464' 
002D02 80 3067+ X"80t OO2DFA 6464 3181 DC X'6u6u! 
002D03 00 3068+ ALIGN WORD OO2DFC 6464 3182 DC X'6U64! 
002D04 6FOD 250A 3069 XMNAK MVW R7,XMNAKFL SET NAK TRANSMITTED FLAG OO2DFE 6464 3183 DC X'6464! 
002D08 4029 2520 0001 3070 AWI 1,£RRCT INCREMENT FRROR COUNTER 002E00 6464 3184 DC X'6464" 
0OO2D0E 6F03 31CE 3071 BAL TCIRN,R7 TRANSMIT NAK OO2E02 6464 3185 DC X'6464" 
002D12 5019 3072 J RETOUR’ OO2E04 6464 3186 DC X' 6464! 
002D14 4324 244k 3073 PRTSTAT MVA STATUSO MOVE INFORMATIONS FOR PROGRAMMER CONS 00O2F06 6464 3187 DC X'6ueye 
3074 MSG won PRINT MSG OO2E08 6464 3188 DC X'6U64" 
002D18 6F03 2EFC 3075+ BAL GENERAL DISPLAY MESSAGE OO2ZEOA 6464 3189 DC X "6464! 
002D1C 3796 3076+ DC BSG ¢R? MSG ADDR,FLAG OO2E0C 6464 3190 DC X'6064' 
002D1E CO 3077+ Cc X00 8 OO2EFOE 6464 3191 DC X"646u" 
0O02D1F 00 3078+ ALIGN WORD 002E10 6464 3192 DC X'6u6yt 
002D20 3079 PRCC EOQU PRINT CC & ISB ON ANY CC=2 UNLESS INCORR LGTH RCRD. 002F12 6464 3193 DC X'6u6u! 
002D20 4124 2pD4uC 3080 MVA  ISB,R1 GET ADDRESS OF ISB OO2E14 6464 3194 DC X"6UGU 
002D24 4902 3081 TBT (RI 2) SEE IF INCORRECT LENGTH RECORD 002E16 6464 3195 DC X'6U6u" 
002D26 120F 3082 JON ETOR OO2E18 6464 3196 DC X'6464' 
002D28 4029 2520 0001 3083 AWI 1,ERRCT INCREMENT ERROR COUNTER OO2F1A 6464 3197 DC X'6464! 
OO2D2E 4324 2p52 3084 MVA c€,R3 PUT ADDRESS OF CC IN R3 OO2E1C 6464 3198 DC X'6UGyt 
3085 MSG  E8A3_CO PRINT 'CC' ONLY OO2ZE1E 6464 3199 DC X'6ueyt 
002D32 6F03 2EFC 3086+ BAL MSG,R&7 GENERAL DISPLAY MESSAGE 002E20 6464 3200 DC X'646u" 
002D36 3778 3087+ DC A (E8A3) MSG ADDR,FLAG 3201 22 RI IRI I a io ak ik oi i dot tok tote at ake fc ak 
002D38 co 3088+ x*cor 3202 * SUBROUTINE 
002D39 00 3089+ ALIGN WORD 3203 * NAME - DISAB 
0O2D3A 4324 2D4C 3090 MVA ISB,R3 PUT ADDRESS OF ISB IN R3 3204 * DISABLE DATA TERMINAL READY 
3091 MSG E8A2,CO PRINT *ISBt ONLY 3205 HK Rm HK MK He KK KK KK a CK KK A CK EC OK 2 2 2K Re a a eh a a 2c 2 ae 2 ale 2 a fc 2 a a ake ea ac ofc ae ica 2c a afc ok 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO02E22 4028 3024 C000 3206 DISAB STM Br Reo SAVE THE CALLERS REGISTERS 3323 * SUBROUTINE 
OO02E28 4020 374C C4CY 3207 MVWI ay E89E STORE ENGLISH WORD 3324 * AME - TMSG, LMSG 
OO2ZE2E 4020 374E E3D9 3208 MVWI eRe! E89E+t2 *DDTR' IN MESSAGE TO IDENTIFY ERRORS 3325 * PURPOSE - T6 DISPLAY RLL Boe MESSAGES 
3209 Ssvc!1 TMSG ESOL, &o DISPLAY OF CMD TO ATTEMPT 3326 * CALLING SEQUENCE BAL MSG,R7 
OO02E34 6F03 2EEA 3210+SVC1 BAL TMSG,R7 SVC TRACE MESSAGES (DIAGNOSTIC) 3327 * DC a (LABEL) LOCATION OF 
002E38 374C 3211+ DC A (EB9E) OPTN1 BIT 11 ON TO DISPLAY 3328 * DC CONTROL FLAG {ONE BYTE) 
OO2E3A 80 3212+ DC xe 3329 * RETURN - FIRST INSTRUCTION AFTER LAST PARAMETE 
O002F3B 00 3213+ ALIGN WORD 3330  RRRAMERS CAE EO RES EAA ERAGE ERS ERE ES CASHES OER ER Gad eas cca COMER RERERS 
002E3C 4020 24BA O00C 3214 MVWI xX'Ct,DTRDCB SET UP FOR DTR DISABLE 3331 * FORMAT IS: 
OO2ZE42 4020 2446 24BA 3215 MVA DTRDEB DATAWORD * 3332 * DC X"ESXx! MESSAGE IDENTIFIER FOR DISPLAY 
OO2E48 4020 2B46 2E34 3216 MVA SVC1, Bto7 SAVE RETURN ADDRESS FOR OIOCC=1 3333 * LABEL DC C'MSG TEXT'® 
OO2E4E 4724 2442 3217 MVA CTRLBLOK R * 3334 * DC X'OOoO! END OF STRING FLAG 
3218 *---------------+ op 00 a a ae we 3335 oO Rok tO IKK kkk i KK KK tok ok 
0OO02E52 600A 3219 SVC START DISABLE DTR 3336 * ENTRY FOR 
3220 WINT 3000 WAIT FOR INTERRUPT 3 SEC 3337 eR KI IO OK KOR OR KK I RK Kaa i i tk tk i ke ico ae ac 
QOO02E54 6F03 2C00 3221+ BAL WINT,R7 DELAY MILLISECONDS, WAIT FOR INT. OO2EEA 402B 180E 0010 3338 TMSG TWI X'0010",OPTN1 DISPLAY SVC TRACE LIST 
002E58 OBB8 3222+ DC A (3060) RETURN ONLY IF INT’ OCCURED IN TIME. OO2ZEFO 1A1E 3339 JINN MSGXIT 
OO2E5A 402A 3024 3223 LMB REGSAV RESTORE REGS AND RETURN ON R7 OO2ZEF2 5004 3340 J MSG 
JOD Ae II I I OK kk kook dak gk ak ak ok kc 2 3341 * 
3225 * SUBROUTINE OO2EF4 402B 180E 0020 3342 LMSG TWI eee OPTN1 SEE IF OMIT ‘LINE ACTION" MESSAGES 
3226 * NAME - GINT OO2EFA 1219 3343 JN SGX IF BIT 11 ON,OMIT DISPLAY RESPONSES 
3227 * PURPOSE - TO SAVE THE INTERRUPT ID 3344 * 
3228 * SAVE INTERRUPT CONDITION CODE OO2ZEFC 402B 180E 0400 3345 MSG TWI X'O4O00! ,OPTN1 BYPASS DISPLAY ERROR MSGS(BIT 05) 
3229 * SAVE LAST SVC ADDRESS OO02FO2 1215 3346 JN MSGX 
3230 * SET INTERRUPT SWITCH OO2FO4 402B 180E 0800 3347 TWI X'0800' ,OPTN1 BYPASS DISPLAY ANY MSGS (BIT 04) 
3231 * EXIT LEVEL OO2FOA 1211 3348 JN MSGXIT 
3232 * CALLING SEQUENCE - NONE OO2FOC 0704 3349 ABI 4,R7 
3233 * ENTERED BY SUPERVISOR FOR ALL INTERRUPTS OO2FOE 8F28 FFFC 2F34 3350 MVW (RI. -4) ,OUTCB MSG ADDR IN CONTROL BLOCK 
3234 ™* RETURN -~ SVC EXIT OO2F14 8728 FFFE 2F33 3351 MVB R7,-2) ,OUTCB-1 CONTROL FLAG IN CONTROL BLOCK 
JD35 a a BK a OR a a KO I a a a RR RR 2 I a eR RRR a I a a ae CRC ae he ke 2 i akc fe ak a ake O02F1A 4028 3024 C000 3352 STM R6 REG Av SAVE THE CALLERS REGISTERS 
3236 * COME HERE ONLY IF INTERRUPT CC = 3 AS EXPECTED O002F20 4324 3A4C 3353 MVA Loésv B3 ADDRESS OF LOG AREA IN R3 
OO2E5E 702E 3237 GINT CPLSR R1 GET INDICATORS OO0O2F24 4724 2F34 3354 MVA OUTCB,R7 GEN ADDRESS OF CONTROL BLOCK 
OO02E60 316A 3238 SRL 13,R1 EXTRACT CONDITION CODE 9 55 | ORIOIOR GRIGIO ia kak ioK ik ack 
Q0O02E62 690D 2D52 3239 MVW R1,CC SAVE CONDITION CODE 002F28 6000 3356 vc OUT 
OO0O2F66 6FOD 2D4C 3240 MVW R7,1SB SAVE INTERRUPT STATUS BYTE/DEV ADDR QB 7 Ra ee a ae oe a oR HH A a he ee ee ae ie ofc of fe he oe oi a 2 a kc ae a fe 2 2k ie a ak eC a a a a 2K ac akc ak ik 2k 
OO2E6A 6EOD 2506 3241 MVW R6, INTSW SET INTERRUPT SWITCH WITH ADDR OF OO0O2F2A 402A 3024 3358 LMB REGSAV RESTORE REGS AND RETURN ON R77 
33n3 : SVC BEFORE ERROR INT OO02F2E 68E2 0004 3333 HSGXIT B (R7, 4) RETURN 
OO2ZE6E 6006 3244 SVC EXIT FXIT LEVEL Q3G1 BRR KK KK RK IK RK RO RR KK ik i fk ic ate afc of ak ak kai akc ocak ofc 
3245 Keen mn nn nn nw nr rr rrr re ---- 3362 * OUTPUT CONTROL BLOCK 
QD A HH He KR He RK HH RR RO ER a a HK EK 002F32 0000 3363 DC A (*-* CONTROL FLAG (RIGHT BYTE ONLY) 
3248 * SUBROUTINE 002F34 0000 3364 OUTCB DC *— * ADDRESS 
3249 x NAME - NSK, ZQ65 RRR KKK RR KK EK KK IE KK OK OR oR KK kK ok ik ig kak ok kak ak ok 
3250 * PURPOSE - FILL AN AREA OF STORAGE WITH A SPECIFIC BYTE QZ3GT AR I KE ROK FOO RO RO OR RO IK Kk ik tok ake ake oi kak ake akc cok 
3251 * CALLING SEQUENCE BAL MSK, R7 3368 * SUBROUTINE 
3252 * DC A SPART) FIRST LOCATION TO FILL 3369 * NANE - QUEST 
3253 * DC A (END) LAST LOCATION TO FILL 3370 * PURPOSE ~- TO REQUEST PROGRAM PARAMETERS 
3254 * DC X*oor FILL CHARACTER 3371 * CALLING SEQUENCE BAL QUEST,R7 
3255 * RETURN - FIRST INSTRUCTION AFTER LAST PARAMETER 3372 * DC A (LABEL) MESSAGE ADDRESS 
3256 *(NOTE IF BOTH LABELS ARE SAME, ONE BYTE WILL BE CLEARED) 3373 * DC X*O1! CODE 
3257 * EXAMPLE OF CALL 3374 * DC X*OQO! CONTROL FLAG (DISPLAY) 
3258 * MSK FIELD1,IE CLEAR INPUT BUFFER 3375 * RETURN - FIRST INSTRUCTION PAST LAST PARAMETER 
3259 Te eee et eee 3376 * INPUT DATA WILL BE AT LOCATION LABELED *FIELD1'. 
002E70 7FE1 0006 3260 MSK AWI 3377 * A MAXIMUM OF 64 CHARACTERS CAN BE ENTERED 
0OO2E74 4028 3024 C000 3261 STM Pe REGSAY SAVE THE CALLERS REGISTERS CEWAR SSS SS SSS StS SSS SS ST STS TCT TS TTS STS SSS CSS SC SL SSS SSS SC£CS SS SSCS LS SCS SL SS 
OO2ZE7A 69E8 FFFA 3262 MVW RT, ei GET ‘START OF FIELD ADDR' 002F36 0704 3379 QUEST ABI 4,RT SET UP RETURN ADDRESS 
OO2E7E 6AE8 FFFC 3263 MVW GET ‘END OF FIELD ADDR! 002F38 4028 3024 C000 3380 STM R6 anu 6 SAVE THE CALLERS REGISTERS 
O0OO02E82 714A 3264 SW RESULT BYTE COUNT IN R2 OO0O2F3E 8F28 FFFC 2F74 3381 HV RY, -~4) ,OICB PUT OUTPUT BUFF ADDRESS AT CTRL BL 
OO2E84 0201 3265 ABI 1,8 3? ADD 1 TO BYTE COUNT TO CORRECT IT. OO0O2F4U4 8728 FFFE 2F7B 3382 MVB 7; = ;CVTFACT PUT CONVERSION FACTOR AT CTRL BLOC 
OO2E86 68E8 FFFE 3266 MVW An -2),R0 GET BYTE VALUE TO STORE OO2F4UA 8728 FFFF 2F73 3383 MVB /OICB-1 PUT CONTROL FLAG 
OO2ZE8A 3042 3267 SRL rb MOVE TO RIGHT BYTE 3384 MSK pretpt, fr, 00 CLEAR INPUT BUFFER 
O0O02E8C 72E4 3268 MVW R5,R7 SET UP COUNT FOR ‘FFN' INSTR 002F50 6F03 2E70 3385+ BAL START ADDR, END ADDR, BYTE VALUE TO STORE 
OO2ZE8E 282C 3269 FFN RO, (R1) PROPOGATE VALUE IN RO TO ADDR IN R1 0O02F54 3,779637D5 3386+ DC A (PEBLD1, Tz 
002E90 402A 3024 3270 LMB GSAV RESTORE REGS AND RETURN ON R77 002F58 00 3387+ DC X*O 
3272 RO alo ak ack kkk Fok ke dk ek dak kok dk ka a kak kk eo KK OK 002F59 OO 3388+ ALIGN OED 
3273 * SUBROUTINE OO2F5A 4724 2F74 3389 MVA nana R7 GET ADDRESS OF CONTROL BLOCK 
3274 * NAME - SCANW LEFT TO RIGHT SCAN ONLY 0OO02F5E 6001 3390 SVC ouTrh DISPLAY 
3275 * PURPOSE - TO SCAN AN AREA OF STORAGE FOR’ A SPECIFIC WORD. 3391 * R7 HAS TOTAL BYTE COUNT IF'HEX' ENTERED. 
3276 * GET TWO BYTES (ODD OR EVEN BOUNDRY) AND COMPARE. 0OO02F60 6FOD 2F7C 3392 MVW erotics SAVE BYTE COUNT FROM OUTIN 
3277 * IF MATCH FOUND, RETURN WITH "EVEN" INDICATOR ON, AND EXIT WITH OO0O2F64 4124 180E 3393 MVA opei SEE IF PROGRAM TERMINATE DESIRED 
3278 * THE ADDRESS WHERE THE WORD FOUND IN *XDEND' O02F68 4900 3394 TBT (R a IF SO, GO TERMINATE 
3279 * IF WORD NOT FOUND, INDICATOR NOT "EVEN! AND R3 = LAST ADDR TESTED. OO2F6A 6A00 30E8 3395 BN RoR RETURN TO CALLER IF NOT 
3280 Be ere ee ire et eee ee ere ern OO2F6E 402A 3024 3396 LMB ee RESTORE REGS AND RETURN ON R7 
O002E94 6FOD 2EC6 3281 SCANW MYW WORD SET WORD SCAN FLAG QO 7 He ae 2k 2 2 fe a ate fe 2 ok a a 2k 2K ke oe ak 2k ok 2 a ka i ok 2 2 fe ate af ak ak ok oc i kc ak kc 2 a ae ic ac ac akc ae ake ie ack atic ake ke aka atak akc ak ak ake ak ak 2k 
3282 ee eRGAa neu Lt loee ee dde EGER HER ete rk ere ee 3398 x OUTPUT/INPUT CONTROL BLOCK 
3283 * SUBROUTINE 002F72 0000 3399 DC A : * CONTROL FLAG (RIGHT BYTE ONLY) 
3284 * NAME - £SCANB LEFT TO RIGHT SCAN ONLY 002F74 0000 3400 OICB DC A =} /1 OUTPUT BUFFER ADDRESS 
3285 * PURPOSE - TO SCAN AN AREA OF STORAGE FOR A SPECIFIC BYTE. Q002F76 3796 3401 DC A “4 D1) 2/3 INPUT BUFFER ADDRESS 
3286 * GET ONE BYTE (ODD OR EVEN BOUNDRY) AND COMPARE. 002F78 0040 3402 DC A (64 47/5 NUMBER OF CHARACTERS EXPECTED 
3287 * IF MATCH FOUND ¢ RETURN WITH *EVEN' INDICATOR ON, AND EXIT WITH OO2F7A 00 3403 DC X'0O0 54 RETURN fon eae NORE Aye -1= IMMED) 
3288 * THE ADDRESS WHERE THE BYTE FOUND IN 'tXDEND! QOO02F7B 00 3404 CVTFACT DC X'O0O! CONVERSION FACTO 
3289 * IF BYTE NOT FOUND, INDICATOR NOT ‘EVEN! AND SCANADD= ADDR TESTED. 002F7C 0000 3405 FIELDICT DC A (*-*) BYTE COUNT FROM CUTIN SAVED 
3290 ey re er ne ear eee eee 3407 3k OC ak aii kali i iota dak kok toga ok a i akc akoak 
OO0O2E98 0706 3291 SCANB ABI SAVE RETURN 3408 * SUBROUTINE 
OO2ZE9A 4028 3292 STM née REGSAY | SAVE THE CALLERS REGISTERS 3409 * NAME -—- ETH 
OO2EAO 6BE8 3293 MVW R4,- GET "START OF FIELD ADDR' 3410 * EBCDIC TO HEX CONVERSION------- >CVT EBCDIC TO HEX (2:1) 
OO2FA4 6CE8 3294 MVW ve = Ba GET *BYTE COUNT TO SCAN! 30.11 GG IOI II II RR IOK dak kak ak tak doko kak 
OO2ZEA8 8F28 3295 MVW sWwVTS GET BYTE VALUE TO SCAN QO02F7E 9D09 3412 ETH JAL GDSR,R5 GET moe ene STEP & SAVE R7 
OO2FAE CF25 3296 MVWZ WokD, 4 IF 'SWORD' ON..... 002F80 6019 3413 SVC ETOH CONVE 
OO2EB2 180A 3297 JNZ DO THE ‘WORD! SCAN 002F82 5002 3414 J CVRETX RETURN TO CALLER 
OO2EB4 c7CO0 3298 SBMOR MVB C68 MOVE BYTE TO R 3415 eK ROI Ri oC OK sok kkk koloieate tok ite ac ogc at ae ake aie ak ica 
QOO2EB6 6BOD 3299 MVW BEND SAVE ADDRESS OF BYTE 3416 * SUBROUTINE 
OO2ZEBA C724 3300 CB BYTE COMPARE 3417 * NAME - HTE 
3301 * (0-7 OF tRVTS* ¥i5 EO MPARED WITH 8-15 OF Eh 3418 * HEX TO EBCDIC CONVERSION ------ CVT HEX TO EBCDIC 13 2) 
CO2ZEBE 1011 3302 JE MATCH JUMP IF BYTE MATCHED. SU 79 ea Me He 2 a he a 2 he 2 he 2 2 2 a ah he 2 fe 2 aR a 2 2 a 2 kc 2K aK a 2K a a a iC 2 2 i ae ei fe hk a 2 a a a i Sak of ake a ac 2 2h ik of ofc ak 
QOO02ECO 0301 3303 ABI 1,R3 INCREMENT DATA ADDRESS OO0O2F84 9D06 3420 HTE JAL GDSR,R5 GET veer ee STEP & SAVE R7 
3304 * DECREMENT FIELD BYTE COUNT OO2F86 601A 3421 SVC HTOE CONV 
OO2EC2 BCFS8 3305 JCT SBMOR, R4 GET NEXT BYTE OO02F88 402A 3422 CVRETX LMB REGSAV RESTORE REGS AND RETURN ON R7 
OO2EC4 500E 3306 J MATCH RETURN TO CALLER WITH ‘NOT EVEN! SYQZ3 Bm mr rn rn rt rr ree 
0O02EC6 0000 3307 SWORD DC X*00008 FLAG THAT "WORD" IS BEING SCANNED 3424 * COMMON CONTROL BLOCK FOR ETH a’ 
3308 *----- sceacheasteneatnaitantetentnabestentaeatenateteteanetentnetemeeet 002F8C 0000 3425 BYTECNT DC A BYTES OF SOURCE DATA 
O0O02EC8 8308 3309 SWMOR MVB ea eae ue MOVE BYTE TO NEW Sy ie OO02F8E 0000 3426 FROMADDR DC A Ma * FROW ADDRESS 
OO2ECC 6B0D 3310 MVW SAVE ADDRESS OF 002F90 0000 3427 TOADDR DC A (*—* TO ADDRESS 
OO2EDO 8328 3311 MVB (BS, 1} aeWaAet MOVE BYTE TO NEW WOR CATION ZU DQ HR AR a RR RK FO RR IK fo ROR a ok ake ic fe of ik ai fe a ake a ae ak akc ae ake ak ak 2k a ac ake 2 
OO2ED6 882B 3312 CW Wa WORD COMPARE 3430 * SUBROUTINE 
OO2ZEDC 1002 3313 JE EES JUMP IF WORD MATCHED AND RETURN 3431 * NAME - GDSR 
3314 * TO CALLER WITH ADDRESS IN XDEND 3432 * TO GET DATA, SAVE RETURN TO +6 BYTES 
OO2EDE 0301 3315 ABIL 1,R3 INCREMENT *FROM! DATA ADDRESS 3033 RIGOR GG IR IOR A GI ICI IC II IG GGG I Crag i alotokioak ak aka 
3316 * DECREMENT FIELD BYTE COUNT 3434 * CALL THIS aa poe USING R5 
QO2EEO BCF3 3317 JCT SWMOR, R4 GET NEXT TWO BYTES 002F92 0706 3435 GDSR ABI 
OO2EE2 402A 3318 MATCH LMB REGSAY RESTORE REGS AND RETURN ON R7 0O02F94 4028 C000 3436 STM ta BEGSAY SAVE THE CALLERS REGISTERS 
OO2EE6 0000 3319 WVTS DC : WORD VALUE TO SCAN OO2F9A S8F28 2F8E 3437 MVW R71, ~6) ,FROMADDR GET THE "FROM" ADDRESS 
OO2ZEE8 0000 3320 TWA DC BYTES FROM STG TO COMPARE QOO2FAO 8F28 2F90 3438 MVW R7,-4 *TOADDR GET THE ‘'TO!® RESS 
3322 He PE Pee Le ee Ot SO re er ere ie erie e aE erie ae OO2FA6 8F28 2F8BC 3439 MVW R7,7-2 *BYTECNT GET THE SOURCE BYTE COUNT 
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OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
W724 2F8C 3440 MVA BLreCES. R7 ADDRESS OF CONTROL BLOCK 00308C 0000 3556 DC F'or REG 2 SAVE 
68A2 0000 3441 B RS) 00308E 0000 3557 DC For REG 3 SAVE 
3443 COE PERE Cr SR I ARI OK cok lo ak koi koktok doko tk kok kok ok kok 003090 0000 3558 DC Fto? REG 4 SAVE 
3444 * SUBROUTINE 003092 0000 3559 DC Fror REG 5 SAVE 
nn: DOREOSE ieee MOVE BLOCK 003094 0000 3260 r DC For REG 6 SAVE 
- O A O OF DATA FROM ONE LOCATION TO ANOTHER } |... 2) 000000) 39610 eee een nn ne ee 
3447 * WITH ODD OR EVEN BOUNDRY ADDRESS 003096 0000 3562 DC Ftgt BYTE COUNT 
3448 * CALLING SEQUENCE MOV DATA START ADDR, END ADDR, NEW START ADDR 003098 0000 3563 S1R7 DC Ftgor REG 7 SAVE 
30.49 2 a GI RIO GIO RO Io ii ioiai oa Akai ak AG IGE ak ak kak ea 00309A 0000 3564 DC Ftot REG 0 SAVE 
0706 3450 MOV ABL 6,R7 00309c 0000 3565 DC For REG 1 SAVE 
4028 3024 cO000 3451 STM R6 , REGSAV SAVE THE CALLERS REGISTERS 00309E 0000 3566 DC For REG 2 SAVE 
69E8 FFFA 3452 MVW Ri, -6) ,R1 GET DATA START ADDRESS (FROM 0030A0 0000 3567 DC F'or REG 3 SAVE 
6BE8 FFFC 3453 MVW ae 1B GET END ADDRESS FROM 0030A2 0000 3568 DC Fro REG 4 SAVE 
6AE8 FFFE 3454 MVW R7,—2) ,R2 GET DESTINATION ADDRESS (TO QOO30A4 0000 3569 DC Ftot REG 5 SAVE 
7165 3455 CW R1,83 SEE IF FROM END ADDR LESS THAN START 0030A6 0000 3570 DC Ftor REG 6 SAVE 
1406 3456 JLT HRS ep IF YES, AN ERROR IN PROGRAM CODEING 3571 *-------------------------+--------- le 
8194 3457 MDATA MVB G81) #4 (R2) + MOVE BYTE TO NEW LOCATION 0030A8 0000 3572 C Ftot BYTE COUNT 
7165 3458 CW 1,83 TEST FOR END ADDRESS OO30AA 0000 3573 SOR7 DC F'or REG 7 SAVE 
1401 3459 JLT RFAS RETURN IF END ADDRESS Q0030AC 0000 3574 Dc Ftos REG 0 SAVE 
50FC 3460 MDATA MOVE DATA 0030AE 0000 3575 DC Ftgor REG 1 SAVE 
4O2A 3024 3461 RFMS LMB REGSAV RESTORE REGS AND RETURN ON R7 0030B0 0000 3576 DC Ft'o! REG 2 SAVE 
6400 3462 ERRCODED STOP THE ENDING ADDRESS WAS LESS THAN 0030B2 0000 3577 DC F'Qt REG 3 SAVE 
50FE 3463 J RRCODED THE STARTING ADDRESS. PROG CODE ERR 0030B4 0000 3578 DC FtQ* REG 4 SAVE 
SUB RRR KKK KR EK OOK OIRO ROK IK ROK IO IK ROR ROR gc kak ak lok ok ak kok kak kok ok xk 0030B6 0000 3579 DC Fort REG 5 SAVE 
3460 : SUBROUTINE ao 0030B8 0000 3289 TOPADDR DC F'or REG 6 SAVE 
3467 * PURPOSE - TO SET ODD PARITY FOR ALL CHARACTERS. 35 BD RH He KH Me He He HH eM HK a ae 2 I MC a I 2 a 2K a 2 fc 2h af ae 2h 2 2c ae 9c a 2c af 2c 2 ead 2k af af ac fe ic ate ae af ic ac ak af ac ae fe afc ak ake ocak 
3468 * EXISTING PARITY Ts REMOVED AND CORRECT PARITY GENERATED. 3583 * SUBROUTINE TO WAIT FOR ere Set READY * 
3469 * LLING SE obp START ADDR D ADDR 3584 * CALLING SEQUENCE: BAL TM 
3470 Sara oe EE rire EN LL ALL) Laer mn ee 3585 “i can ne eee KEL GERE Co EARL Ce LEE AEG USED NEL GSES AaS ERENT OR CMS 
0704 3471 ODD ABI 0OO030BA 4028 3024 C000 3586 TMR STM SAV SAVE RETURN ADDRESS 
4028 3024 c000 3472 STM eee REeSEG SAVE THE CALLERS REGISTERS 3587 FE CE EREK EEE PEEAE TE CEES TERE EE EREKEEDS TEER OR ORO R Eee Rene keke SERESEEEKER KE 
69E8 FFFC 3473 MVW R7,- 7R1 GET 'START OF FIELD ADDR 0030CO 4324 0005 3588 DSRWAIT MVWI 5,R3 5 MIN COUNTER 
6AE8 FFFE 3474 MVW R7,~-2) ,R2 GET "END OF FIELD ADDR! 0030C4 4224 003c 3589 MDLY MVHWI 66,R2 60 SEC COUNTER 
J14A 3475 SW 1 k2 RESULT BYTE COUNT IN R2 0030C8 4724 OT7BE 3590 SECT MVW1 X'O7BEt ,R7 1 SEC COUNTER 
0201 3476 ABIL 1,82 0030CC 6003 3591 DELAY1 SVC IDLES5 * 
C440 3477 ODDLOOP MVB fR1) aR GET DATA BYTE 0030CE BFFE 3592 JCT DELAY1,R7 * 
7C80 OO7F 3478 NWI t9 Dat MASK OFF ANY PROPOGATED BIT 0030D0 CF25 2506 3593 MVWZ INTSH,R7 SEE IF INTERRUPT OCCURRED 
CF25 3022 3479 MVWZ BITCT RI ZERO BIT COUNTER 0030D4 1807 3594 JINZ GO BRANCH IF INTERRUPT RECVD 
4324 0008 3480 MVWI 8,R3 SET SHIFT COUNTER 0030D6 BAF8 3595 JCT SEC1,R2 BRANCH IF 60 SEC NOT UP 
3438 3481 SLC 7,R4 POSITION DATA 0030D8 BBFS 3596 JCT MDLY,R3 BRANCH IF 5 MIN NOT UP 
3408 3482 MOBIT SLC 1,R4 3597 MSG E891, 80 PRINT MSG AND WAIT 
1A03 3483 INN BhEc BYPASS BIT COUNT INCR IF BIT NOT ON OO30DA 6F03 2EFC 3598+ BAL MSG 87 GENERAL DISPLAY MESSAGE 
4029 3022 0001 3484 AWI 1,BITCT INCREMENT BIT COUNTER QO030DE 36DC 3599+ DC A (E891) MSG ADDR,FLAG 
BBFA 3485 BPBC JCT MOBIT, R3 DECREMENT SHIFT COUNTER 0030E0 80 3600+ C X"80° 
3408 3486 SLC 1,R4 POSITION DATA 0030E1 00 3601+ ALIGN WORD 
402B 3022 0001 3487 TWI 1,BITCT TEST FOR ODD PARITY 0030E2 5OEE 3602 DSRWAIT WAIT 5 MIN MORE FOR DSR 
1202 3488 IN ofRtN RETURN IF ODD 0O30E4 6802 2C3c 3603 GO B CKFOR3 CHECK FOR 
7C83 0080 3489 OWL X'0080',R4 SET BeREey” BIT ON 3604 es Ge ak a RO a OR IC I OR a ia KOR aC Itoi ak 
C458 3490 OPRTN MVB RY (RI) + STORE AT 'TO!' ADDRESS, THEN INC. R1 3605 * * 
BAEQ 3491 JCT ODhHLOO 7R2 IF ZERO, LAST BYTE WAS DONE IN Pret 3606 * NAME - ABORT SUBROUTINE * 
4O2A 3024 3492 LMB REGSAV RESTORE REGS AND RETURN ON R7 3607 * % 
0000 3493 BITCT DC A (*=*) BIT COUNTER 3608 * TO PRINT LOG, RESET DEVICE, UNPREPARE DEVICE, RELEASE * 
31495 ea CII IO IO GO II IG IGG IOC CI IOI GIGI IK tak 3609 * INTERRUPT CONTROL BLOCK, AND TERMINATE : 
3496 * SAVE AREA FOR REGISTER STACK OPERATIONS 3610 * * 
3497 * <A STACK EXCEPTION N PSY 0200) WILL OCCUR IF YOU EXCEED BOUNDARIES 36117 2k a a ac alc aR a a a OR I i a IRI aK ak ak i af ak ak aici aie a 
30BA 3498 REGSAV pc A TOP ENTRY ADDRESS 0030E8 4020 3024 30BA 3612 ABORT HVA TOPADDRt+2, REGSAV ae STACK POINTERS 
30BA 3499 DC A FOPR DRED HIGH LIMIT ADDRESS OO30EE 6F03 2BA0 3613 BAL RSET,R7 SET 
302A 3500 DC A (LOLIMIT) LOW LIMIT ADDRESS OO30F2 402B 2504 0004 3614 TWI 4, CONFI TEASED LINE? 
3501 *--------- we ne ee a ee 0030F8 1202 3615 JN NODTRDIS IF SO, SKIP DTR DISABLE 
0000 3502 LOLIMIT DC Froe BYTE COUNT OO30FA 6F03 2E22 3616 BAL DISAB,R7 DISABLE DTR 
0000 3503 7 C F'o? REG 7 SAVE 3617 NODTRDIS HTE ERRCT E894A,2 PRINT # ERRORS THAT eon 
0000 3504 DC F'O! REG O SAVE OO30FE 6F03 2F84 3618+NODTRDIS BAL HTE,R CVT HEX TO EBCDIC 2) 
0000 3505 pc F'or REG 1 SAVE 003102 2520371C0002 3619+ DC A(ERRCD E894A, 2) FROM ADDR, TO ADDR (336 CE BYTE COUNT 
0000 3506 DC F'gr REG 2 SAVE 003108 4324 2520 3620 MVA  ERRCT,R3 DATA Location IN R3 
0000 3507 DC F'or REG 3 SAVE 3621 MSG E894 ai PRINT 
0000 3508 DC F'or REG & SAVE 00310C 6F03 2EFC 3622+ BAL MSG £50 GENERAL DISPLAY MESSAGE 
0000 3509 pc Flor REG 5 SAVE 003110 3710 3623+ DC A (E894) MSG ADDR,FLAG 
0000 3510 DC F'or REG 6 SAVE 003112 CO 3624+ DC X*COt 
3511 *------------------------ +--+ -- == te 003113 00 3625+ ALIGN WORD 
0000 3512 pc F'or BYTE COUNT 003114 402B 180E 0004 3626 TWI 4,OPTN1 SEE IF OPTN SET TO PRINT LOG 
0000 3513 S6R7 DC For REG 7 SAVE 00311A 1A02 3627 INN SKPLOG JUMP IF NOT 
0000 3514 DC Ftor REG 0 SAVE 00311C 6F03 2A1A 3628 BAL PRNTLOG, R7 GO PRINT LOG 
0000 3515 DC Ftor REG 1 SAVE 003120 6F03 2B72 3629 SKPLOG BAL UNPREP,&7 UNPREPARE 
0000 3516 Dc For REG 2 SAVE 003124 C720 1814 3630 MVB DEVA D,R7 * 
0000 3517 DC Foe REG 3 SAVE 003128 6013 3631 SVC RICE. RELEASE INTERRUPT CONTROL BLOCK 
0000 3518 DC FIor REG & SAVE 00312A 402B 180F 8000 3632 TWI X¥*8000',OPTN1 SEE IF TERMINATE OPTION SET 
0000 3519 DC Ftoe REG 5 SAVE 003130 1206 3633 JN PREND IF SO, TERMINATE 
0000 3520 Dc For REG 6 SAVE 003132 4724 1740 3634 VWI X!1740!,R7 OTHERWISE, 3 SECOND DELAY 
3521 *---- = - + ee 003136 6003 3635 DELY1 SVC IDLES * 
0000 3522 pe F'or BYTE COUNT 003138 BFFE 3636 JCT DELY1,R7 * 
0000 3523 S5R7 DC For REG 7 SAVE 00313A 6802 1864 3637 B BEGIN THEN BRANCH TO BEGIN 
0000 3524 DC F'or REG 0 SAVE 3638 PREND MSG E890,CO OTHERWISE, PRINT MESSAGE 
0000 3525 DC Ftoe REG 1 SAVE 00313E 6F03 2EFC 36394+PREND BAL MSG,R7 GENERAL DISPLAY MESSAGE 
0000 3526 DC Frgr REG 2 SAVE 003142 36BA 3640+ DC A (E890) MSG ADDR,FLAG 
0000 3527 DC Ftoe REG 3 SAVE 0031744 co 3641+ DC X'CO! 
0000 3528 DC Foe REG & SAVE 003145 00 3642+ ALIGN WORD 
0000 3529 DC Foe REG 5 SAVE 3643 MSK DATAB,DATAB+t5 PRESENT PASSING CONTROL TO NEXT DEV 
0000 3530 DC Ftgt REG 6 SAVE 003146 6F03 2E70 3644+ BAL MSK,R7 Shnpn ADDR, END ADDR, BYTE VALUE TO STORE 
3531 SeesoSS-— seek peeasacecelaecoeee 00314A 18121817 3645+ DC A(DATAB, DATAB+ 
0000 3532 DC Fo BYTE COUNT OO314E 00 3646+ DC X*O0° 
0000 3533 S4R7 DC Ftor REG 7 SAVE OO314F 00 3647+ ALIGN WORD 
0000 3534 DC Froe REG O SAVE 003150 6007 3648 SVC TERM TERMINATE 
0000 3535 DC Ftot REG 1 SAVE 3649 Efe ner Te eee Mae ecee Coto ee eee ee terre eee eee etr ete e res ere ae 
0000 3536 DC For REG 2 SAVE 3650 * NAME - DATA SET READY CHECK SUBROUTINE 
0000 3537 DC Fror REG 3 SAVE 3651 * PURPOSE - CHECK THAT DATA SET READY AND DATA TERMINAL * 
0000 3538 DC F'o? REG 4 SAVE 3652 * READY ARE ON BEFORE XMIT OR RCV OPERATIO a 
0000 3539 DC Frge REG 5 SAVE 3653 Sits tebee tear orettt tebe ttt teeth ce tere 
0000 3540 Dc Fort REG 6 SAVE 003152 4028 3024 c000 3654 DSRCHK STM SAVE REGISTERS AND RETURN ADDR 
S514] @osoeoees ek See eae ae eae eS 003158 402B 2452 C000 3655 TWI xt€000", STaTUS2 CHECK DSR/DTR 
0000 3542 Dc For BYTE COUNT 003158 121D 3656 JN IF READY RETURN 
0000 3543 S3R7 DC F'gt REG 7 SAVE 003160 4020 319E OOOA 3657 DSWAIT MVWI 0 ROO UNTER WAIT UP f0 1 SEC FOR DSR/DTR 
0000 35404 DC Foe REG 0 SAVE 003166 6F03 2BC8 3658 DRLOOP BAL STAT, R7 READ CYCLE STEAL STATUS 
0000 3545 DC F'o¢ REG 1 SAVE 00316A 402B 2452 C000 3659 TWI ¥1C000" -STATUS2 CHECK DSR/DTR 
0000 3546 Dc Ftot REG 2 SAVE 003170 1214 3660 N DSROK RETURN IF READY 
0000 3547 DC For REG 3 SAVE 3661 DELAY 100 OTHERWISE, DELAY .1 SEC 
0000 3548 pc Foe REG @ SAVE 003172 6F03 2DA6 3662+ BAL DELAY, R7 DELAY MILLISECONDS 
0000 3549 DC Ftot REG 5 SAVE 003176 0064 3663+ DC eB 
0000 3550 Dc Fort REG 6 SAVE 003178 402E 319EF 0001 3664 SWI 1,COUNTER DECREMENT COUNTER 
3551 *-----------------------------=----2--- 00317E 11F3 3665 JP pkLOoP LOOP TILL DONE 
0000 3552 DC F'o? BYTE COUNT 3666 MSG E8AF,80 PRINT DSR NOT READY MSG 
0000 3553 S2R7 DC F'os REG 7 SAVE 003180 6F03 2EFC 3667+ BAL MSG,R7 GENERAL DISPLAY MESSAGE 
0000 3554 DC Fro: REG 0 SAVE 003184 37DA 3668+ DC A (ESAF) MSG ADDR,FLAG 
0000 3555 Dc F'or REG 1 SAVE 003186 80 3669+ DC X*80' 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003187 OO 3670+ ALIGN WORD 00325C 4624 3842 3784 MVA RBUF,R6 
003188 6802 30EF8 3671 B ABORT . AND ABORT 003260 76EA 3785 SW R6,R7 SEE IF ANY DATA RECEIVED AT ALL 
00318c 4028 3024 c000 3672 DSRCHKR STM SAV SAVE REGISTERS AND RETURN ADDR 003262 1A03 3786 JNN SCANNAK * 
003192 402B 2452 C000 3673 THT Reekbor. STATUS2 CHECK DSR/DTR 003264 6F08 3842 3787 MVW RBUF,R7 SEE IF ANY DATA RECEIVED 
003198 1AE3 3674 JNN DSWALT GO WAIT IF NOT READY 003268 1062 3788 JZ RFRD RETURN IF NO DATA 
00319A 402A 3024 3675 DSROK LMB REGSAV RESTORE REGS AND RETURN 2169): 3= SSS === -= 
00319E 0000 3676 COUNTER DC A (¥-*) COUNTER TO WAIT FOR DSR/DTR 3790 SCANNAK SCANB RBUF,2,40 SCAN FOR NAK 
3677 RR ORICA GC I I IAC I A dK 2k tak gak diate ak koi akc 00326A 6F03 2E98 3791+SCANNAK BAL SCANB, R7 START ADDR, BYTE COUNT, BYTE VALUE 
3678 * x 00326E 38420002 3792+ DC A (RBUF, 2) 
3679 * LINE CONTROL SUBROUTINES * 003272 40 3793+ X*4Qr 
Sees : OOss7% 180k 3438" SNE?” SCRNYAK 
681 * CALLING SE UENCES * 
3682 * BAL COD SET PTTC CODE ss * 003276 402C 3348 8000 3796 OWL X¥'8000',RSPWD SET BIT 00 IN RESPONSE WORD (eNAK) 
3683 * BAL COB TS RT CONNECT INTERRUPT CONTROL BLOCK x 00327C 4020 3338 3800 3797 MVA NAKRCV, RSPCODE SET ADDRESS OF MESSAGE IN PRINT 
3684 * BAL TCIRN,R7 TRANSMIT CIRCLE N * 003282 4029 2520 0001 3798 AWL 1 ERRC? INCREMENT ERROR COUNTER 
3685 * BAL TCIRY,R7 TRANSMIT CIRCLE Y, RCV RESPONSE * 003288 5052 3799 J RERD RETURN 
3285 * BAL © TCIRD,RJ TRANSHTT CIRCLED” SPONSE x 3801 SCANYAK SCANB RBUP,2,76 SCAN FOR YAK 
ONS 
3688 * BAL TREOTJR7 TRANSMIT CIRCLE C’ x 00328A 6F03 2E98 3802+SCANYAK BAL Scanb,&7 START ADDR, BYTE COUNT, BYTE VALUE 
3689 * * 00328E 38420002 3803+ DC A (RBUF,2) 
3690 * RETURN: NEXT SEQUENTIAL INSTRUCTION * 003292 76 3804+ DC X"76° 
3691 * * 003293 00 3805+ ALIGN WORD 
3692 KR RO oo iia OR IOI RI i RI ROK a gk gk aiok a akc ac akc afc ak akc af ok fe ak 003294 1807 3806 JNE SCAND 
JO D3 ee ee Fe a aK ok 2k ok ak SET BOA EOB, COD, BIT RATE, SHIFT CHARACTERS *****#%%* 4x 003296 402C 3348 4000 3807 OWI X'*4000*,RSPWD SET BIT 01 IN RESPONSE WORD ‘wee 
003TA0 4028 3024 cO00 3694 coD STM SAVE REGISTERS AND RETURN ADDR 00329C 4020 3338 37F2 3808 MVA YAKRCV,  REPCODE SET ADDRESS OF MESSAGE IN PRINT 
003186 4020 2446 249A 3695 svc2 MVA een? DATAWORD DCB ADDRESS 0032A2 5045 3809 J RFRD RETURN 
0031AC 4020 2B46 31A6 3696 MVA SVC2.0107 SAVE RETURN ADDRESS FOR OIOCC=1 36.10 tase Ss4 = e552 s5=——= 
0031B2 4724 2442 3697 MVA - CTREBLOK, R7 CONTROL BLOCK ADDRESS 3811 SCAND SCANB RBUF TEST FOR EOA AD) 
0031B6 600A 3698 svc START 0032A4 6F03 2E98 3812+SCAND BAL SCANB 204° START ADDR, BYTE COUNT, BYTE VALUE 
3699 WINT 21000 WAIT 21 SEC FOR INTERRUPT 0032A8 38420002 3813+ DC A (RBUF, 2) 
0031B8 6F03 2C00 3700+ BAL WINT,R7 DELAY MILLISECONDS, WAIT FOR INT. Q032AC 16 3814+ DC X16! 
0031BC 5208 3701+ DC A (2100) RETURN ONLY IF INT OCCURED IN TIME. 0032AD 00 3815+ ALIGN WORD 
0031BE 5017 3702 J TCO02 RESTORE REGS AND RETURN OO32AE 1816 3816 JNE SCANEOT 
3703 KKKKKKKKKRKEEKKKKKE CONNECT INTERRUPT CONTROL BLOCK 380K 40k 4K Rok KK eK 4k 0032B0 402C 3348 2000 3817 OW! X¥'2000',RSPWD SET BIT O02 IN RESPONSE WORD a 
0031C0 4028 3024 c000 3704 CICB1 STM R6,REGSAV SAVE REGISTERS AND RETURN ADDR 0032B6 4020 3338 381E 3818 MVA EOARCV, RSPCODE SET ADDRESS OF MESSAGE IN PRINT 
0031C6 4724 243A 3705 MVA INTCB,R7 ADDRESS OF ICB FOR SVC USE 3819 SCANB RBUF,100, 3D TEST FOR EOB $B) 
0031CA 6014 3706 SVC CICB CONNECT INTERRUPT CONTROL BLOCK 0032BC 6F03 2E98 3820+ BAL SCANB R7 START ADDR, BYTE COUNT, BYTE VALUE 
0031cc 5010 3707 J TCO02 RESTORE REGS AND RETURN 0032C0 38420064 3821+ DC A (RBUF, 100) 
3708 i RK KK ok KK per ANSMTE CIRCLE N 7% Ro kk kk ek tak tok ke toto kkk ok ok kK 0032C4& 3D 3822+ Cc X'3D! 
0031CE 4028 3024 C000 3709 TCIRN STM SAVE REGISTERS AND RETURN ADDR 0032c5 00 3823+ ALIGN WORD 
3710 LMSG We RkSENT, 80 PRINT NAK MSG 0032C6 180A 3824 JNE SCANEOT 
0031D4 6F03 2EF4 3711+ BAL LMSG,R7- LINE ACTION MESSAGES 0032C8 402c 3348 0800 3825 OWL X'0800',RSPWD SET BIT O4 IN RESPONSE WORD (*EOB 
0031D8 37FA 3712+ DC a (WARS ENT) OPTN1 BIT 10 OFF TO DISPLAY 0032CE 402C 3348 O400 3826 OWL X¥'0400',RSPWD SET BIT 05 IN RESPONSE WORD (¥*TXT 
0031DA 80 3713+ Dc xX*80 0032D4 4020 3338 3808 3827 MVA TEXTRCV, RSPCODE ONLY IF (D) AND (B) 
0031DB 00 3714+ ALIGN WORD 0032DA 5029 3828 J RFRD 
0031DC 8028 24D0 2456 3715 CIRCN,CRBFR 3829 *------------------ 
0031E2 4020 2454 0001 3716 Tc001 MVWI 1,CRBFRCT COUNT TO BE TRANSMITTED 3830 SCANEOT SCANB RBUF,200,1F TEST FOR EOT fo) 
3717) wes] -seSe— 5 Ss TRANSMIT TRXT 0032DC 6F03 2E98 3831+SCANEOT BAL SCANB, R7 START ADDR, BYTE COUNT, BYTE VALUE 
0031E8 6F03 341C 3718 BAL XMIT.RT 003280 384200C8 3832+ DC A (RBUF , 200) 
O031EC 2456 3719 DC A(CREER) 0032E4 iF 3833+ X'1Ft 
OO31EE 402A 3024 3720 TC002 LMB REGSAV RESTORE REGS AND RETURN 0032E5 00 3834+ ALIGN WORD 
3721 eK RK RK RK KK porANSeIt CIRCLE Y, RECEIVE RESPONSE **#*** 4x 4% 4% K KCK HK 0032E6 1807 3835 JNE SCANTXTB 
0031F2 4028 3024 C000 3722 TCIRY STM REGSAV SAVE REGISTERS AND RETURN ADDR 0032E8 402C 3348 1000 3836 OWL X'1000',RSPWD SET BIT 03 IN RESPONSE WORD (*EOT) 
3723 LMSG TRASENT, 80 PRINT YAK MSG 0032EE 4020 3338 3816 3837 MVA EOTRCV, RSPCODE SET ADDRESS OF MESSAGE IN PRINT 
0031F8 6F03 2EF4 3724+ BAL LM LINE ACTION MESSAGES 0032F4 501C 3838 J RFRD RETURN 
0031FC 37EC 3725+ DC (PAKS ENT) OPTN1 BIT 10 OFF TO DISPLAY 3839 SCANTXTB SCANB RBUF+1,199, 3D TXT AB) 
0031FE 80 3726+ DC xe 0032F6 6F03 2E98 3840+SCANTXTB BAL SCANB, R7 STAR DDR, BYTE COUNT, BYTE VALUE 
0031FF 00 3727+ ALIGN NORD 0032FA 384300C7 3841+ DC A (RBUF+ 1,199) 
3728 *-------=--~--— TRANSMIT TEXT OO32FE 3D 3842+ DC X*3pD" 
003200 6F03 338C 3729 BAL XMITRCV,R7 GO THRESETICRSCEIE QOO32FF 00 3843+ ALIGN WORD 
003204 24D4 3730 DC A(CIRCY DATA ADDRES 003300 180A 3844 JNE SCANEOB 
003206 247A 3731 DC A (RCTSTDCB) CHAIN ADRESS - RECEIVE RESPONSE 003302 402cC 3348 0800 3845 OWL X'0800',RSPWD SET BIT O04 IN RESPONSE WORD (*EOB 
003208 4O2A 3024 3732 LMB REGSAV RESTORE REGS AND RETURN 003308 402c 3348 0400 3846 OWL X¥*O0400', RSPWD SET BIT 05 IN RESPONSE WORD (*TXT 
3733 FERRER KKEKERK TRANSMIT (D) 2 oO IR aOR a Bo a gO OK 00330E' 4020 3338 3808 3847 MVA TEXTRCV, RSPCODE * 
00320C 4028 3024 c000 3734 TCIRD STM R6,REGSAV SAVE REGISTERS AND RETURN ADDR 003314 500C 3848 J! RFRD RETURN 
003212 8028 24D8 2456 3735 MVB crc, CRBFR 3849 *----------+------- 
003218 5SOE4W 3736 J TCO001 GO TO XMIT 3850 SCANEOB SCANB RBUF,1,3D {B ) ONLY? 
3737 RA Ra OK aK a a KK Cpe renEn (C), RECEIVE RESPONSE 332 0K 4 OK ER Ra ak 003316 6F03 2E98 3851+SCANEOB BAL SCANB, R7 TART ADDR, BYTE COUNT, BYTE VALUE 
00321A 4028 3024 C000 3738 TCIRC STM 6,REGSAV SAVE REGISTERS AND RETURN ADDR 00331A 38420001 3852+ DC A (RBUF, 1) 
3739 LMSG BOPSENT, 80 PRINT EOT MSG 00331E 3D 3853+ Cc X'3pt 
003220 6F03 2EF4 3740+ BAL LM LINE ACTION MESSAGES 00331F 00 3854+ ALIGN WORD 
003224 3810 3741+ DC K(zotS Eun) OPTN1 BIT 10 OFF TO DISPLAY 003320 1806 3855 INE RFRD RETURN IF NO 
003226 80 3742+ DC 003322 402C 3348 0800 3856 OWL X¥*0800',RSPWD SET BIT O4 oN RESPONSE WORD (*EOB) 
003227 00 3743+ ALIGN Sons 003328 4020 3338 3826 3857 MVA EOBRCV, RSPCODE 
3744 *-----~--------- TRANSMIT EOT 3858 *------------ -“----- 
003228 6F03 338C 3745 BAL XMITRCV,R7 GO TRANSMIT/RECEIVE 3859 *---------------- ~- 
00322C 24DC 3746 pc A(CIRCC DATA ADDRESS 00332E 6F08 3338 3860 RFRD MVW RSPCODE,R7 IF RSPCODE ZERO a sane DECODE 
00322E 247A 3747 DC A (RCTSTDCB) CHAIN ADDRESS 003332 1006 3861 JZ NORSP JUMP IF NO VALID DECODE 
003230 402A 3024 3748 LMB REGSAV RESTORE REGS AND RETURN 003334 6F03 2EF4 3862 PRESP BAL LMSG,R7 PRINT THE RESPONSE. 
3749 KRKKKKKKKKKKEKX TRANSMIT CIRCLE C013 IC I IK Ra OR RK dok 003338 0000 3863 RSPCODE DC A x-%) (VARIABLE MSG ADDRESS) 
003234 4028 3024 C000 3750 TREOT STM R6 SAVE REGISTERS AND RETURN ADDR 00333A 80 3864 DC x CONTROL FLAG 
3751 LMSG EOfSENT, 80 PRINT FOT MS 00333C 402A 3024 3865 LMB AV RETURN TO CALLER 
00323A 6F03 2EFY4 3752+ BAL LMSG,R7 LINE ACTION npeeie ES 003340 4020 3338 37856 3866 NORSP MVA rate RSPCODE PRINT **?" MESSAGE TO INDICATE NONE 
00323E 3810 3753+ DC A (EOTSENT) OPTN1 BIT 10 OFF TO DISPLAY 003346 50F6 3867 J PRESP * 
003240 80 3754+ DC xXx'sor 3 BC Bm mm me a ne ee + 
003241 00 3755+ ALIGN WORD 003348 0000 3869 RSPWD Dc A (*-*) RESPONSE WORD 
3756 *®nn— nn om - - - TRANSMIT TEXT CEOWAUMET ETT SS SSS SST SPT SSeS SSS SS SS TTS SS SSS STS SS PSS eS SSS SSCS CSS SSS ST SS SL Pes £ 
003242 8028 24DC 2456 3757 MVB CIRCC,CRBFR PUT IN BUFFER 3871 * SUBROUTINE 
003248 50CC 3758 J Yk THh SMIT 3872 * NAME - PRNTBUF 
3759 EE LEE PE ote ETS PLL OLA ey eae eee rane 3873 * PURPOSE —- PRINT FIRST 50 BYTES OF RECEIVE BUFFER 
3760 * NAME - "DRESP' DECODE RESPONSE SUBROUTINE 3874 * 
3761 * PURPOSE ANALYZE THE RESPONSE RECEIVED IN THE BUFFER 3875 * ALL : BAL PRNTBUF 
3762 * CALLING SEQUENCE ~ BAL DRESP, R7 (AUTOMATIC AFTER EVERY 3876 ett itehee Fabre Caiman ter rarrrartartretacurtrcumeeni 
3763 * CALL TO "RECEIVE') 00334A 4028 3024 C000 3877 PRNTBUF STM REGSAV PRINT 1ST 50 BYTES OF RBUF 
3764 * RETURN - NEXT INSTRUCTION 3878 MSK FIELD, IE,00 * 
3765 * THE RESULTS ARE PUT IN *RSPWD' AND ADDR OF 'RSPWD! IN R1. 003350 6F03 2E70 3879+ BAL R7- START ADDR, END ADDR, BYTE VALUE TO STORE 
3766 * IN ADDITION, THE ADDRESS OF AN "ENGLISH" LANGUAGE CODE 003354 379637D5 3880+ DC tbls, IE) 
3767 * OF THE RESPONSE IS SET UP, AND DISPLAYED IF OPTIONS ALLOW. THIS WILL 003358 00 3881+ DC 
3768 * ALLOW OPERATOR TO OBSERVE THE LINE ACTIONS AS THEY OCCUR. 003359 00 3882+ ALIGN KoRD 
3769 * 3883 HTE RBUF, FIELD1,25 * 
3770 *NAKR EQU 0 BIT O SET = N) NEGATIVE RESPONSE /8000 00335A 6F03 2F84 3884+ BAL HTE,&R7 CVT HEX TO EBCDIC (132) 
3771 *YAKR EOU 1 1 = Y) POSITIVE RESPONSE 7/4000 00335E 384237960019 3885+ DC A (RBUF , FLELD1, 25) FROM ADDR, TO ADDR, SOURCE BYTE COUNT 
3772 *EOAR EQU 2 2 = D) END OF ADDR {ENTER TEXT MODE) /2000 3886 MSG FIELD1,80 
3773 *EOTR EQU 3 3 = C) EOT (END OF TRANSMISSION) ,/1000 003364 6F03 2EFC 3887+ BAL MSG,R GENERAL DISPLAY MESSAGE 
3774 ** 003368 3796 3888+ DC A (FLELD1) MSG ADDR,FLAG 
3775 *EOBR EQU 4 4 = te EOB (END OF BLOCK) LRC CHECK /0800 00336A 80 3889+ "gor 
3776 *TXTR EQU 5 5 = E 7 2 (OP) DATA (B)) /0400 00336B 00 3890+ ALIGN WORD 
3777 * EOU 6 6 = /0200 3891 MSK FIELD1,1E,00 * 
3778 * EOQU 7 7 = SBA 7/0100 00336C 6F03 2E70 3892+ BAL MSK START ADDR, END ADDR, BYTE VALUE TO STORE 
3779 *e KK KKK Sete ttet een e Career tee eee eee Me FOR IK Ok 003370 379637D5 3893+ DC A (FLELD1,1E) 
00324A 4028 3024 CcOo00 3780 DRESP STM REGSAV_ SAVE RETURN ADDRESS 003374 00 3894+ DC x"oor 
003250 CF25 3338 3781 MVWZ pebenon e CLEAR MSG ADDR FOR RESPONSE PRINTING 003375 00 3895+ ALIGN WORD 
003254 CF25 3348 3782 MVWZ RSP ED EAR? RESET RESPONSE WORD 3896 HTE RBUF+25,FIELD1, 25 * 
003258 6F08 244k 3783 MVW STATUSO, R7 POINTS TO LAST BYTE ADDR ACCESSED (CS) 003376 6F03 2F84 3897+ BAL HTE,R7 CVT HEX TO EBCDIC (1:2) 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3898+ DC A (RBUR +25, PIELD1,25) “ x 00O349E 402A 3024 4013 LMB REGSAV RESTORE REGS AND RETURN ON R7 
003380 6F03 2EFC 3900+ BAL MSG,R7_ GENERAL DISPLAY MESSAGE 015 A RR RR A KE RK RK ARK RK KO RK KEE ERE KEE REE KE IE 
003384 3796 3901+ DC A (FIELD1) MSG ADDR,FLAG 4016 * RECEIVE WITH TIMEOUT — WAIT MILLISECONDS 
003386 80 3902+ pc xX*'sgor 4017 Sccatoe can RC peecag ave Ge CAVES CRCiaeras. 
003387 00 3903+ ALIGN WORD 0034A2 4028 3024 C000 4018 RECEIVE STM REGSAV SAVE THE CALLERS REGISTERS 
003388 402A 3024 3904 LMB REGSAV RESTORE REGS AND RETURN TO CALLER OO34A8 4020 374C DYE2 4019 MVWI a oRet 7 ESIE STORE ENGLISH WORD 
3906 62 oto ko ok kG Rok OK rok io ok oR co iok ok loka i toiok iiokk gokok ke fk it $k ke ok 2k ok OO34AE 4020 374E C9D6 4020 MVWI cCfIo* " E89E+2 *RSIO*t IN MESSAGE TO IDENTIFY ERRORS 
3907 * SUBROUTINE 4021 SVC5 TMSG ES9E, 50 DISPLAY COMMAND 
3908 * NAME - XMITRCV - TRANSMIT AND CHAIN TO RECEIVE OO34B4 6F03 2EEA 40224+SVC5 BAL TMSG, SVC TRACE MESSAGES AOre oon te) 
3909 * PURPOSE - TO START CYCLE STEAL TRANSMIT OF DATA AND TO CHAIN 0034B8 374C 4023+ DC A {EBSE) OPTN1 BIT 11 ON TO 
3910 * TO RECEIVE. 0O034BA 80 4O2uN+ DC 
3911 * 0034BB 00 4025+ ALIGN x ORD 
3912 * CALL : BAL XMITRCV, R7 4026 MSK RBUF,RBUFEND,OO CLEAR RCV BUFFER 
3913 * pc A ADDRESS OF DATA TO TRANSMIT 0034BC 6F03 2E70 4O27+ BAL MSK,R7 START ADDR, END ADDR, BYTE VALUE TO STORE 
3914 * pc A ae CHAIN ADDRESS 0034C0 3842390A 4O28+ DC A (RBUF , RBUFEND) 
3915 eacec ace a sot tok ok kk kk teak kok ako kok kok ok i kok ok ok kK kk Kk eK 0034C4 O00 4029+ Cc Xx*oo? 
00338C 6EE8 0000 3916 XMITRCV MVW At 7) 8 GET ADDRESS OF DATA 0034cC5 00 4030+ ALIGN WORD 
003390 6E0D 2478 3917 MVW 6 Ca DATA ADDR INTO DCB 0034C6 CF25 24HE 4031 MVWZ STATUSO LAST ADDR ACCESSED 
003394 6EC8 FFFE 3918 MVW (R6 52) R6 GET BYTE COUNT OO34CA 4020 2B46 34B4 4032 MVA SsvCc5 ee SAVE RETURN ADDRESS FOR OLOCC=1 
003398 6E0OD 2476 3919 MVW ff hat Cnr BYTE COUNT INTO DCB 0034D0 4724 2442 4033 MVA CTRLBLOK, R7 SET UP FOR SVC CALL 
00339C 6EE8 0002 3920 MVW R7,2 2) oR STORE CHAIN ADDRESS IN DCB 0034D4 600A 4034 SVC START RCV 
003340 6EO0D 2474 3921 MVW 6, CH rhe, 4035 WINT 31000 GO WAIT FOR INTERRUPT 21 SECONDS 
0033A4 7FE1 0004 3922 AWL ae PAST DCts 0034D6 6F03 2C00 4036+ BAL WINT,R7 DELAY MILLISECONDS, WAIT FOR INT. 
0033A8 4028 3024 C000 3923 STM 87 SAVE REGISTERS IN STACK OO34DA 5208 4037+ DC A 21600) RETURN ONLY IF INT OCCURED IN TIME. 
3924 HTE DAEADDR, XSAV, 2 CONVERT DATA ADDR TO HEX AND STORF 0034DC CF25 250A 4038 MVWZ XMNAKFL,R7 NAK SENT? 
OO33Be 947834180002 33323 mee Wis CE By. CROW Pabe Cone choes wcnG SO3bES GEO 2990 1080 BAL LOGR RT LOG THE DATA RECELVED 
+ TADDR, XSAV, FROM ADDR, TO ADDR, SOURCE BYTE COUNT 
3927 Weems Sie ) : f 0034E6 6F03 324A 4O4u1 BAL DRESS, 8 DECODE LAST RESPONSE 
0033B8 6F03 29c4 3928 BAL LO LOG XMIT DATA OO34EA 402A 3024 4042 LMB REG RESTORE REGS AND RETURN ON R7 
0033BC 4020 374C ETE2 3929 MVWI ergse® La STORE ENGLISH WORD 4O43 SEEREAEREE ES CHAE TSS FS RERERKARE EER ES TESST EASTENE EE EEE SEES SERRE EE EERE 
0033C2 4020 374E C9D6 3930 MVWI C'TIOt. E89F+2 *x¥SIO' IN MESSAGE TO IDENTIFY ERRORS 4OUK * RECEIVE WITH TIMEOUT - WAIT SECONDS 
Apaaee. 2a03-S 3931 MOV XSAV ksave3, XADDR MOVE DATA ADDR INTO MSG FOR PRINT 4O45 Bae or ee re ne ee ee ee ene ee 
C F FBY 3932+ BAL MOVE BYTES. STRT ADDR, END ADDR, TO ADDR. OO34EE 4028 3024 C000 “O46 RECV STM Beene SAVE THE CALLERS REGISTERS 
0033CC 3418341B3750 3933+ DC aie XSAV+3, eXADDR) 0034F4 4020 374C DIE2 UOUT MVWL Re OR 89E STORE ENGLISH WORD 
3934 svc3 TMSG ISPLAY COMMA OO34FA 4020 374E C9D6 4O4u8 MVWI CIO 0 eR oE+2 "RSTO" IN MESSAGE TO IDENTIFY ERRORS 
0033D2 6F03 2EEA 3935+SVC3 BAL TMSG SVC TRACE MESSAGES DIAGNOSTIC) 4049 SVC6 TMSG E89E, 86 DISPLAY COMMAND 
0033D6 374C 3936+ DC A (ESSE) OPTN1 BIT 11 ON TO Rraoeny 003500 6F03 2EEA 40504+SVC6 BAL TMSG SVC TRACE MESSAGES (DIAGNOSTIC) 
0033D8 80 3937+ DC 003504 374C 4051+ DC A (ES 858) OPTN1 BIT 11 ON TO DISPLAY 
0033D9 00 3938+ ALIGN HORD 003506 80 4052+ x'8s0 
0033DA CF25 3750 3939 MVWZ XADD CLEAR XADDR SO NO PRINT BEFORE XMIT 003507 00 4053+ ALIGN WORD 
3940 MSK RBUF ({BUFEND 00 CLEAR RCV BUFFER 40 54 MSK RBOF RBUFEND CLEAR RCV BUFFER 
0033DE 6F03_2E70 3941+ BAL MSK START ADDR, END ADDR, BYTE VALUE TO STORE 003508 6F03 2E70 4055+ BAL MSK,Rk7 START ADDR, END ADDR, BYTE VALUE TO STORE 
0033E2 3842390A 3942+ DC (RRP, RBUFEND) 00350C 3842390A 4O56+ DC A (BBUF »RBUFEND) 
0033E6 00 3943+ DC 003510 00 “OS T+ DC x? 
0033E7 00 3944+ ALIGN La 003511 00 4058+ ALIGN soup 
0033E8 CF25 244UkE 3945 MVWZ STATUSO,R7 LAST ADDR ACCESSED 003512 CF25 244k 4059 MVWZ STATUSO,R7 LAST ADDR ACCESSED 
0033EC 402C 246A 8000 3946 OWL X'8000* ‘TRDCB SET CHAIN BIT ON IN CONTROL WORD 003516 4020 2B46 3500 4060 MVA SVC6,0107 SAVE RETURN ADDRESS FOR OLOCC=1 
0033F2 4020 2446 246A 3947 MVA TRDCB, DATAWORD DCB ADDR IN OIO CONTROL BLOCK 00351C 4724 2442 4061 MVA CTRLBLOK, R7 SET UP FOR SVC CALL 
3948 *-------~--- ~ssseeaeses 003520 600A 4062 svc START START RCV 
0033F8 4020 2B46 33D2 3949 MVA SVC3,0107 SAVE RETURN ADDRESS FOR OLOCC=1 4063 WINTS 9000 GO WAIT FOR INTERRUPT 
0033FE 4724 2442 3950 MVA CTRLBLOK, R7 SET UP FOR SVC 003522 6F03 2D56 “O6 4+ BAL WINTS, R7 DELAY SECONDS, WAIT FOR INT. 
003402 600A 3951 SVC START BEGIN CYCLE STEAL XMIT 003526 2328 4065+ DC ait } RETURN ouue rf Bee OCCURED IN TIME. 
3952 WINTS 56000 GO WAIT FOR INTERRUPT 003528 CF25 250A 4066 MVWZ XMNAKFL,R7 DID WE SEN 
993408 Bacg 7° 3gent pau Peta 5B! DENRA OAL Te nan GECHBER 3 $0258 ere 2990 40G8 SAL OLOGR, RT TF SO, RECEIVE AGATH 
+ ETURN ONLY IF INT OCCURED IN TIME. 
3955 pectees cee ----- ) 003532 6F03 324A 4069 BAL DRESP, R7 DECODE LAST RESPONSE 
OO340A 6F03 2990 3956 BAL LOGR,R7 LOG THE DATA RECEIVED 003536 402A 3024 4070 RESTORE REGS AND RETURN ON R7 
OO340E 6F03 324A 3957 BAL DRESP, R7 DECODE LAST RESPONSE O71 2k IR I IR III I II a ia I IG 
003412 402A 3024 3958 LMB REGSAG RESTORE REGS AND RETURN ON R7 4Q072 * NAME - DTR ENABLE SUBROUTINE 
3959 *---+------ +--+ 4073 * PURPOSE - TO ENABLE DTR 
3960 FECA TAGS GGG EE CG OSCE GEE GG GECCICGGCIG AG GECIIGGK 4O74 * 
3961 * NAME - START 1/0 SUBROUTINE 4075 * RETURN - RETURN TO NEXT SEQUENTIAL ADDRESS 
3962 * PURPOSE - TO BUILD APPROPRIATE DCB'S FOR THE VARIOUS UO 7G a a RR a a A A I II IO IIR FR I IC I I aC ic 
3963 * START I/O COMMANDS AND TO EXECUTE THE COMMAND VIA 00353A 4028 3024 C000 4077 DTREN STM R6 Recent SAVE REGS 
3964 * THE OIO SUBROUTINE. 003540 6F03 2BC8 4078 BAL cs R7 GET STATUS WORDS 
3965 * CALLING SEQUENCE - FOUR ENTRY POTNTS 003544 402B 2452 C000 4079 TWI x1co0b", STATUS2 SEE IF DE co ON 
3966 * 1 BAL XMI TRANSMIT DATA OO0354A 121C 4080 JN STEERS RETURN IF 
3967 * 2 BAL Disab. a7 DISABLE TERMINAL 4081 MSG ESAF 80 DSR NOT READY MSG 
3968 * 3 BAL RECEIVE, R7 RECEIVE WITH TIMEOUT 00354C 6F03 2EFC 4O82+ BAL MSG 87 GENERAL DISPLAY MESSAGE 
3969 * 4 BAL ENABL,R7 ENABLE WITHOUT T.O. 003550 37DA 4083+ DC A (EBAF) MSG ADDR,FLAG 
3970 * RETURN - RETURN TO NEXT SEQUENTIAL ADDRESS 003552 80 4O84+ C X*80! 
003416 0000 3971 XDEND DC Ce ) ADDRESS WHERE BYTE FOUND IN SCANB/W 003553 00 4085+ ALIGN WORD 
003418 00000000 3972 XSAV DC A (*¥~*) Sr Re XMIT DATA ADDRESS 003554 4020 374C C5c4 4086 MVWI C'ED!,E89E STORE ENGLISH WORD 
3973 earth eee rer nennnnmmerereneett terete 00355A 4020 374E E3D9 4087 MVWI CTR, E89E+2 ‘EDTR* IN MESSAGE TO IDENTIFY ERRORS 
00341C 6EE8 0000 3974 XMIT MVW {B7) cB GET ADDRESS OF DATA 4088 SVC7 TMSG E89E,80 DISPLAY OF CMD TO ATTEMPT 
003420 6E0D 2478 3975 MVW 6 APKopg DATA ADDR . INTO DCB 003560 6F03 2EEA 4089+SVC7 BAL TMSG,R7 SVC TRACE MESSAGES epee ohOst te) 
003424 6EC8 FFFE 3976 MVW (R6 2) ek GET BYTE COUNT 003564 374C 4090+ DC A (E895) OPTN1 BIT 11 ON TO DISPLAY 
003428 6E0OD 2476 3977 MVW Ro SAT eke BYTE COUNT INTO DCB 003566 80 4091+ pc X"808 
00342C 7FE1 0002 3978 AWI R7 STEP PAST DC'fS 003567 00 4092+ ALIGN WORD 
003430 4028 3024 C000 3979 STM rae SAVE REGISTERS IN STACK 003568 4020 24BA 0008 4093 VWI 8,DTRDCB DTR ENABLE WITHOUT TIME OUT 
3980 HTE DARADDR, XSAV, 2 CONVERT DATA ADDR TO HEX AND STORE 00356B 4020 2446 24BA 4094 MVA Df RDCB, DATAWORD DCB ADDR IN OIO CONTROL BLOCK 
003436 6F03 2F84 3981+ BAL R7 CVT HEX TO EBCDIC (1:2 003574 4020 2B46 3560 4095 MVA SVC7,0107 SAVE RETURN ADDRESS FOR OLOCC=1 
00343A 247834180002 3982+ DC ue XSAV,2) FROM ADDR, TO ADDR, SOURCE BYTE COUNT OO357A 4724 2442 4096 MVA CTRLBLOK, R7 CONTROL BLOCK ADDRESS 
003440 4020 374C ETE2 3983 MVBWI E89 STORE ENGLISH WORD QQ] *------- - 2 = 
003446 4020 374E C9D6 3984 MVWI Cryo *EROE+2 "x¥SIO' IN MESSAGE TO IDENTIFY ERRORS 00357E 600A 4098 SVC STAPT DATA TERMINAL READY 
3985 MOV XSAV KSAV+3,XADDR MOVE DATA ADDR INTO MSG FOR PRINT 003580 6F03 30BA 4099 BAL TMR,R7 GO WAIT 5 MIN FOR DSR INTRPT 
00344C 6F03 2FBY4 3986+ BAL 7 MOVE BYTES. STRT ADDR, END ADDR, TO ADDR. 003584 402A 3024 4100 DTRRET LMB REGSAV RESTORE REGS AND RETURN 
003450 3418341B3750 3987+ DC A(XEAY XSAV+3, XADDR W101 eka a a ok ok dao ak oR ia a ak ak ai a iia i ak ik aca ie ake eka ak 2 ak ate 2 
3988 SVC4 TMSG ST SPLAY COMMAND 4102 * SUBROUTINE 
003456 6F03 2EEA 3989+SVC4 BAL TMSG,R7 SVC TRACE MESSAGES {DT AGNOSTIC) 4103 * NAME - REAID 
OO345A 374C 3990+ DC A (E898) OPTN1 BIT 11 ON TO DISPL 4104 * READ ID 
00345C 80 3991+ x'gor YDS BARK RK KK KKH HK KKH HK KH HK HK HK AK HHH He HK He HK HM CK He eH HE ee He ee ee ee He i a i i kK ok 
00345D 00 3992+ ALIGN WORD 003588 4028 3024 c000 4106 REAID STM R6 BpGe as SAVE THE CALLERS REGISTERS 
00345E CF25 3750 3993 MVWZ XADDR,R7 CLEAR XADDR SO NO PRINT BEFORE XMIT 00358E 4020 374C DICH 4107 MVWI ekpe E STORE ENGLISH WORD 
003462 6F03 29cC4 3994 BAL LOGT,R7 LOG XMIT DATA 003594 4020 3748 C9C4 4108 MVW1 Gerpe eoone2 'RDID' IN MESSAGE TO TDENTIFY ERRORS 
3995 MSK RBUF., RBUFEND,00 CLEAR RCV BUFFER 4109 TSG E89E,80 DISPLAY OF CMD TO 
003466 6F03_2E70 3996+ BAL MSK,R7 START ADDR, END ADDR, BYTE VALUE TO STORE 00359A 6F03 2EEA 4110+ BAL TMSG,R7 SVC TRACE MESSAGES “(oEAGNostrC) 
0O0346A 3842390A 3997+ DC A (RBUF, RBUFEND) 00359E 374cC 4111+ DC A (E8 85k) OPTN1 BIT 11 ON TO DISPLAY 
00346E 00 3998+ DC x"oor 0035A0 80 4112+ DC x *80 
00346F 00 3999+ ALIGN WORD 0035A1 00 4113+ ALIGN WORD 
003470 CF25 244uR 4000 MVWZ STATUSO,R7 LAST ADDR ACCESSED 0035A2 CF25 2446 4114 MVWZ DATAWORD,R7 CLEAR CONTROL WORD 
003474 6F08 246A 4001 MVW TRDCB Ri TURN OFF CHAIN BIT IN CONTROL WORD 0035A6 4724 2442 4115 MVA  CTRLBLOK,R7 CONTROL BLOCK ADDRESS 
003478 7FEO 7FFF 4002 NWI XC TEE R7 * OO35AA 6009 4116 SVC RID READ DEVICE ID 
00347C 6FOD 246A 4003 MVW ck *x 0035AC 4O2A 3024 4117 LMB R RESTORE REGS AND RETURN 
003480 4020 2446 246A “ood MVA TRBCB, DATAWORD DCB ADDR IN OIO CONTROL BLOCK TSR EME LES eP SSC SSCS SS SS SPT SSL LS SL SSL SS SS SSS SS TSS STS SL SSS SPSS PtP ete LS tt SS Ss 
003486 4020 2B46 3456 4005 MVA Svc4,6107 SAVE RETURN ADDRESS FOR OIOCC=1 4119 * SUBROUTINE TO PRINT ROUTINE/CHECKPOINT 
00348C 4724 2442 4006 MVA CTREALOK, R7 SET UP FOR SVC 4120 BREE es eee ers et Se ncue the cae nee Cet cae a cveecee er 
003490 600A 4007 SVC ART BEGIN CYCLE STEAL XMIT 0035B0 4028 3024 C000 4121 CPMSG STM EGSAV SAVE THE CALLERS REGISTERS 
4008 WINT 21000 GO WAIT FOR INTERRUPT 21 SECONDS 4122 HTE Rrined eRTNUM, 1 SET UP ROUTINE NUMBER IN MSG 
003492 6F03 2cC00 4009+ BAL WINT DELAY MILLISECONDS, WAIT FOR INT. 0035B6 6F03 2F84 4123+ BAL CVT HEX TO EBCDIC a) 
003496 5208 4010+ DC £21800) RETURN ONLY IF INT OCCURED IN TIME. 0035BA 180B364C0001 4124+ DC Biseitds RTNUM,1) FROM ADDR, TO ADDR, SOURCE BYTE COUNT 
4011 *--------------------- 4125 HTE ead cb MCT, 1 SET UP CHECKPOINT IN’ MSG 
003498 402cC 246A 8000 4012 OWI x'8000',TRDCB SET CHAIN BIT ON IN CONTROL WORD 0035C0 6F03 2F84 4126+ BAL CVT HEX TO EBCDIC (1:2) 
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COPYRIGHT IBM CORP 1976 


4127+ Dc A (CKPT+ 1,CPMCT, 1) FROM ADDR, TO ADDR, SOURCE BYTE COUNT 
4128 MSG §E886,80 PRINT MSG 

4129+ BAL MSG,R&7 GENERAL DISPLAY MESSAGE 

4130+ DC A (E886) MSG ADDR,FLAG 

4131+ pc x'gor 

4132+ ALIGN WORD 

4133 LMB  REGSAV RESTORE REGS AND RETURN 

4134 PT SSS LSSLS SS SSS SSS SSLSSSLSSSSSCSLSSSESSSSSSS SSSE SS SSS SSS SST SS SSS tS 2 SF SF | 
4136 ALIGN WORD 

4137 *-----~--+-2+.~.-~—~~--~---+ weectcieeasee es Selese Saeee Sse ee See eee ese 
4138 * MSG E880 NOT USED 

i139 #24eo5--—2 PERCE ED Sa OES eR eA eee a ee te a eee ee ee 
4140 pc X'E881! 

4141 E881 DC C'*TRANSMIT CONTROL?!* 

4142 ALN , 

U143+ DC X*'00 MSG TERMINATOR 
U1 LY 4 me a a we me ee ee ee Se ee em a a rn wenn eer wer ewer * 
4145+ ALIGN WORD 

4146 *----+------ eee eee en ana MSG 

4147 DC ‘E882! 

4148 E882 DC C*CORRESPONDENCE?'* 

4149 ALN 

4150+ DC X*00! MSG TERMINATOR 
151 + Ba mn nn ern nr nnn On tr et er rere * 
4152+ . ALIGN WORD 

4153 *--+----~~------~--~-~------~+- MSG 

4154 Dc X'E883! 

4155 E883 DC C'BUFFERED RECEIVE?'* 

4156 ALN : 

4157+ DC X00! MSG TERMINATOR 
&1594%------------~+-~+~- + + + + nn ee eee ee * 
4159+ ALIGN WORD 

4160 *---------~--+~------------+- MSG 

4161 DC X*ESS84" 

4162 OPTNS DC C'OPTIONS * OPTION 1 REQUESTED 

4163 OPTPRT DC, C'xxxx? OPTION 1 AS ENTERED 

4165+ DC X'o0r MSG TERMINATOR 
4166+* Se ee ee ee wee ree ew wm we ow wow ere seen ww ew ew nw wn rn wer nwrw ee 7 ewww errr ower ne * 
4167+ ALIGN WORD 

4168 *------~- 9s ussite Sacalpan Meee ere MSG 

4169 Dc xe ' 

4170 E885 DC C'END NOT FOUND AFTER 130 CHARACTERS! 

4172+ DC X'oo8 MSG TERMINATOR 
4173 4*~ er ee a we ae a ee ae a a a a we we we we a * 
G17h+ ALIGN WORD 

§175 *----++----+--+---+--~~-- ~---MSG 

4176 DC X'E886° 

4177 E88 DC C'RTN-? 

4178 RTNUM DC Ct—=t 

4179 DC C' cCKPpT-' 

4180 CPMCT DC Ct--t 

4181 ALN 

4182+ DC x'00! MSG TERMINATOR 
61034 ¥a eee ens She sea nena e en oss ss ss Sassen eee = += == * 
4184+ ALIGN WORD 

4195 *-+-----~--—~-+-------.—---- MSG 

4186 pc X"'E887!° 

4187 E887 DC C'Bps! ENTER BPS RATE 

4188 ALN 

4189+ DC x'00!8 MSG TERMINATOR 
i. 1904 #Ssesoeoee5e8s6545c-e5s5 Mesias ee oe ee ae eee es x 
4191+ ALIGN WORD 

4192 *---------=-= Sr ee es MSG 

4193 DC X'E888* 

4194 E888 DC C'DEVADD! DEVICE ADDRESS 

4195 ALN 

4196+ DC X*00! MSG TERMINATOR 
Lh DT me me a rrr rrr rrr ree * 
4198+ ALIGN WORD 

199 Kenan ee ee MSG 

4200 pc X"E889¢ 

4201 E889 DC C*2740-2?! 

4202 ALN 

4203+ DC X"00! MSG TERMINATOR 
1.2.0) 4 kan em ee re ne a ee nn a ro a a oe nn nn ee ee == * 
4205+ ALIGN WORD 

4206 *-~---~--~----~--~-~--~--~+--- MSG 

4207 DC X'ESSA! 

4208 ESSA DC C*2740-17! 

42309 ALN 

4210+ pc X"'00! MSG TERMINATOR 
42114*---~~-----~---~--~--------- ---- +--+ +--+ - + 5+ + + $5 ne ne eee x 
4212+ ALIGN WORD 

4213 *---------~+-----+---------- MSG 

4214 DC ' t 

4215 E88B DC C'STATION CONTROL?! 

4216 ALN 

4217+ DC x*008 MSG TERMINATOR 
i918 £4e seo Sasa eee ee ao eee see eee ee eee esse * 
4219+ ALIGN WORD 

4220 *------------------------ ~--MSG 

4221 pc X'E88ct 

4222 E88C DC C'CFIG! CONFIGURATION HEADER 

4223 ALN 

4224+ DC X*'00! MSG TERMINATOR 
DDS mm a rn rrr rr rrr rere * 
4226+ ALIGN WORD 

4237 *--~-~----~--~---+-—--------+-- MSG 

4238 Dc X'ES8D¢ 

4229 E88D DC C'RECORD CHECKING?! 

4230 ALN 

4231+ DC X'O0! MSG TERMINATOR 
NOQI¢eeeeeuee eee ee ae ecole Bi a a at ei al rt a i thd aati coe atc ay es x 
4233+ ALIGN WORD 

4234 *-+-----~-—- woe sn eae alee MSG 

4235 DC X' ESSE! 

4236 ESSE DC C'TERM ADDR! 

4237 ALN 

4238+ DC x'o0o? MSG TERMINATOR 
UD 3D 4 Mm me a ea a a rrr rrr ere * 
4240+ ALIGN WORD 

4241 *--------~--~---------~+----~+- MSG 
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4242 #--------------------~-----------~--~-~--~~--------------~-----+--------- 
4243 * MSG E88F NOT USED 

4344 #-~------~—-~-~---~-——-~----~---++---~------------+--~-------------------- 
4245 DC X' E890! 

aon9 E890 en C*'*RESTORE SYS AND RUN DIAGNOSTICS! 

H24U8+ DC X*OO! MSG TERMINATOR 
DY Ram mn a ee a a re rr tr er rr errr * 
4250+ ALIGN WORD 

L257 Bw ee a rn ere een MSG 

4252 DC X'E891°5 

4253 E891 DC C'S MIN AND NO DSR* 

4254 ALN 

4255+ DC x'oo? MSG TERMINATOR 
YD 56 + Ba ne en a ne ee * 
4257+ ALIGN WORD 

4259 *------------------ Soe s5e5- MSG 

W059 $2455 -55 ee - -e -eee pee S ae eae saree eae See asee eae eae 
4260 * MSG E892 NOT USED 

4261 #------ 2 nn ne en ne + 2 +--+ +--+ +--+ ----- +--+ +--+ 
4262 DC X' E893! 

4263 E893 DC C*RCV DATA NOT YAK OR NAK, WAS! 

4264 ALN 

4265+ DC X'OO?t MSG TERMINATOR 
U2 66 + Br rn rr nr wr nr eee Se ne nee ee ee ee ee ee fo ee ee ee * 
4267+ ALIGN WORD 

i260 #333 =4=<=56=236 $4534 555-=== MSG 

4269 DC X*ESB94! 

4270 E894 DC C'ERR COUNT : ERROR COUNTER 

4271 ES94A DC C*900008 

4272 ALN 

4273+ DC xX*OO!F MSG TERMINATOR 
DT 4 Ram en i a nn en rn rrr renee * 
4275+ ALIGN WORD 

W276 Keen me en men nr nen nnn ree MSG 

4277 DC X'E895¢* 

4278 E895 DC C'*READ ID ERR! READ IDENT ERROR 

4279 DC C*' RCVD § 

4280 E895A DC Cc'Qgo00' 

4281 ALN 

4282+ DC X'oo?r MSG TERMINATOR 
283 + Kae a a a we we + > eetiaeninentenshentonetenteestatamstantoenteestontemneteesinentetantentententeteetentemtimseed * 
4284+ ALIGN WORD 

8285 Kemet ese me em ew newer enone MSG 

4286 *--—- eee ene ss doaanastiaesieatneriae teeaienantaateaTuatiendiaeaaiiaentatetoatantaateheatntetetetetententaa esterase 
4287 * MSG E896 NOT USED 

288 *—---------— ee ew a ww we wr ee eee ea a ea a a nn ew ew ee 
4289 * MSG E897 NOT USED 

Y290 *W3-—--—--- = ee a ne a a a a a a wa we ee ow ee 
4291 DC X'E898! 

4292 E898 DC CtINVALID ENTRY'* 

4293 ALN 

4294+ DC X*'0O0! MSG TERMINATOR 
DS em ert rn rrr rn * 
4296+ ALIGN WORD 

G29] Been re rn mr mr er reer rere MSG 

29 BR hm mm a nr rrr rrr ee saieteatenteetantnntntesetenetententoen 
4299 * MSG E899 NOT USED 

W300 Fen eer en  enn  rrenre rr rr rn rrr rr 
4301 * MSG E89A NOT USED 

U3 QQ Bm mm rr rr rr rrr re eee 
4303 * MSG E89B NOT USED 

E304 *——-_—-—-—-- = Tee ew ow wee we ee ee me ee ee ae ae ne we ee ee ee es 
4305 * MSG E89C NOT USED 

4306 *-33 nnn ee Oe rr rane nr re ttt ere <= 
4307 * MSG E89D NOT USED 

L3G Ramm rrr rrr rere 
4309 DC X'E89E! 

4310 ES89E DC Ci----'! 4 CHARACTER UTILITY DISPLAY AREA 

aaa XADDR “wr Cta---—1 HEX ADDRESS FOR 'XSIO*t ONLY 

4313+ DC X*'OOF MSG TERMINATOR 
LG mn rn rt rr nn rr nr * 
4315+ ALIGN WORD 

8316 Bammer rere neem MSG 

4317 DC X*E89F? 

4318 ES89F DC C*'*Nno INT! 

4319 ALN 

4320+ DC — «x 00" MSG TERMINATOR 
W321 Ree me a a a eee we SO ee re ee ae ne se ee eae wee ae ee ee ee * 
4322+ ALIGN WORD 

L323 Kerem mn nnn rrr rn MSG 

G3 24 Be mn a a rr rrr rt errr errr r sesso Pm ewe ee ee nnn nr nnn 
4325 * MSG E8A0 NOT USED 

U2 6 am rr rt ert ene te eter errr 
4327 DC X'ESA1* 

4328 NAT DC C'*NO ATTACH® 

4329 ALN 

4330+ pC —s «x "00! MSG TERMINATOR 
33 14+*-------------------------+-------~+-+~------~---- +--+ + 22 erent : 
4332+ ALIGN WORD 

4333 *-~------~----------_----- ~~MSG . 

4334 DC X'E8A2' 

4335 E8A2 DC C'IsB='! INTERRUPT STATUS BYTE 

4336 ISBPRNT DC Cl=—4 

4337 ALN 

4338+ DC X'oo® MSG TERMINATOR 
U3 39 4 a a me a a a or ee eee ee ee ee ewe ee se a ee a a a wn we ee ee ee ne ee * 
Q340+ ALIGN WORD 

B34] Ke me mn em rere ene eee n= MSG 

4342 DC X'E8A3! 

4343 E8A3 DC CtrIntcc='t CC INTERRUPT ERROR 

G344 INTCCVT DC Ct<=% 

4345 ALN 

4346+ DC x'oor HSG TERMINATOR 
LT me mm me i rn ee ee ee wee ee kK 
4348+ ALIGN WORD 

L349 Kem enn nee ne eee tee SS MSG 

4350 DC X'ESA4t 

4351 E8A4 DC C'orocc='! OIO CONDITION CODE ERROR 

4352 OIOCCVT DC Ci==' 

4353 ALN 

4354+ DC X'OO! MSG TERMINATOR 
E359 SSH = SSS 43S — SSS Se = ia a aaa a * 


TE8E6 - 
LOCTR 
00378D 


00378E 
003790 


003793 


COCO OCOOCOOSOCoeo 
weleleleleloleleloleolelolole 
WWWWUIWWWWWUIWWWD 
Js) 0) JS) SJ) J ~~~] 
DIQQAADOY SP moOowuoww 
UNQNOY SHONIANRVHAAS 


a 
© 
Ww 
~~ 
Oo 
fo 


0037D7 


003753 


0037E4 
003756 


0037E8 
0037E9 


0037F8 
OO037FA 


0037FD 


00380E 
003810 


003813 
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OBJECT TEXT 
00 


3] 
foe 
ad 
QQ 


Oo NANI 
DBD ANNAQAQAQAAANANA 
OWI UIOINIUTIONINIOIIV 
ANANRAAAQAAAN 
ONION NII 
AANQAQAAQAAQAQAAANA 
Q1O1U0101010101010101 
AAAAQAQAANAANA 
AANAAAAQAAAAN 


© 
>) 


ESAF 
C44BE2Z4UBD5D9C4ESB 
00 

00 


E8B0 
5C6F 


00 


E8B5 
SCD5C 1D2 
00 

00 


E8B7 
5CE3E7E3 
00 

00 


E8B8 
C5D6E3 


00 


E8B9 
5CC5D6E3 
00 


P/N=44 14382 
STMT SOURCE STATEMENT 


4356+ ALIGN WORD 

4357 *----------- SSS SS SS MSG 
4358 DC X'E8A5! 

4359 E8A5 DC C'RDY'* 

4360 ALN 

436 1+ DC —- X00 

4362 + ¥--— enn nee Se ee eee meee > 
4363+ ALIGN WORD 

4364 *--------~------------------ MSG 
4365 Be wn rr a nnn rn nner ree 
4366 * MSG E8A6 NOT USED 

R36] #e en et eer rn ene 
4368 * MSG E8A7 NOT USED 

369 Km me a a wr a a a a a a a ew we 
4370 * MSG E8A8 NOT USED 

A371 Keer er ee rer nr reer er retest steer 
4372 * MSG E8A9 NOT USED 

4373 *------------------------------ 
4374 * MSG E8AA NOT USED 

4375 *----------------+------------- 
4376 * MSG E8AB NOT USED 

R37) #2 seSe so - Se See eee 
4378 DC X'ES8AC? 

4379 E8AC EQU * 

4380 IBUFF Qu * 

4381 FIELD! D Ct eR KKK 

4382 FIELD2 DC CP KRHA KK O 

4383 FIELD3 DC Ct kee KK KE 

4384 FIELDY DC Cte ee t 

4385 FIELDS DC Ct RRR K KK 

4386 FIELD6 DC CUeaxee eet 

4387 FIELD7 DC CEeKKKKK! 

4388 FIELDS DC Ct xeke aK! 

4389 FIELDY Cc Ct KKK KKK A 

4390 FIELD10 DC CUeKKK KK 

4391 FLAGEND DC Cheek t 

4392 I Cc Ctx«t 

4393 ALN 

4394+ DC x*oOo! 
§395+4*------------------------------ 
4396+ ALIGN WORD 

439] ¥en mene een en reer ee ere MSG 
4398 Kem nn re rr nn nnn een 
4399 * MSG E8AD NOT USED 

YUQQ meen nn enn nn ne ~<—--- 
4401 * MSG E8AE NOT USED 

WYQQ mmm nn nn rn rn enn 
4403 DC X'ESAF' 

4404 ESAF DC C'p.S.~NRDY* 

44Q5 ALN 

Y4O6+ DC x'oor 

UO 7 ae mm a ea a a we ee 
H4UO8+ ALIGN WORD 

YYQQ Kenn nee een nn nn enn nnn MSG 
4410 DC X"E8BO! 

4411 E8BO DC Crxpe 

4412 ALN 

4413+ DC X'oOo* 

UYU 1 44 %*--——- — ~~ — - - - ~~ S enieetentoeeteatnad 
4415+ ALIGN WORD 

GQ416 *--------- aera thas lace cc pa aaa ar MSG 
LY] ke ew enn men enn ee ener sheared 
G418 * MSG E8B1 NOT USED 

UIQ Kenn a a a rn re enn 
4420 DC X'E8B2°* 

4421 YAKSENT DC CtyAK! 

4422 ALN 

4423+ DC X' OOo! 
G424+4+*---—------ osiaeainetensheheatestentanstantentantententetetmatententeetion 
4425+ ALIGN WORD 

UE26 . F=—==$--5--S = === —=- == == += === MSG 
4427 DC X'E8B3* 

4428 YAKRCV DC C'*xyAK! 

4429 ALN 

4430+ DC X*'OO! 

U3 1 + ¥en nnn nnn rr rr 
4432+ ALIGN WORD 

ee a aa cn a la at MSG 
4434 DC X'ESB4? 

4435 NAKSENT DC C*NAK® 

4436 ALN 

4437+ DC X'OO0Ft 

4438 + 8 an ea a a a a nn nnn nnn nr nr rer ee 
4439+ ALIGN WORD 

GYYQ Keen nn nn rrr rrr rrr MSG 
4444 DC X*E8B5° 

4442 NAKRCV DC C**NAK * 

44g ALN 

KUUK+ DC X*OO8 

1S 4 Ra nn a wn nn nnn a 
LY46+ ALIGN WORD 

UU] Kamen nn rn nn rn nnn MSG 
408 tae s—3———53 53 —5= 3553455 ——55-5~ 
HQ * MSG E8B6 NOT USED 

U450 Se 6$S2 0332643345 Se See eae eee 
4451 DC X* E8B7* 

4452 TEXTRCV DC C*'*xTxtT* 

4453 ALN 

44y5a+ Cc x*OO0* 

YU55 + ®— — an n  nr nr nr nr nr orn = -—---- 
4456+ ALIGN WORD 

YY] Keen nn nn mn nnn rn enn ~MSG 
4458 c X'ESB8* 

4459 EOTSENT DC C*EOT? 

4460 ALN 

4461+ Cc x'oo? 

06 244===-<Ss2-==5-—--= === 2>+-=-+5+-== 
4463+ ALIGN WORD 

LUG Renn nnn rn rr rrr nn = MSG 
4465 DC X'E8B9* 

4466 EOTRCV DC C'*EOT! 

4467 ALN 

G468+ DC x*oo? 

8069 +4==--= 333525 SS3>-5-==5-+5->--= - 
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COPYRIGHT IBM CORP 1976 


MSG TERMINATOR 


ee we ee ee ee ee ee es es is a es a a es ee ee es a a a ee ae ae oe 


em ee oe we 9 Sw DO ww OD OS OO @ @ ww SD 08 Sw Dw @ Ow ww we ww ee 


ec cer ce ce cee wg ee ec ce ee ee we ee ee we ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


MULTI USE BUFFER CONFIGURATION MSG 
OPERATOR INPUT BUFFER 

DATA TERMINAL RDY 

DATA SET RDY 

REQUEST TO SEND 

CLEAR TO SEND 

RING INDICATOR 

RCV MODE 

XMIT MODE 

# LINES IF MULTILINE 


END OF GROUP (64 CHARACTERS MAX) 


—~ a. ae a ow om ee a ce me Oe ee oe oe ee oe ee ae ee es a es a wt we ee a 


— oe we ee ee ee ee ow @ 8 8 @ @ te ow re we we wn ee ew a ee 


ee RD ED ED A ED ee ee ee ce ee oe ee ee ee oe ee ee ee ee ee ee ee ee ee ee ee oe ee ew 


ee mere eee coy ees sce ce cee ee ee ey ee ee ee ee pe ee ee em ce ee ee ee ee es ee ee ee ee 


XMIT NEGATIVE ACKNOWLEDGEMENT 
MSG PESaI NTO 


RCV NEGATIVE ACKNOWLEDGEMENT 
MSG TERSINATOR 


ge ee ow ee ee 2 ee 2 ee ee ee ee oe wn oe 8 en ee we oe we oe ee ee 


a oe ee © 08 OO OO Ow Oe OOO OO OO OO |= O88 0 wn ww og we ww ow 


RECEIVE ‘TEXT* 


MSG TERN INATOR 


TRANSMIT "END OF TRANSMISSION' 


ee ee ow > oe ee oe ee ew 2 OO ww @ ww 


RECEIVE ‘END OF TRANSMISSION® 
MSG TERE TRE TOR 


003832 
003833 


003834 
003836 


00383A 
00383B 


00383C 
00383E 


003841 
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OBJECT TEXT 
00 


E8BB 
5CC5D6C1 
00 

00 


E8BC 
5CC5D6C2 
00 

00 


E8BD 
5CD3D9C3 
00 

00 


E8BE 
5CE5D9C3 
00 

00 


E8SBF 
5CE2C2 
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4470+ ALIGN WORD 

447] *-----------------~--------- MSG 

4472 *----- w-------------- - = - - = = 5 + + $5 $5 2 2 = $2 -- == - 
W473 * MSG E8BA NOT USED 

447 *----------~---------- ----- ------------------------------- won ---------- 
4475 DC X'ESBB! 

4476 EOARCV DC C'*EOA! 

4477 ALN 

4478+ DC x'00! MSG TERMINATOR 
44794+%*-~------------------------~--------+----- +--+ +--+ - +--+ == === * 
4480+ ALIGN WORD 

4481 *--------------------------- MSG 

4482 DC X'ES8BC! 

4483 EOBRCV DC C'*EOB! 

4484 ALN 

4485+ DC x'008 MSG TERMINATOR 
4486 +%--------------------------------- -- --- - = - -- ---- - $+ - $5 + 5 = === == * 
44U87+ ALIGN WORD 

4488 *----- #---==---------------- MSG 

4489 DC X'ESBD! 

4490 LRCERR DC C'*LRC! RECEIVE 'LRC ERROR! 

4492+ DC x'008 MSG TERMINATOR 
4493 4%*-------~---~------------ - --- - -- -- - - +--+ $$ 5 en nnn = os nnn enna * 
U4Oqs ALIGN WORD 

4495 *-+----------- ~---------- >--MSG 

4496 DC X' ESBE! 

4497 VRCERR DC C'*VRC! 

4498 ALN 

4499+ DC x'008 MSG TERMINATOR 
4500 +*-------------~----------- ~--- ---- +--+ + -- - --- - - + - = - = - + $= + 5 == = == = * 
4501+ ALIGN WORD 

4502 *--------------------------- MSG 

4503 DC X' ESBF! 

4504 SBERR DC CiSBt 

4505 ALN 

4506+ DC X'00! MSG TERMINATOR 
4507+*--------- ganar — ns 2 --- 2 = $e 5 5 5 nn nn 5 ee eee a * 
4508+ ALIGN WORD 

4509 *--------------------------- MSG 

U5 1 Ha Ra A 2 RC a a a i 2 2 2 2 2 2 a 2K CC 2 2 2 2 2 2 a ak hc 2 a 2 ae 2 2 a fc cc ake a a a ak aie ak ok ok 
4512 RBUF DC 200x008 RECEIVE DATA BUFFER 

4513 RBUFEND DC X'00! 

4514 ALIGN WORD 

U5 15 a I A I KK RK 2 a ie 2 2 2 a oe aK 2K 2 a 2 2 2 a i a 2 i aK i Ki KK KOK KK 
4516 TEXTCNT DC Aes TEXTSAVE BYTE COUNT 

4517 TEXTSAVE DC 99x'008 TEXTSAVE AREA 

4518 TXE DC X'008 TEXTSAVE AREA 

4519 ALIGN WORD 

US 20 2 Fea a ae eK Re 2 ae a a a a 2 oe 2 a 2 2 a a a fe a ae 2 C2 a a i ate oi i 2 a a 2h 2 2 i a a oi a 2 ce a a tc aco ic ae ik eae ok 2 ok ek 
4521 DCOUNT DC h (*-* BYTE COUNT 

4522 DATSTORO DC 19x00" STORE (D), CRLF HERE 

4523 DATASTOR DC 201X'00" STORE ECHO TEXT RECEIVED FROM TERMINAL HERE 
4524 DATEND DC X00! 

4525 LIGN WORD 

U5 26 HH RR HK a I KK a 2 2K a A a a i 2 i a 2 i 2 ic a 2K a ae ec a aa a i te ai a a a Kk 
4527 * LOG AREA * 
5 DB A HA Ha a RH a RR ok a a 2 a a fc ie 2 a 2c 2h 2k 2 2 i a ate ake 2k a i 2 oc aK ic 2k ic a a i i a ce ke a Kk ok i ok CK 
4529 ALIGN WORD 

4530 LOGSV DC 128x'00! LOG AREA 

4531 DC 128X'00! 

4532 DC 128x'008 

4533 DC 128X"00° 

4534 LAST  - DC X'88sst 

EES BS Hae eR 2 a 2 2 a Ke 2h 2 2K a 2 a a 2 a he 2 a 2c a a ai 2 ah a ie 2c i a hc 2 aK 2 a A ie a a ic a ak ae ae aie teak 2K ok i ok ok ok 
4536 END BEGIN 
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DECLARED 
3612 
1188 

873 
910 
1086 
877 
1112 
1049 
24 36 


614 
1450 
1318 
1581 
1356 
1376 
2355 
2359 
1623 
1644 

687 

645 

396 
3493 

637 
3485 
1789 
2840 
3425 
3102 
2801 
3103 
1713 
1691 
1794 


2458 
2469 
3062 
1456 
3055 

329 
3704 
1742 
1750 
1748 
1757 
1758 
1744 
1746 
2509 
1061 
1330 
1593 
2985 
2495 
2494 


NAHE 
ABORT 
ADDRES 
ADDRS 
ADDRS10 
ADDRS11 
ADDRS20 
ADDRS3 
ADDRS4 
ADDRT 


ADD1 
ADRES 
ADRS 
ADRSO 
ADRS1 
ADRS3 
ADRTERM 
ADRTERME 
ADR1 
ADR3 
ASKQUEST 
ASKRATE 
BEGIN 
BITCT 
BLCOD 
BPBC 
BPSFL 
BUSYMAX 
BYTECNT 
Cc 
CCERR 
CCSAV 
CDCB 
CHAINAD 
CHECKFL 


CHECKRFT 
CHKEOB 
CHK SB 
CHKTST 
CHK VRC 
CICB 
CICB1 
CIRCB 
CIRCC 
CIRCD 
CIRCDC 
CIRCE 
CIRCN 
CIRCY 
CKEND 
CKERR 
CKERR1 
CKER1 
CKFOR3 
CKNINE 
CKNINE2 
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ATTRIBUTES AND REFERENCES 
HEX LOCATION (000030E8) 
HEX LOCAPTON (00001FB0) 
HEX LOCATION (00001CB2) 
HEX LOCATION (00001D12) 
HEX LOCATION (00001EDE) 
HEX LOCATION (00001CBC) 
HEX LOCATION (00001F 28) 
OCATION (00001876) 
CATION (00002780 
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ADDRESS 

049 

ABSOLOTE. 
37 


ADDRESS 
2469 
ADDRE 
2460 
ADDRE 
1106 
ADDRESS 


1756 
ADDRESS. 
1756 
ADDRESS. 
3715 
ADDRESS. 
3730 
ADDRESS. 
2480 254 
ADDRESS. 
1056 
ADDRESS. 
325 
ADDRESS. 
JaRe 
DRESS. 
2§ 0 2973 
ADDRESS. 
482 2487 
ADDRESS. 


475 
S. 
466 
S 
3 


mNNYUIN 


T 


P/N= 


4414382 


CROSS~REFERENCE LISTING 


HEX L 
1068 

HEX LO 
1237 128 
1628 

HEX L 


jam) 
ie) 
Fa 


3016 


N (09092052) 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


Thad" 


OCATION (00001A66) 
HEX LOCATION (00002228) 
HEX LOCATION (00002100) 
HEX LOCATION (00002374) 
LOCATION (00002166) 
HEX LOCATION (000021A0) 
HEX LOCATION (00002750) 
HEX LOCATION (00002754) 
HEX LOCATION (000023E2) 
HEX LOCATION (000024 1C) 
HEX LOCATION (00001B0C) 
HEX LOCATION (00001A9C) 
HEX, YOCATEGH (00091068 
HEX LOCATION (00003022) 
HEX LOCATION (00001488) 
HEX LOCATION (0000300A) 
HEX LOCATION (00002522) 
HEX LOCATION (00002B48) 
HEX LOCATION (00002F8C) 
HEX LOCATION 
301 


IN 
IN 
IN 
In 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IW 
3 


IN 
IN 
IN 
IN 
IN 


IN 
39 


HEX LOCATION (00002ADE) IN 

HEX LOCATION (00002D54) IN 

HEX LOCATION(0000249A) IN 
659 669 


HEX LOCATION (0 
HEX ier" 1018 


x Ve) 


HE 


9 
5 
426 


ah PS od 
Neos 


HEX LOCATION (000027CA) 
HEX LOCATION (00002CF4) 
HEX LOCATION (0000222C) 
HEX LOCATION (00002CE4) 
BS HEX VALUE (00000014) 

ADDRESS. HEX LOCATION (000031C0) 
HEX LOCATION (000024CC) 

2622 


2532 


3120 


1572 
-OCATION 


er 
oO 
Q 
> 
| 
S 
Se 
~~ 
(=) 
Ou) 
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Oo 
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bscnfigy colgggen8 
HEX LOCATION (000024£6) 
HEX LOCATION (000024D0) 
HEX LOCATION (000024D4) 
HEX LOCATION (00002850) 
HEX LOCATION (00001E94) 
HEX LOCATION (00002118) 
HEX LOCATION (00002392) 
LOCATION (00002C3C) 
nn} Pocatlon 08882020 


HEX LOCATION (00002824) 


474) IN 


528) IN 
1101 


IN 
IN 


IN 

IN 

IN 
57 


CSECT (TE8E6 
CSECT (TESE6 
CSECT (TESE6 
CSECT (TESE6 
CSECT (TE8E6 
CSECT (TESE6 
CSECT (TESE6 
CSECT (TESE6 


CSECT (TE8E6 
1458 1499 


CSECT (TE8E6 
CSECT (TE8E6 
CSECT (TE8E6 
CSECT (TE8E6 
CSECT (TESE6 
CSECT (TESE6 
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CSECT (TE8SE6 
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1238 1291 


CSECT (TE8E6 
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LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 


LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 


LENGTH (6) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
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DECLARED 


2498 
361 


1173 
1436 
883 
3041 
1194 
2501 
1442 
17180 
653 
657 
661 
2698 
1523 
1602 
1017 
3694 
2482 
1772 
504 
2490 
977 
a | 
1003 
933 
700 
1790 


1765 
3134 
3676 
1068 
1339 
3135 
4180 
4121 
1682 
1681 
1896 
1846 
1883 
1831 
1849 
1880 
1863 
1866 
1674 
1783 
2924 
1294 
1557 
1263 


NAME 


CKNINE3 
CKPT 


CKRFTER 
CKRFTERR 
CKTEST 
CKTIN 
CKTST 

CK ZERO 
CKOO4 
CKO4 

CK 300 
CK600 
CK950 
CLLOG 
CLOOP 
CLP1 
CNTCHECK 
COD 
CODECK 
CONFI 
CONNECT 
CONTCK 
CONTLOOP 
CONTLOP 
CONTLOPO 
CONTXT 
CORRCODE 
CORRFL 


CORRTABL 
COUNT 
COUNTER 
COUNTLP 
COUNTLP1 
COUNT1 
CPMCT 
CPMSG 
CRBFR 
CRBFRCT 
CREEND 
CREND 
CRETUR 
CRETURN 
CRLF 
CRLFE 
CRLFEND 
CRLF1 
CSBFR 
CSSBYPAS 
CSTAT 
CTCHECK 
CTCHEK 
CTLOOP 


2492 
ADDRESS. HEX LOCATION(00002830) IN 
2483 2488 
ADDRESS. HEX LOCATION (0000 180C) IN 
405 419 504% 512° #520 28 
765 813 822 837 852 891 
1011 1077 1099 1141 1154 1161 
1218 1235 1276 1288 1347 1365 
1442 1456 1466 1480 1497 1535 
ADDRESS. HEX LOCATION(00001F8A) IN 
,RDDRESS. HEX LOCATION (00002202) IN 
ADDRESS. HEX LOCATION(00001CC8) IN 
aADBRESS. HEX LOCATION (00002CCO) IN 
ADDRESS. HEX LOCATION(00001FB4) IN 
1174 1336 
ADDRESS. HEX LOCATION (00002838) IN 
2484 2489 2499 
,BBBRESS. HEX LOCATION(00002208) IN 
{ADBRESS. HEX LOCATION (00001F90) IN 
ADDRESS. HEX LOCATION (00001AB6) IN 
ADDRESS. HEX LOCATION(00001AC4) IN 
ADDRESS. HEX LOCATION(00001AD2) IN 
ADDRESS. HEX LOCATION (00002400) IN 
ADDRESS. HEX LOCATION (000022D0) IN 
,BDDRESS. HEX LOCATION (000023A2) IN 
,ADBRESS. HEX LOCATION (O0001E0E) IN 
ADDRESS. HEX LOCATION (000031A0) IN 
ADDRESS. HEX LOCATION(000027EE) IN 
2474 2476 
ADDRESS. | HEX LOCATION (00002504) IN 
ADDRESS. HEX LOCATION (00001962) IW 
ADDRESS. HEX LOCATION (00002818) IN 
ADDRESS. HEX LOCATION (00001DA6) IN 
ADDRESS. HEX LOCATION (00001D8E) IN 
ADDRESS. HEX LOCATION (00001DEA) IN 
ADDRESS. HEX LOCATION(00001D42) IN 
ADDRESS. HEX LOCATION (00001B2C) IN 
ADDRESS. HEX LOCATION (00002524) IN 
698 700 862 90 uy 
1208 1296 1313 1351 1372 1446 
1618 1638 2485 2517 
ohDDRESS. HEX LOCATION (000024FA) IN 
ADDRESS. HEX LOCATION(00002DA2) IN 
3116 3117 3128 3132 
ADDRESS. HEX LOCATION (00003198) IN 
3657 3664 
,ADDRESS. HEX LOCATION (00001EA6) IN 
ADDRESS. HEX LOCATION (0000212E) IN 
ADDRESS. HEX LOCATION(00002DA4) IN 
3121 3126 
ADDRESS. HEX LOCATION (00003654) IN 
ADDRESS. HEX LOCATION (000035B0) IN 
815 1143 1406 
ADDRESS. HEX LOCATION (00002456) IN 
3715 3719 3735 3757 
ADDRESS. HEX LOCATION(00002454) IN 
jABDRESS. HEX LOCATION (0000258F) IN 
ADDRESS. HEX LOCATION (0000255F) IN 
jADBRESS. HEX LOCATION (00002582) IN 
{ADBRESS. HEX LOCATION (00002550) IN 
ADDRESS. HEX LOCATION(00002562) IN 
1848 2630 2630 
ADDRESS. HEX LOCATION (00002580) IN 
ADDRESS. HEX LOCATION (00002570) IN 
ADDRESS. HEX LOCATION (00002572) IN 
ADDRESS. HEX LOCATION(0000244E) IN 
ADDRESS. HEX LOCATION(0000251A) IN 
409 2935 2 
ADDRESS. HEX LOCATION(00002BC8) IN 
546 3018 3658 4078 
ADDRESS. HEX LOCATION(000020B0) IN 
ADDRESS. HEX LOCATION (00002324) IN 
ADDRESS. HEX LOCATION(00002058) IN 
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DECLARED NAME ATTRIBUTES AND REFERENCES 
1249 
1269 CTLOOP1 ADDRESS. HEX LOCATION (00002070) IN 
1664 CTRLBLOK ADDRESS. HEX LOCATION (00002442 IN 
2877 2894 2913 2934 3217 3697 
4061 4096 411 
3422 CVRETX gRDBRESS- HEX LOCATION (00002F88) IN 
2776 CVTBLK aADDRESS. HEX LOCATION(00002AD0) IN 
2729 CVTDATA ADDRESS. HEX LOCATION (00002A56) IN 
2759 2763 71 
3404 CVTFACT gDDRESS. HEX LOCATION (00002F7B) IN 
2777 CVTFROM > ADDRESS. HEX LOCATION(00002AD2) IN 
2778 CVTTO > ABDRESS. HEX LOCATION (00002AD4) IN 
474 DAOK ADDRESS. HEX LOCATION (0000191E) IN 
364 DATAB ADDRESS. HEX LOCATION(00001812) IN 
35947 497 3645 3645 
1692 DATACNT ADDRESS. HEX LOCATION (00002476) IN 
1693 DATADDR ADDRESS. HEX LOCATION (00002478) IN 
2681 3917 ° 3926 39 3982 
1213 DATADR ADDRESS. HEX LOCATION(OO001FFO) IN 
1475 DATADR1 ADBRESS. HEX LOCATION (00002268) IN 
4523 DATASTOR jADDRESS. HEX LOCATION (00003982) IN 
1666 DATAWORD ADDRESS. HEX LOCATION (00002446) IN 
2579 2876 2892 2893 2912 32 
4008 4094 4114 
4524 DATEND ADDRESS. HEX LOCATION(00003A4B) IN 
975 1001 1267 2593 
4522 DATSTORO ADDRESS. HEX EME ALT: IN 
953 97 975 975 99 
1243 1263 1267 1267 1279 208 
1722 DCB3 oi BDRESS. HEX POCATTON (006024 RA} I 
4521 DCOUNT ADDRESS. HEX LOCATION (00003972) IN 
976 1002 1268 2624 
1763 DECITABL pADDRESS. HEX LOCATION (000024F0) IN 
2561 DECTOHEX oRDDRESS. HEX LOCATION (000028D0) IN 
1782 DEC VAL jADDRESS. HEX LOCATION (00002518) IN 
3142 DELAY ADDRESS. HEX LOCATION (00002DA6) 
3029 1835, 1541 1604 1626. 1646 
3591 DELAY1 gaDBRESS. HEX LOCATION(000030CC) IN 
3635 DELY1 ADDRESS. HEX LOCATION (00003136) IN 
365 DEVAD ADDRESS. HEX LOCATION (00001814) J IN 
git 457 461 47 
1669 DEVID ADDRESS. HEX LOCATION (0000244C) IN 
3206 DISAB gADDRESS. HEX LOCATION (00002E22) IN 
3098 DLYCTSV oADDRESS. HEX LOCATION (00002D4A) IN 
3146 DLYLOP a hDBRESS. HEX LOCATION (00002DB4) IN 
3780 DRESP ADDRESS. HEX LOCATION (0000324A) IN 
3957 4041 406 
3149 DRET ghDRRESS. HEX LOCATION (00002DBA) IN 
3658 DRLOOP ghDBRESS. HEX LOCATION (00003166) IN 
3675 DSROK ADDRESS, HEX LOCATION (0000319A) IW 
3588 DSRWAIT BDBRESS. HEX LOCATION (000030C0) IN 
3657 DSWAIT ghDDRESS. HEX LOCATION (00003160) IN 
1731 DTRDCB ADDRESS. HEX LOCATION(000024BA) IN 
3316 3315 4053 409K 
4077 DTREN ADDRESS, HEX LOCATION (0000353A) IN 
4100 DTRRET yRBDRESS. HEX LOCATION (00003584) IN 
1030 EADDR {ADBRESS. HEX LOCATION (00001832) IN 
1570 EADDRO RDBRESS HEX LOCATION (00002348) IN 
1307 EADDR1 ADDRESS; HEX LOCATION (000020D4) IN 
2066 ECHCNT ADDRESS. HEX LOCATION (00002636) | IN 
1043 1080 1312 135 7 
2289 ECHCNT2 ADDRESS. HEX LOCATION (00002712) IN 
1047 1084 1316 135 621 
2119 ECHE > ADDRESS. HEX LOCATION (0000266C} IN 
2118 EC HOE ADDRESS. HEX LOCATION (0000266B) IN 
1018 1295 1558 
2341 ECHOE2 ADDRESS. HEX LOCATION (00002747) IN 
1022 1299 1562 
2067 ECHOTST ADDRESS. HEX LOCATION (00002638 IN 
1947 1042. 1079 1294 1311 49 
2290 ECHOTST2 (ADDRESS. HEX LOCATION (00002714) IN 
1921 1046 1083 1298 1315 53 
2342 ECH2E aADDRESS. HEX LOCATION (00002748) IN 
2064 ENDE ADDRESS. HEX LOCATION (00002635) IN 
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DECLARED NAME ATTRIBUTES AND REFERENCES 
2012 
2783 ENDPLG ADDRESS. HEX LOCATION (QOO0O02ADC) IN CSECT(TE8E6 ) LENGTH(2) 
2825 ENDRETRY ADDRESS. HEX LOCATION (00002B1C) IN CSECT(TESE6 ) LENGTH(1) 
2013 ENDTEST ADDRESS, HEX LOCATION (00002602) IN CSECT(TESE6 ) LENGTH(1) 
2236 ENDTEST2 ADDRESS. HEX LOCATION (000026DE) IN CSECT(TESE6 ) LENGTH(1) 
1107 ENDO ADDRESS. | HEX LOCATION (00001F12) IN CSECT(TE8E6 ) LENGTH(6) 
1371 END1 ADDRESS. HEX LOCATION(0000218A) IN CSECT(TE8E6 ) LENGTH(6) 
2287 END2 ADDRESS. HEX LOCATION (00002711) IN CSECT(TEBE6 ) LENGTH (1) 
743 ENTAD ADDRESS. HEX LOCATION(00001BA0) IN CSECT(TESE6 ) LENGTH(6) 
486 ENTROPTS ADDRESS. HEX LOCATION (00001932) IN CSECT(TESE6 ) LENGTH(6) 
345 EOAR ABSOLUTE. HEX VALUE (00000002) 
4476 EOARCV ghDDRESS. HEX LOCATION (0000381E) IN CSECT(TE8E6 ) LENGTH (4) 
348 EOBR ABSOLUTE. HEX VALUE (00000004) 
867 894 934 1033 1167 1225 1430 1487 2426 
4483 EOBRCV g ADDRESS. HEX LOCATION (00003826) IN CSECT(TESE6  ) LENGTH (4) 
346 EOTR ABSOLUTE. HEX VALUE (00000003) 
898 938 1037 1171 1228 1434 1490 2424 
4466 EOTRCV ghQBRESS. HEX LOCATION (00003816) IN CSECT(TE8E6 ) LENGTH (4) 
4459 EOTSENT ADDRESS, HEX LOCATION (00003810) IN CSECT(TESE6 ) LENGTH(3) 
1256 ERCK {ABDRESS. HEX LOCATION (00002044) IN CSECT(TEBE6 ) LENGTH (4) 
1516 ERCK1 {BDDRESS. HEX LOCATION (000022C2) IN CSECT(TESE6 ) LENGTH (4) 
465 ER PRINT ADDRESS. HEX LOCATION (00001904) IN CSECT(TE8E6 ) LENGTH(4) 
1778 ERR ADDRESS. HEX LOCATION (00002510) IN CSECT(TESE6 ) LENGTH(2) 
3462 ERRCODED ADDRESS. HEX LOCATION (00002FD8) IN CSECT(TE8E6 ) LENGTH (2) 
1788 ERRCT ADDRESS. HEX 49°95 95 (o999g°7 4 IN CSECT(TESE6 ||) LENGTH (2) 
1057 1058 1252 1253 1326 27 1512 1513 1589 
1590 2813 3070 3083 3619 3620 3798 
334 ETOH ghBSOLUTE. HEX VALUE (00000019) 
315 EXIT ga BpOLUTE. HEX VALUE (00000006) 
4379 E8AC ADDRESS. HEX LOCATION (00003796) IN CSECT(TESE6 ) LENGTH(1) 
611 629 2714 2714 2717 =2741 
44Ou ESAF gADBRESS. HEX LOCATION (000037DA) IN CSECT(TE8E6 ) LENGTH(8) 
4335 E8A2 gRDBRESS. HEX LOCATION (0000376E) IN CSECT(TE8E6 ) LENGTH(4) 
4343 E8A3 ahRDRESS. HEX LOCATION (00003778) IN CSECT(TE8E6 ) LENGTH(6) 
4351 EBAY sADDRESS. HEX LOCATION (00003784) IN CSECT(TE8E6 ) LENGTH(6) 
4359 E8A5 ADDRESS, HEX LOCATION (00003790) IN CSECT(TESE6 ) LENGTH(3) 
4411 E8 BO ADDRESS. HEX LOCATION (000037E6) IN CSECT(TESE6 ) LENGTH (2) 
4208 E88A ADDRESS. HEX LOCATION (00003674) IN CSECT(TE8E6 ) LENGTH(7) 
4215 E88B ADDRESS. HEX LOCATION(0000367E) IN CSECT(TESE6 ) LENGTH(16) 
4222 E88C ADDRESS. HEX LOCATION (00003692) IN CSECT(TE8E6 ) LENGTH(4) 
4229 E88D ADDRESS. HEX LOCATION (0000369A) IN CSECT(TESE6 ) LENGTH(16) 
4236 E88E ADDRESS. HEX LOCATION (000036AE) IN CSECT(TESE6 ) LENGTH (9) 
4141 E881 ADDRESS. HEX LOCATION (000035D8) IN CSECT(TESE6 ) LENGTH(17) 
4148 E882 ADDRESS. HEX LOCATION (000035EC) IN CSECT(TEBE6 ) LENGTH(15) 
4155 E883 ADDRESS. HEX LOCATION(000035FE) IN CSECT(TE8E6 ) LENGTH(17) 
4170 E885 ADDRESS. HEX LOCATION (00003622) IN CSECT(TEBE6 ) LENGTH (34) 
4177 E886 ADDRESS. HEX LOCATION (00003648) IN CSECT(TESE6 ) LENGTH(4) 
4187 E887 ADDRESS. HEX LOCATION (0000365A) IN CSECT(TE8E6 ) LENGTH(3) 
4194 E888 ADDRESS. HEX LOCATION (00003660) IN CSECT(TE8E6 ) LENGTH (6) 
4201 E889 ADDRESS. HEX LOCATION (0000366A) IN CSECT(TESE6 ) LENGTH(7) 
4310 E89E ADDRESS. HEX LOCATION (0000374C) IN CSECT (TESE6 ) LENGTH (4) 
2869 2870 2873 2885 2886 2889 2905 2906 29 
2925 2926 2929 3207 3208 3211 3929 3930 393 
3983 3984 3990 4019 4020 4023 4047 4O4B 405 
4086 4087 4090 4107 4108 4111 
4318 ES9F aABDRESS. HEX LOCATION (00003758) IN CSECT(TE8E6 ) LENGTH(6) 
4246 £890 geDBRESS. HEX LOCATION (000036BA) IN CSECT(TEBE6 ) LENGTH(31) 
4253 E891 ghBBRESS. HEX LOCATION (000036DC) IN CSECT(TE8E6 ) LENGTH (16) 
4263 E893 ADDRESS. HEX LOCATION (000036FO) 7 IN CSECT(TESE6 ) LENGTH(28) 
964 1062 1257 1331 151 
4270 E894 ghDBRESS. HEX LOCATION (00003710) IN CSECT(TESE6 ) LENGTH(12) 
4271 ES9UA ghDBRESS. HEX LOCATION (0000371C) IN CSECT(TE8E6 ) LENGTH(4) 
4278 E895 ADDRESS. HEX LOCATION (00003724) IN CSECT(TEBE6 ) LENGTH(11) 
4280 E895A ADDRESS. HEX LOCATION (00003735) IN CSECT(TESE6 ) LENGTH (4) 
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NAME ATTRIBUTES AND REFERENCES 
E898 hoo eee LOCATION (0000373C) IN 
FIELD1 ADDRESS. HEX Bo eee ane ee IN 
438 543 5 82 583 748 50 
3076 3386 3401 3880 3885 3888 
FIELDICT saooe HEX LOCATION (OO0002F7C) I 
FIELD2 ADDRESS. HEX LOCATION (0000379C) IN 
5 86 587 303 
FIELD3 ADDRESS. HEX LOCATION (000037A2) IN 
590 591 3034 
FIELD4& ADDRESS. HEX LOCATION (000037A8) IN 
594 595 3035 
FIELD5 eon taaa LOCATION (OOOO37AE) IN 
FIELD6 pon eee LOCATION (000037B4) IN 
FIELD7 eae eben LOCATION (000037BA) IN 
FIELD8 ADDRESS. HEX LOCATION (000037C0) IN 
555 556 578 
FINDEND Seon HEX LOCATION (00002926) IN 
FINISH Seep HEX LOCATION(O000029E4) IN 
FINISHO apo em eagt es LOCATION (OOOO1DF2) IN 
FLAGEND ae ata HEX LOCATION (000037D2) IN 
FLAGO Ck tan ha LOCATION (0000251C) IN 
FMSG ioe HEX LOCATION(OOOO18A4) IN 
FROMAD ADDRESS. HEX LOCATION (00002986) IN 
FROMADDR Pt ada HEX LOCATION (OO0002F8E) IN 
GBPT seee HEX LOCATION (000029BC) IN 
GDSR ADDRESS. HEX LOCATION (O00002F92) IN 
3412 3420 
GETAD BURRESS: HEX LOCATION (00001BA6) IN 
GETDATA eee HEX LOCATION (00001D28) IN 
GETRFT1 Bea ee HEX LOCATION (00001C9C) IN 
GETRFT 10 ei haat HEX LOCATION (O00001CB8) IN 
GETRFT12 eeptes HEX LOCATION (O0001CA8) IN 
GETRFT2 eee HEX LOCATION(OQOO1TFAC) IN 
GETTEXT2 Cae HEX LOCATION (00001D2C) IN 
GINT ADDRESS. HEX LOCATION (O0002E5E) IN 
1658 1659 
GO ston HEX LOCATION (OOOO030E4) IN 
GOBACK seen HEX LOCATION (000028C2) IN 
GOMOV ooo HEX LOCATION (OOOO1TE2C) IN 
GOMOVE ioe HEX LOCATION(000020CE) IN 
GOMOVE1 ‘eeu HEX LOCATION (00002342) IN 
GOPOL ADDRESS. HEX LOCATION(000021D4) IN 
28 1451 1651 
GOPOLL ADDRESS. HEX LOCATION(OOO0O1F5C) IN 
1165 1189 1380 
GOXMT ADDRESS. HEX LOCATION (O0001D5C) IN 
935 939 969 
GOXMT1 ao HEX LOCATION (O0001DBC) IN 
GRFT ADDRESS. HEX LOCATION (00001C54) IN 
856 900 1116 
GRFTX ST aa HEX LOCATION (00001C64) IN 
GRFT1 ADDRESS. HEX LOCATION (00001C68) IN 
845 875 88 
GTRFT tr aaa HEX LOCATION (00002224) IN 
HIT sean HEX LOCATION (000028A0) IN 
HITIT ADDRESS. HEX LOCATION (0000250E) IN 
2526 2537 2539 547 
HIT2 seugrnoe HEX LOCATION (000028B4) IN 
HTE ADDRESS. HEX Dee acag ob IN 
465 769 776 280 92 
3618 3884 3897 3925 3981 4123 
HTOE ABSOLUTE. HEX VALUE(0000001A) 
2730 3421 
HUN Seu, HEX LOCATION(0000254A) IN 
IBUFF ADDRESS. HEX LOCATION (00003796) IN 
648 695 705 712 721 30 
IDLES5 ABSOLUTE. HEX VALUE (00000003) 
2971 2974 3122 3125 3146 ee 
IDOK pone HEX LOCATION (OO0019EA) 
IDSAV ADDRESS. HEX LOCATION (00002508) IN 
44d 451 466 557 
IE ADDRESS. HEX LOCATION (000037D5) IN 
3386 3880 
INCDTA Ot aa HEX LOCATION (00002A60) IN 
INTCB soo HEX LOCATION (0000243A) IN 
INTCCVT ADDRESS. HEX LOCATION(0000377E) IN 
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CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
4328 NAT >ADBRESS. HEX LOCATION (00003762) IN CSECT(TESE6 ) LENGTH (9) 28 26 RESCC1 ADDRESS. HEX LOCATION(00002B1C) IN CSECT(TE8E6 ) LENGTH(4) 
702 NEXQUES ADDRESS. HEX LOCATION(00001B32) IN CSECT(TESE6 ) LENGTH (4) 317 RESET ABSOLUTE. HEX VALUE (00000008) 
3618 NODTRDIS ADDRESS. HEX LOCATION (000030FE) IN CSECT(TESE6 ) LENGTH(4) 2635 RETOCAL ADDRESS. HEX LOCATION(0000298C) IN CSECT(TESE6 ) LENGTH (4) 
1077 NORC ADDRESS. HEX LOCATION(00001EB6) IN CSECT(TESE6 ) LENGTH (6) 2827 RETRYCC1 >ADDRESS. HEX LOCATION (00002B20) IN CSECT(TE8E6 ) LENGTH(1) 
1614 NORCO ADDRESS. HEX LOCATION(000023BA) IN CSECT(TESE6 ) LENGTH (6) 3096 RETUR ADDRESS. HEX LOCATION (09902046) IN CSECT(TE8E6 ) LENGTH(4) 
1573 2967 2987 2996 3042 3045 3072 30 
1347 NORC1 ;ADBRESS. HEX LOCATION (0000213E) IN CSECT(TESE6 ) LENGTH (6) 2428 RETURN pABDRESS. HEX LOCATION (0000277C) IN CSECT(TESE6 ) LENGTH(4) 
3866 NORSP gaDDRESS. HEX LOCATION (00003340) IN CSECT(TESE6 ) LENGTH (6) 2450 RETURN1 ADDRESS. HEX LOCATION (00002742) IN CSECT(TE8E6 ) LENGTH (4) 
718 NXQUES ADDRESS. HEX LOCATION (00001B5A) IN CSECT(TESE6 ) LENGTH (4) 3131 RETURO gRBBRESS. HEX LOCATION (00002D96) IN CSECT(TE8E6 ) LENGTH (4) 
727 NX QUES 1 ADDRESS. HEX LOCATION (00001B72) IN CSECT(TESE6 ) LENGTH(4) 3461 RFNS ghBBRESS. HEX LOCATION(00002FD4) IN CSECT(TESE6 ) LENGTH(4) 
736 NXQUES2 ADDRESS. HEX LOCATION(00001B8A) IN CSECT(TESE6 ) LENGTH(4) 3860 RFRD ADDRESS. HEX LOCATION (00003328) IN CSECT(TESE6 ) LENGTH(4) 
732 3788 3799 3809 3828 3838 3848 385 
3477 ODDLOOP ADDRESS. HEX LOCATION (00002FF0) IN CSECT(TESE6 ) LENGTH (2) : 837 RFTBR ghBBRESS. HEX LOCATION(O0001C48) IN CSECT(TE8E6 ) LENGTH (6) 
3400 OICB ADDRESS, JHEX LOCATION (00002F74) IN CSECT(TEBE6 ) LENGTH (2) 1951 RFTE ADDRESS. HEX LOCATION (000025C6) IN CSECT(TEBSE6 ) LENGTH (1) 
3101 OIOcc ADDRESS. HEX LOCATION (00002D50) IN CSECT(TESE6 ) LENGTH (2) 1779 RFTERR ADDRESS, HEY LOCATION (00002512) IN CSECT(TESE6 ) LENGTH (2) 
4352 OLOCCVT ADDRESS. HEX LOCATION (0000378a) IN CSECT(TESE6 ) LENGTH (2) 1899 RFTMSG ADDRESS. HEX LOCATION (00002592) IN CSECT(TESE6 ) LENGTH(1) 
2839 O107 ADDRESS. HEX LOCATION (00002846) IN CSECT(TEBE6 ) LENGTH (2) 2122 RFTMSG2 ADDRESS. HEX LOCATION(0000266E) IN CSECT(TES8E6 ) LENGTH(1) 
2837 3216 3696 3 32 4060 4095 864 865 1186 1448 2121 
2732 ONECT jADDRESS. HEX LOCATION(00002A5E) IN CSECT (TEBEC ) LENGTH (2) 2174 RFT2E ABDRESS. HEX LOCATION (000026A2) IN CSECT(TESE6 ) LENGTH (1) 
3490 OPRTN ADDRESS. HEX LOCATION (0000301A) IN CSECT(TEBE6 ) LENGTH (2) 328 RICB ghBSOLUTE. HEX VALUE (00000013) 
4162 OPTNS ADDRESS. HEX LOCATION (00003612) IN CSECT(TE8E6 ) LENGTH (8) 318 RID yiBSOLUTE. HEX VALUE (00000009) 
362 OPTN1 ADDRESS. HEX LOCATION (0000180E) IN CSECT(TESE6 ) LENGTH(2) 2904 RSET ADDRESS. HEX LOCATION(00002BA0) IN CSECT(TESE6 ) LENGTH(6) 
428 495 530 617 681 770 777 783 514 2828 3 
1115 1379 1650 2736 2753 2821 3338 3342 3345 3863 RS PCODE ADDRESS. HEX LOCATION (00003338) IN CSECT (TESE6 ) LENGTH (2) 
3347 3393 3626 3632 3781 3797 3808 3818 3827 3837 3847 3857 3860 
4163 OPTPRT ADDRESS. HEX LOCATION (0000361A) IN CSECT(TESE6 ) LENGTH(4) 3866 
770.777 3869 RSPWD ADDRESS. HEX LOCATION (00003348) IN CSECT(TESE6 |) LENGTH (2) 
309 OUT ABSOLUTE. HEX VALUE (00000000) 866 893 897 933° 937 56 1032 1036 1051 
3356 1166 1170 1224 1246 1320 1429 1433 1486 1507 
3364 OUTCB ADDRESS. HEX LOCATION (00002F34) IN CSECT(TE8E6 ) LENGTH(2) 1583 2419 2441 3782 3796 3807 3817 3825 3826 
3350 3351 3354 3836 3845 3846 3856 
310 OUTIN ABSOLUTE. HEX VALUE (00000001) 360 RTNE ADDRESS. HEX LOCATION (0000180A) IN CSECT(TE8E6 ) LENGTH(2) 
3390 399 487 807 1136 1399 4124 
2411 POLLT ADDRESS. HEX LOCATION (00002754) IN CSECT(TE8E6 ) LENGTH(6) 4178 RTNUM ADDRESS. HEX LOCATION (0000364C) IN CSECT(TEGE6 ) LENGTH (2) 
2347 POLLTERM ADDRESS. HEX LOCATION (0000274A) IN CSECT(TESE6 ) LENGTH(1) 2917 RTRN ADBRESS. HEX LOCATION(00002BC4) IN CSECT(TEBE6 ) LENGTH (4) 
3079 PRCC gaQBRESS, ,HEX LOCATION (00002D20) IN CSECT(TE8E6 ) LENGTH(1) 398 RTO1 ADDRESS. HEX LOCATION (00001868) IN CSECT(TESE6 ) LENGTH(6) 
539 PRCFIG ADDRESS. HEX LOCATION (00001998) IN CSECT(TESE6 ) LENGTH (6) 1136 RTO3 ADDRESS. HEX LOCATION (00001F40) IN CSECT(TESE6 ) LENGTH(6) 
3639 PREND gAQBRESS. HEX LOCATION (0000313E) IN CSECT(TESE6 ) LENGTH (4) 1399 RTOY ADDRESS. HEX LOCATION(000021B8) IN CSECT(TESE6 ) LENGTH (6) 
321 PREP pABSOLUTE, HEX VALUE (0000000C) 1798 RT3FL ADDRESS, HEX LOCATION (00002530) IN CSECT(TEBE6 ) LENGTH (2) 
2868 PREPD ADDRESS. HEX LOCATION (O0002B4A) IN CSECT(TEGE6 ) LENGTH (6) 1799 RTUFL ADDRESS. HEX LOCATION (00002532) IN CSECT(TEBE6 ) LENGTH (2) 
3862 PRESP ADDRESS. HEX LOCATION (00003334) IN CSECT(TESE6 ) LENGTH (4) 0 RO REGISTER. HEX VALUE (00000000) 
3867 421 695 696 705 70 712 #713 721 722 
3877 PRNTBUF ADDRESS. HEX LOCATION (0000334A) IN CSECT(TESE6 ) LENGTH(6) 730 731 (739 740 748 (756 (757 2526 2537 
967 1065 1260 1334 1520 2547 2598 2601 2612 2623 2624 2674 2684 3266 
2710 PRNTLOG ADDRESS. HEX LOCATION (00002A1A) IN CSECT(TESE6 ) LENGTH (6) 3267 3269 
533.1114 137 9 3628 0 R1 REGISTER, HEX VALUE (90000001) 
3073 PRISTAT ADDRESS. HEX LOCATION(00002D14) IN CSECT(TE8SE6 ) LENGTH(4) 428 429 438 439 4440 441 457 458 459 
3047 460 461 488 579 580 584 #588 592 596 
1761 PTTCTABL ADDRESS. HEX LOCATION(000024E6) IN CSECT(TE8E6 ) LENGTH(1) 599 603 639 640 681 #£=682 783 784 866 
2516 2522 867 893 894 897 898 933 934 937 938 
3379 QUEST ADDRESS, HEX LOCATION (00002F36) IN CSECT(TEGE6 _) LENGTH (2) 956 958 960 1032 1033 1036 1037 1051 1053 
435 645 692 702. 709 18 §727°°°736 745 1055 1166 1167 1170 1171 «#1224 1225 1228 1246 
753. (772 1248 1250 1320 1322 1324 1429 1430 1433 1434 
1791 QUESTFL ADDRESS. HEX LOCATION (00002526) IN CSECT(TESE6 ) LENGTH (2) 1486 1487 1490 1507 1508 1510 1583 1585 1587 
679 684 767 2419 2420 2422 2424 2426 2441 2442 2444 2490 
4512 RBUF ADDRESS. HEX LOCATION ( (09903842) IN CSECT (TEBE6 LENGTH (1) 2494 2493 2495 2498 2500 2501 2503 2505 2520 
1702. 1711 2459 2490 2596 2625 2649 2655 2663 2522 2528 2530 2532 2596 2599 2611 2618 2620 
3784 3787 3792 3803 3813 3821 3832 3841 3852 2622 2801 2802 2803 2966 2968 2975 2976 3012 
3885 3898 3942 3997 4028 4056 3013 3036 3037 3041 3043 3044 3080 3081 3144 
4513 RBUFEND ADDRESS. HEX LOCATION (0000390A) IN CSECT(TESE6 ) LENGTH(1) 3148 3237 3238 3239 3262 3264 3269 3393 3394 
2633 3942 3997 4028 4056 3452 3455 3457 3458 3473 3475 3477 3490 
1704 RCDCB2 ADDRESS. HEX LOCATION (0000248A) IN CSECT(TEBE6 ) LENGTH (2) 0 R2 REGISTER. HEX VALUE (00000002) 
954 1050 1244 1319 1505 1582 610 613 2494 2497 2521 2522 2524 2540 2543 
1695 RCTSTDCB ADDRESS. HEX LOCATION (000024 7A} IN CSECT (TESE6 sha LENGTH (2) 2597 2602 2659 2661 2662 2665 2675 2678 2679 
844 874 880 916 1691 2417 2439 ©3731 2683 2686 2689 2690 2694 2703 2711 2719 2721 
2780 RCVMSG ADDRESS. HEX LOCATION(00002AD6) IN CSECT(TE8E6 LENGTH (2) 2723 2725 2727 2732 2733 2748 2758 2762 2766 
2760 2770 3263 3264 3265 3268 3454 3457 3474 3475 
4106 REAID ADDRESS. HEX LOCATION (00003588) IN CSECT(TESE6 LENGTH (6) 3476 3491 3589 3595 
442 0 R3 REGISTER. HEX VALUE (00000093) 
4018 RECEIVE ADDRESS. HEX LOCATION(000034A2) IN CSECT(TESE6 ) LENGTH (6) 611 613 614 616 2663 2665 2681 2683 2717 
2580 4039 2720 2734 2760 2760 2764 2764 2772 2772 2807 
753 RECK ADDRESS. HEX LOCATION(00001BCO) IN CSECT(TE8E6 ) LENGTH(4) 2965 2977 3073 3084 3090 3293 3298 3299 3303 
734 3309 3310 3311 3315 3353 3453 3455 3458 3480 
4046 RECV ADDRESS. HEX LOCATION (000034EFE) IN CSECT(TESE6 ) LENGTH(6) 3485 3588 3596 3620 
4067 0 R4 REGISTER. HEX VALUE (00009004) 
3498 REGSAV ADDRESS. HEX LOCATION (00003024) IN CSECT(TESE6 |.) LENGTH (2) 2654 2656 2658 2666 3294 3305 3317 3477 3478 
413 839 2411 2428 2436 2450 2858 2509 2561 3481 3482 3486 3489 3490 
2572 2578 2581 2590 2635 2647 2673 2691 2710 0 R5 REGISTER, HEX VALUE (00000005) 
2868 2884 2904 2917 2924 2942 2964 3096 3115 2540 2541 2544 2545 2562 2563 2564 2568 2570 
3131 3143 3149 3206 3223 3261 3270 3292 3318 2571 2718 2735 3412 3420 3441 
3352 3358 3380 3396 3422 3436 3451 3461 3472 0 R6 REGISTER, HEX, VALUE (90000006) 
3492 3586 3612 3654 3672 3675 3694 3704 3709 557 558 559 562 566 570 574 2411 2436 
3720 3722 3732 3734 3738 3748 3750 3780 3865 2458 2459 2060 2462 2464 2469 2471 2473 2543 
3877 3904 3923 3958 3979 4013 4018 4042 4046 2544 2561 2565 2566 2569 2570 2578 2590 2647 
4070 4077 4100 4106 4117. 4121 4133 2655 2656 2660 2664 2673 2676 2682 2687 2695 
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2815 3586 3654 3672 3694 3704 3709 3722 3734 3738 
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LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (1) 


LENGTH (4) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 


LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (1) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 


LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 


guENGTH (4) 


LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 


TE8E6 - 2740/2741 DOWNLINE TEST 
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CROSS~REFERENCE LISTING 


DECLARED NAME ATTRIBUTES AND REFERENCES 
1309 XMTMOREY ison HEX LOCATION (000020D8) IN 
1317 XMTMORES isan) aaa LOCATION (OO0020FC) IN 
1355 XMT MORE6 eee se. AF LOCATION (00002162) IN 
1572 XMTMOR4 aeoe HEX LOCATION (0000234C) IN 
1580 XMTMORS seuy see LOCATION (00002370) IN 
1622 XMTMOR6 ‘ei eno LOCATION (OOO0023DE) IN 
2781 XMTMSG ae DERESS HEX LOCATION (O0O002AD8) IN 
902 XMTMSG11 aaa tp Py haber ip lua ncaa IN 
1218 XMTPOL Soe) e300 LOCATION (OOOO1FF2) IN 
2413 XMT POLL ADDRESS. HEX LOCATION(0000275A) IN 
2421 2423 2427 
1480 XMTPOL1 ange a8oS LOCATION (0000226A) IN 
2736 XPTLIN PT ai HEX LOCATION (00002A66) IN 
3972 XSAV ADDRESS. HEX LOCATION (00003418) I 
3926 3933 3933 3982 3987 3987 
1797 X2740FL ADDRESS. HEX LOCATION (0000252E) IN 
733 840 870 911 
344 YAKR ABSOLUTE. HEX VALUE (00000001) 
958 1053 1248 1322 1508 
4428 YAKRCV Seon HEX LOCATION (000037F2) IN 
4421 YAKSENT 352 HEX LOCATION (OOO037EC) IN 
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LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (1) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 


LENGTH (4) 
LENGTH (3) 
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